'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.34014 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class DD_DMSDataSet Inherits Global.System.Data.DataSet Private tableTBPMO_FORM As TBPMO_FORMDataTable Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable Private tableTBPMO_RECORD As TBPMO_RECORDDataTable Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable Private tableVWPMO_FOLLOWING_TASKS As VWPMO_FOLLOWING_TASKSDataTable Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable Private tableTBDD_USER As TBDD_USERDataTable Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable Private tableTBPMO_FILES_USER As TBPMO_FILES_USERDataTable Private tableVWPMO_WORKFLOW_FORM As VWPMO_WORKFLOW_FORMDataTable Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable Private tableTBPMO_CONNECTION As TBPMO_CONNECTIONDataTable Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_WORKFLOW_FORM_FV_ID As Global.System.Data.DataRelation Private relationFK_TTBPMO_WORKFLOW_FORM_WF_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 As Global.System.Data.DataRelation Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 As Global.System.Data.DataRelation Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation Private relationFK_TBDD_INDEX_AUTOM_DOCID1 As Global.System.Data.DataRelation Private relationFK_TBPMO_FORM_FORM_TYPE_ID As Global.System.Data.DataRelation Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("TBPMO_FORM")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM"))) End If If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN"))) End If If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW"))) End If If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD"))) End If If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES"))) End If If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE"))) End If If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_FORM")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_FORMDataTable(ds.Tables("TBPMO_WORKFLOW_FORM"))) End If If (Not (ds.Tables("VWPMO_WF_USER_ACTIVE")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WF_USER_ACTIVEDataTable(ds.Tables("VWPMO_WF_USER_ACTIVE"))) End If If (Not (ds.Tables("VWPMO_FOLLOWING_TASKS")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_FOLLOWING_TASKSDataTable(ds.Tables("VWPMO_FOLLOWING_TASKS"))) End If If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"))) End If If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) End If If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) End If If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) End If If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"))) End If If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION"))) End If If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) End If If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE"))) End If If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) End If If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS"))) End If If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) End If If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) End If If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE"))) End If If (Not (ds.Tables("TBPMO_FILES_USER")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FILES_USERDataTable(ds.Tables("TBPMO_FILES_USER"))) End If If (Not (ds.Tables("VWPMO_WORKFLOW_FORM")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WORKFLOW_FORMDataTable(ds.Tables("VWPMO_WORKFLOW_FORM"))) End If If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL"))) End If If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER"))) End If If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG"))) End If If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES"))) End If If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE"))) End If If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) End If If (Not (ds.Tables("TBPMO_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_CONNECTIONDataTable(ds.Tables("TBPMO_CONNECTION"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If Me.GetSerializationData(info, context) Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub _ Public ReadOnly Property TBPMO_FORM() As TBPMO_FORMDataTable Get Return Me.tableTBPMO_FORM End Get End Property _ Public ReadOnly Property VWPMO_CONTROL_SCREEN() As VWPMO_CONTROL_SCREENDataTable Get Return Me.tableVWPMO_CONTROL_SCREEN End Get End Property _ Public ReadOnly Property TBPMO_FORM_VIEW() As TBPMO_FORM_VIEWDataTable Get Return Me.tableTBPMO_FORM_VIEW End Get End Property _ Public ReadOnly Property TBPMO_RECORD() As TBPMO_RECORDDataTable Get Return Me.tableTBPMO_RECORD End Get End Property _ Public ReadOnly Property VWPMO_DOKUMENTTYPES() As VWPMO_DOKUMENTTYPESDataTable Get Return Me.tableVWPMO_DOKUMENTTYPES End Get End Property _ Public ReadOnly Property TBPMO_WD_FVIEW_DT_INDEX() As TBPMO_WD_FVIEW_DT_INDEXDataTable Get Return Me.tableTBPMO_WD_FVIEW_DT_INDEX End Get End Property _ Public ReadOnly Property TBPMO_WORKFLOW_TASK() As TBPMO_WORKFLOW_TASKDataTable Get Return Me.tableTBPMO_WORKFLOW_TASK End Get End Property _ Public ReadOnly Property TBPMO_WORKFLOW_TASK_STATE() As TBPMO_WORKFLOW_TASK_STATEDataTable Get Return Me.tableTBPMO_WORKFLOW_TASK_STATE End Get End Property _ Public ReadOnly Property VWPMO_GUI_ENTITY() As VWPMO_GUI_ENTITYDataTable Get Return Me.tableVWPMO_GUI_ENTITY End Get End Property _ Public ReadOnly Property TBPMO_WORKFLOW() As TBPMO_WORKFLOWDataTable Get Return Me.tableTBPMO_WORKFLOW End Get End Property _ Public ReadOnly Property TBPMO_WORKFLOW_FORM() As TBPMO_WORKFLOW_FORMDataTable Get Return Me.tableTBPMO_WORKFLOW_FORM End Get End Property _ Public ReadOnly Property VWPMO_WF_USER_ACTIVE() As VWPMO_WF_USER_ACTIVEDataTable Get Return Me.tableVWPMO_WF_USER_ACTIVE End Get End Property _ Public ReadOnly Property VWPMO_FOLLOWING_TASKS() As VWPMO_FOLLOWING_TASKSDataTable Get Return Me.tableVWPMO_FOLLOWING_TASKS End Get End Property _ Public ReadOnly Property VWPMO_WF_OVERVIEW_AUTHORITY() As VWPMO_WF_OVERVIEW_AUTHORITYDataTable Get Return Me.tableVWPMO_WF_OVERVIEW_AUTHORITY End Get End Property _ Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable Get Return Me.tableTBDD_DOKUMENTART End Get End Property _ Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable Get Return Me.tableTBDD_EINGANGSARTEN End Get End Property _ Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable Get Return Me.tableTBDD_INDEX_AUTOM End Get End Property _ Public ReadOnly Property TBPMO_WD_FORMVIEW_DOKTYPES() As TBPMO_WD_FORMVIEW_DOKTYPESDataTable Get Return Me.tableTBPMO_WD_FORMVIEW_DOKTYPES End Get End Property _ Public ReadOnly Property TBPMO_KONFIGURATION() As TBPMO_KONFIGURATIONDataTable Get Return Me.tableTBPMO_KONFIGURATION End Get End Property _ Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable Get Return Me.tableTBDD_USER End Get End Property _ Public ReadOnly Property TBPMO_FORM_TYPE() As TBPMO_FORM_TYPEDataTable Get Return Me.tableTBPMO_FORM_TYPE End Get End Property _ Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable Get Return Me.tableTBDD_USER_GROUPS End Get End Property _ Public ReadOnly Property VWPMO_USERS_GROUPS() As VWPMO_USERS_GROUPSDataTable Get Return Me.tableVWPMO_USERS_GROUPS End Get End Property _ Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable Get Return Me.tableTBDD_GROUPS_USER End Get End Property _ Public ReadOnly Property TBWH_DOKART_MODULE() As TBWH_DOKART_MODULEDataTable Get Return Me.tableTBWH_DOKART_MODULE End Get End Property _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable Get Return Me.tableTBPMO_FORM_CONSTRUCTOR End Get End Property _ Public ReadOnly Property TBPMO_WD_OBJECTTYPE() As TBPMO_WD_OBJECTTYPEDataTable Get Return Me.tableTBPMO_WD_OBJECTTYPE End Get End Property _ Public ReadOnly Property TBPMO_FILES_USER() As TBPMO_FILES_USERDataTable Get Return Me.tableTBPMO_FILES_USER End Get End Property _ Public ReadOnly Property VWPMO_WORKFLOW_FORM() As VWPMO_WORKFLOW_FORMDataTable Get Return Me.tableVWPMO_WORKFLOW_FORM End Get End Property _ Public ReadOnly Property TBPMO_FOLLOW_UP_EMAIL() As TBPMO_FOLLOW_UP_EMAILDataTable Get Return Me.tableTBPMO_FOLLOW_UP_EMAIL End Get End Property _ Public ReadOnly Property TBPMO_FOLLUPEMAIL_USER() As TBPMO_FOLLUPEMAIL_USERDataTable Get Return Me.tableTBPMO_FOLLUPEMAIL_USER End Get End Property _ Public ReadOnly Property TBPMO_RECORD_LOG_CONFIG() As TBPMO_RECORD_LOG_CONFIGDataTable Get Return Me.tableTBPMO_RECORD_LOG_CONFIG End Get End Property _ Public ReadOnly Property VWPMO_RECORD_CHANGES() As VWPMO_RECORD_CHANGESDataTable Get Return Me.tableVWPMO_RECORD_CHANGES End Get End Property _ Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable Get Return Me.tableVWPMO_WF_ACTIVE End Get End Property _ Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable Get Return Me.tableTBDD_EMAIL_ACCOUNT End Get End Property _ Public ReadOnly Property TBPMO_CONNECTION() As TBPMO_CONNECTIONDataTable Get Return Me.tableTBPMO_CONNECTION End Get End Property _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Get Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DD_DMSDataSet = CType(MyBase.Clone,DD_DMSDataSet) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBPMO_FORM")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM"))) End If If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN"))) End If If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW"))) End If If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD"))) End If If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES"))) End If If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE"))) End If If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_FORM")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_FORMDataTable(ds.Tables("TBPMO_WORKFLOW_FORM"))) End If If (Not (ds.Tables("VWPMO_WF_USER_ACTIVE")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WF_USER_ACTIVEDataTable(ds.Tables("VWPMO_WF_USER_ACTIVE"))) End If If (Not (ds.Tables("VWPMO_FOLLOWING_TASKS")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_FOLLOWING_TASKSDataTable(ds.Tables("VWPMO_FOLLOWING_TASKS"))) End If If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"))) End If If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) End If If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) End If If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) End If If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"))) End If If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION"))) End If If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) End If If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE"))) End If If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) End If If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS"))) End If If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) End If If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR"))) End If If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE"))) End If If (Not (ds.Tables("TBPMO_FILES_USER")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FILES_USERDataTable(ds.Tables("TBPMO_FILES_USER"))) End If If (Not (ds.Tables("VWPMO_WORKFLOW_FORM")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WORKFLOW_FORMDataTable(ds.Tables("VWPMO_WORKFLOW_FORM"))) End If If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL"))) End If If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER"))) End If If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG"))) End If If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES"))) End If If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE"))) End If If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) End If If (Not (ds.Tables("TBPMO_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_CONNECTIONDataTable(ds.Tables("TBPMO_CONNECTION"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXml(reader) Me.InitVars End If End Sub _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBPMO_FORM = CType(MyBase.Tables("TBPMO_FORM"),TBPMO_FORMDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FORM) Is Nothing) Then Me.tableTBPMO_FORM.InitVars End If End If Me.tableVWPMO_CONTROL_SCREEN = CType(MyBase.Tables("VWPMO_CONTROL_SCREEN"),VWPMO_CONTROL_SCREENDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_CONTROL_SCREEN) Is Nothing) Then Me.tableVWPMO_CONTROL_SCREEN.InitVars End If End If Me.tableTBPMO_FORM_VIEW = CType(MyBase.Tables("TBPMO_FORM_VIEW"),TBPMO_FORM_VIEWDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FORM_VIEW) Is Nothing) Then Me.tableTBPMO_FORM_VIEW.InitVars End If End If Me.tableTBPMO_RECORD = CType(MyBase.Tables("TBPMO_RECORD"),TBPMO_RECORDDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_RECORD) Is Nothing) Then Me.tableTBPMO_RECORD.InitVars End If End If Me.tableVWPMO_DOKUMENTTYPES = CType(MyBase.Tables("VWPMO_DOKUMENTTYPES"),VWPMO_DOKUMENTTYPESDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_DOKUMENTTYPES) Is Nothing) Then Me.tableVWPMO_DOKUMENTTYPES.InitVars End If End If Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(MyBase.Tables("TBPMO_WD_FVIEW_DT_INDEX"),TBPMO_WD_FVIEW_DT_INDEXDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WD_FVIEW_DT_INDEX) Is Nothing) Then Me.tableTBPMO_WD_FVIEW_DT_INDEX.InitVars End If End If Me.tableTBPMO_WORKFLOW_TASK = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK"),TBPMO_WORKFLOW_TASKDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WORKFLOW_TASK) Is Nothing) Then Me.tableTBPMO_WORKFLOW_TASK.InitVars End If End If Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK_STATE"),TBPMO_WORKFLOW_TASK_STATEDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WORKFLOW_TASK_STATE) Is Nothing) Then Me.tableTBPMO_WORKFLOW_TASK_STATE.InitVars End If End If Me.tableVWPMO_GUI_ENTITY = CType(MyBase.Tables("VWPMO_GUI_ENTITY"),VWPMO_GUI_ENTITYDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_GUI_ENTITY) Is Nothing) Then Me.tableVWPMO_GUI_ENTITY.InitVars End If End If Me.tableTBPMO_WORKFLOW = CType(MyBase.Tables("TBPMO_WORKFLOW"),TBPMO_WORKFLOWDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WORKFLOW) Is Nothing) Then Me.tableTBPMO_WORKFLOW.InitVars End If End If Me.tableTBPMO_WORKFLOW_FORM = CType(MyBase.Tables("TBPMO_WORKFLOW_FORM"),TBPMO_WORKFLOW_FORMDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WORKFLOW_FORM) Is Nothing) Then Me.tableTBPMO_WORKFLOW_FORM.InitVars End If End If Me.tableVWPMO_WF_USER_ACTIVE = CType(MyBase.Tables("VWPMO_WF_USER_ACTIVE"),VWPMO_WF_USER_ACTIVEDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_WF_USER_ACTIVE) Is Nothing) Then Me.tableVWPMO_WF_USER_ACTIVE.InitVars End If End If Me.tableVWPMO_FOLLOWING_TASKS = CType(MyBase.Tables("VWPMO_FOLLOWING_TASKS"),VWPMO_FOLLOWING_TASKSDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_FOLLOWING_TASKS) Is Nothing) Then Me.tableVWPMO_FOLLOWING_TASKS.InitVars End If End If Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(MyBase.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"),VWPMO_WF_OVERVIEW_AUTHORITYDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) Is Nothing) Then Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.InitVars End If End If Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then Me.tableTBDD_DOKUMENTART.InitVars End If End If Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"),TBDD_EINGANGSARTENDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_EINGANGSARTEN) Is Nothing) Then Me.tableTBDD_EINGANGSARTEN.InitVars End If End If Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then Me.tableTBDD_INDEX_AUTOM.InitVars End If End If Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(MyBase.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"),TBPMO_WD_FORMVIEW_DOKTYPESDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) Is Nothing) Then Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.InitVars End If End If Me.tableTBPMO_KONFIGURATION = CType(MyBase.Tables("TBPMO_KONFIGURATION"),TBPMO_KONFIGURATIONDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_KONFIGURATION) Is Nothing) Then Me.tableTBPMO_KONFIGURATION.InitVars End If End If Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_USER) Is Nothing) Then Me.tableTBDD_USER.InitVars End If End If Me.tableTBPMO_FORM_TYPE = CType(MyBase.Tables("TBPMO_FORM_TYPE"),TBPMO_FORM_TYPEDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FORM_TYPE) Is Nothing) Then Me.tableTBPMO_FORM_TYPE.InitVars End If End If Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then Me.tableTBDD_USER_GROUPS.InitVars End If End If Me.tableVWPMO_USERS_GROUPS = CType(MyBase.Tables("VWPMO_USERS_GROUPS"),VWPMO_USERS_GROUPSDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_USERS_GROUPS) Is Nothing) Then Me.tableVWPMO_USERS_GROUPS.InitVars End If End If Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then Me.tableTBDD_GROUPS_USER.InitVars End If End If Me.tableTBWH_DOKART_MODULE = CType(MyBase.Tables("TBWH_DOKART_MODULE"),TBWH_DOKART_MODULEDataTable) If (initTable = true) Then If (Not (Me.tableTBWH_DOKART_MODULE) Is Nothing) Then Me.tableTBWH_DOKART_MODULE.InitVars End If End If Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars End If End If Me.tableTBPMO_WD_OBJECTTYPE = CType(MyBase.Tables("TBPMO_WD_OBJECTTYPE"),TBPMO_WD_OBJECTTYPEDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WD_OBJECTTYPE) Is Nothing) Then Me.tableTBPMO_WD_OBJECTTYPE.InitVars End If End If Me.tableTBPMO_FILES_USER = CType(MyBase.Tables("TBPMO_FILES_USER"),TBPMO_FILES_USERDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FILES_USER) Is Nothing) Then Me.tableTBPMO_FILES_USER.InitVars End If End If Me.tableVWPMO_WORKFLOW_FORM = CType(MyBase.Tables("VWPMO_WORKFLOW_FORM"),VWPMO_WORKFLOW_FORMDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_WORKFLOW_FORM) Is Nothing) Then Me.tableVWPMO_WORKFLOW_FORM.InitVars End If End If Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(MyBase.Tables("TBPMO_FOLLOW_UP_EMAIL"),TBPMO_FOLLOW_UP_EMAILDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FOLLOW_UP_EMAIL) Is Nothing) Then Me.tableTBPMO_FOLLOW_UP_EMAIL.InitVars End If End If Me.tableTBPMO_FOLLUPEMAIL_USER = CType(MyBase.Tables("TBPMO_FOLLUPEMAIL_USER"),TBPMO_FOLLUPEMAIL_USERDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FOLLUPEMAIL_USER) Is Nothing) Then Me.tableTBPMO_FOLLUPEMAIL_USER.InitVars End If End If Me.tableTBPMO_RECORD_LOG_CONFIG = CType(MyBase.Tables("TBPMO_RECORD_LOG_CONFIG"),TBPMO_RECORD_LOG_CONFIGDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_RECORD_LOG_CONFIG) Is Nothing) Then Me.tableTBPMO_RECORD_LOG_CONFIG.InitVars End If End If Me.tableVWPMO_RECORD_CHANGES = CType(MyBase.Tables("VWPMO_RECORD_CHANGES"),VWPMO_RECORD_CHANGESDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_RECORD_CHANGES) Is Nothing) Then Me.tableVWPMO_RECORD_CHANGES.InitVars End If End If Me.tableVWPMO_WF_ACTIVE = CType(MyBase.Tables("VWPMO_WF_ACTIVE"),VWPMO_WF_ACTIVEDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_WF_ACTIVE) Is Nothing) Then Me.tableVWPMO_WF_ACTIVE.InitVars End If End If Me.tableTBDD_EMAIL_ACCOUNT = CType(MyBase.Tables("TBDD_EMAIL_ACCOUNT"),TBDD_EMAIL_ACCOUNTDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_EMAIL_ACCOUNT) Is Nothing) Then Me.tableTBDD_EMAIL_ACCOUNT.InitVars End If End If Me.tableTBPMO_CONNECTION = CType(MyBase.Tables("TBPMO_CONNECTION"),TBPMO_CONNECTIONDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_CONNECTION) Is Nothing) Then Me.tableTBPMO_CONNECTION.InitVars End If End If Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars End If End If Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID") Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID = Me.Relations("FK_TBPMO_WORKFLOW_FORM_FV_ID") Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID = Me.Relations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID = Me.Relations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID = Me.Relations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 = Me.Relations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1") Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 = Me.Relations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1") Me.relationFK_TBDD_DOKUMENTART_EINGID = Me.Relations("FK_TBDD_DOKUMENTART_EINGID") Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID") Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID1") Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = Me.Relations("FK_TBPMO_FORM_FORM_TYPE_ID") Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID") Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = Me.Relations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID") Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID") End Sub _ Private Sub InitClass() Me.DataSetName = "DD_DMSDataSet" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_DMSDataSet.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_FORM = New TBPMO_FORMDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM) Me.tableVWPMO_CONTROL_SCREEN = New VWPMO_CONTROL_SCREENDataTable() MyBase.Tables.Add(Me.tableVWPMO_CONTROL_SCREEN) Me.tableTBPMO_FORM_VIEW = New TBPMO_FORM_VIEWDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_VIEW) Me.tableTBPMO_RECORD = New TBPMO_RECORDDataTable() MyBase.Tables.Add(Me.tableTBPMO_RECORD) Me.tableVWPMO_DOKUMENTTYPES = New VWPMO_DOKUMENTTYPESDataTable() MyBase.Tables.Add(Me.tableVWPMO_DOKUMENTTYPES) Me.tableTBPMO_WD_FVIEW_DT_INDEX = New TBPMO_WD_FVIEW_DT_INDEXDataTable() MyBase.Tables.Add(Me.tableTBPMO_WD_FVIEW_DT_INDEX) Me.tableTBPMO_WORKFLOW_TASK = New TBPMO_WORKFLOW_TASKDataTable() MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK) Me.tableTBPMO_WORKFLOW_TASK_STATE = New TBPMO_WORKFLOW_TASK_STATEDataTable() MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK_STATE) Me.tableVWPMO_GUI_ENTITY = New VWPMO_GUI_ENTITYDataTable() MyBase.Tables.Add(Me.tableVWPMO_GUI_ENTITY) Me.tableTBPMO_WORKFLOW = New TBPMO_WORKFLOWDataTable() MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW) Me.tableTBPMO_WORKFLOW_FORM = New TBPMO_WORKFLOW_FORMDataTable() MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_FORM) Me.tableVWPMO_WF_USER_ACTIVE = New VWPMO_WF_USER_ACTIVEDataTable() MyBase.Tables.Add(Me.tableVWPMO_WF_USER_ACTIVE) Me.tableVWPMO_FOLLOWING_TASKS = New VWPMO_FOLLOWING_TASKSDataTable() MyBase.Tables.Add(Me.tableVWPMO_FOLLOWING_TASKS) Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() MyBase.Tables.Add(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) Me.tableTBDD_EINGANGSARTEN = New TBDD_EINGANGSARTENDataTable() MyBase.Tables.Add(Me.tableTBDD_EINGANGSARTEN) Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable() MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM) Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() MyBase.Tables.Add(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) Me.tableTBPMO_KONFIGURATION = New TBPMO_KONFIGURATIONDataTable() MyBase.Tables.Add(Me.tableTBPMO_KONFIGURATION) Me.tableTBDD_USER = New TBDD_USERDataTable() MyBase.Tables.Add(Me.tableTBDD_USER) Me.tableTBPMO_FORM_TYPE = New TBPMO_FORM_TYPEDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_TYPE) Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable() MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS) Me.tableVWPMO_USERS_GROUPS = New VWPMO_USERS_GROUPSDataTable() MyBase.Tables.Add(Me.tableVWPMO_USERS_GROUPS) Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable() MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER) Me.tableTBWH_DOKART_MODULE = New TBWH_DOKART_MODULEDataTable() MyBase.Tables.Add(Me.tableTBWH_DOKART_MODULE) Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) Me.tableTBPMO_WD_OBJECTTYPE = New TBPMO_WD_OBJECTTYPEDataTable() MyBase.Tables.Add(Me.tableTBPMO_WD_OBJECTTYPE) Me.tableTBPMO_FILES_USER = New TBPMO_FILES_USERDataTable() MyBase.Tables.Add(Me.tableTBPMO_FILES_USER) Me.tableVWPMO_WORKFLOW_FORM = New VWPMO_WORKFLOW_FORMDataTable() MyBase.Tables.Add(Me.tableVWPMO_WORKFLOW_FORM) Me.tableTBPMO_FOLLOW_UP_EMAIL = New TBPMO_FOLLOW_UP_EMAILDataTable() MyBase.Tables.Add(Me.tableTBPMO_FOLLOW_UP_EMAIL) Me.tableTBPMO_FOLLUPEMAIL_USER = New TBPMO_FOLLUPEMAIL_USERDataTable() MyBase.Tables.Add(Me.tableTBPMO_FOLLUPEMAIL_USER) Me.tableTBPMO_RECORD_LOG_CONFIG = New TBPMO_RECORD_LOG_CONFIGDataTable() MyBase.Tables.Add(Me.tableTBPMO_RECORD_LOG_CONFIG) Me.tableVWPMO_RECORD_CHANGES = New VWPMO_RECORD_CHANGESDataTable() MyBase.Tables.Add(Me.tableVWPMO_RECORD_CHANGES) Me.tableVWPMO_WF_ACTIVE = New VWPMO_WF_ACTIVEDataTable() MyBase.Tables.Add(Me.tableVWPMO_WF_ACTIVE) Me.tableTBDD_EMAIL_ACCOUNT = New TBDD_EMAIL_ACCOUNTDataTable() MyBase.Tables.Add(Me.tableTBDD_EMAIL_ACCOUNT) Me.tableTBPMO_CONNECTION = New TBPMO_CONNECTIONDataTable() MyBase.Tables.Add(Me.tableTBPMO_CONNECTION) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_VIEW_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_VIEW.FORM_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FORM_VIEW_FORM_ID) Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_FORM_FV_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_FORM_FV_ID) Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID = New Global.System.Data.DataRelation("FK_TTBPMO_WORKFLOW_FORM_WF_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn}, false) Me.Relations.Add(Me.relationFK_TTBPMO_WORKFLOW_FORM_WF_ID) Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_RECORD_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID) Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_STATE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID) Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1) Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_WORKFLOW_TASK_STATE_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1) Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_DOKUMENTART_EINGID) Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID) Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID1) Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_FORM_TYPE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.FORM_TYPE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FORM_FORM_TYPE_ID) Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) End Sub _ Private Function ShouldSerializeTBPMO_FORM() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_CONTROL_SCREEN() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FORM_VIEW() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_RECORD() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_DOKUMENTTYPES() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WD_FVIEW_DT_INDEX() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WORKFLOW_TASK() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_STATE() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_GUI_ENTITY() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WORKFLOW() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WORKFLOW_FORM() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_WF_USER_ACTIVE() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_FOLLOWING_TASKS() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WD_FORMVIEW_DOKTYPES() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_KONFIGURATION() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_USER() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FORM_TYPE() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_USERS_GROUPS() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_DOKART_MODULE() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WD_OBJECTTYPE() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FILES_USER() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_WORKFLOW_FORM() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FOLLOW_UP_EMAIL() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FOLLUPEMAIL_USER() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_RECORD_LOG_CONFIG() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_RECORD_CHANGES() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_CONNECTION() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean Return false End Function _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars End If End Sub _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any.Namespace = ds.Namespace sequence.Items.Add(any) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function _ Public Delegate Sub TBPMO_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORMRowChangeEvent) _ Public Delegate Sub VWPMO_CONTROL_SCREENRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_CONTROL_SCREENRowChangeEvent) _ Public Delegate Sub TBPMO_FORM_VIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_VIEWRowChangeEvent) _ Public Delegate Sub TBPMO_RECORDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORDRowChangeEvent) _ Public Delegate Sub VWPMO_DOKUMENTTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_DOKUMENTTYPESRowChangeEvent) _ Public Delegate Sub TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent) _ Public Delegate Sub TBPMO_WORKFLOW_TASKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASKRowChangeEvent) _ Public Delegate Sub TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_STATERowChangeEvent) _ Public Delegate Sub VWPMO_GUI_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_GUI_ENTITYRowChangeEvent) _ Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent) _ Public Delegate Sub TBPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_FORMRowChangeEvent) _ Public Delegate Sub VWPMO_WF_USER_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_USER_ACTIVERowChangeEvent) _ Public Delegate Sub VWPMO_FOLLOWING_TASKSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_FOLLOWING_TASKSRowChangeEvent) _ Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent) _ Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) _ Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent) _ Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) _ Public Delegate Sub TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent) _ Public Delegate Sub TBPMO_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_KONFIGURATIONRowChangeEvent) _ Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) _ Public Delegate Sub TBPMO_FORM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_TYPERowChangeEvent) _ Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) _ Public Delegate Sub VWPMO_USERS_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_USERS_GROUPSRowChangeEvent) _ Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) _ Public Delegate Sub TBWH_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_DOKART_MODULERowChangeEvent) _ Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) _ Public Delegate Sub TBPMO_WD_OBJECTTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_OBJECTTYPERowChangeEvent) _ Public Delegate Sub TBPMO_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FILES_USERRowChangeEvent) _ Public Delegate Sub VWPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WORKFLOW_FORMRowChangeEvent) _ Public Delegate Sub TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLOW_UP_EMAILRowChangeEvent) _ Public Delegate Sub TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLUPEMAIL_USERRowChangeEvent) _ Public Delegate Sub TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_LOG_CONFIGRowChangeEvent) _ Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent) _ Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent) _ Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) _ Public Delegate Sub TBPMO_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_CONNECTIONRowChangeEvent) _ Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_FORMDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORMRow) Private columnGUID As Global.System.Data.DataColumn Private columnPARENT_ID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnLEVEL 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 columnSHOW_FORM_CONSTRUCT As Global.System.Data.DataColumn Private columnFORM_TYPE_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM" 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 PARENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL 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 SHOW_FORM_CONSTRUCTColumn() As Global.System.Data.DataColumn Get Return Me.columnSHOW_FORM_CONSTRUCT End Get End Property _ Public ReadOnly Property FORM_TYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TYPE_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 TBPMO_FORMRow Get Return CType(Me.Rows(index),TBPMO_FORMRow) End Get End Property _ Public Event TBPMO_FORMRowChanging As TBPMO_FORMRowChangeEventHandler _ Public Event TBPMO_FORMRowChanged As TBPMO_FORMRowChangeEventHandler _ Public Event TBPMO_FORMRowDeleting As TBPMO_FORMRowChangeEventHandler _ Public Event TBPMO_FORMRowDeleted As TBPMO_FORMRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORMRow(ByVal row As TBPMO_FORMRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow) As TBPMO_FORMRow Dim rowTBPMO_FORMRow As TBPMO_FORMRow = CType(Me.NewRow,TBPMO_FORMRow) Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing} If (Not (parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID) Is Nothing) Then columnValuesArray(9) = parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID(0) End If rowTBPMO_FORMRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORMRow) Return rowTBPMO_FORMRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORMRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORMDataTable = CType(MyBase.Clone,TBPMO_FORMDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") Me.columnNAME = MyBase.Columns("NAME") Me.columnLEVEL = MyBase.Columns("LEVEL") 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.columnSHOW_FORM_CONSTRUCT = MyBase.Columns("SHOW_FORM_CONSTRUCT") Me.columnFORM_TYPE_ID = MyBase.Columns("FORM_TYPE_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.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_ID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLEVEL) 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.columnSHOW_FORM_CONSTRUCT = New Global.System.Data.DataColumn("SHOW_FORM_CONSTRUCT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHOW_FORM_CONSTRUCT) Me.columnFORM_TYPE_ID = New Global.System.Data.DataColumn("FORM_TYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TYPE_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.columnPARENT_ID.AllowDBNull = false Me.columnPARENT_ID.DefaultValue = CType(0,Integer) Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 Me.columnLEVEL.AllowDBNull = false Me.columnLEVEL.DefaultValue = CType("0",String) Me.columnLEVEL.MaxLength = 10 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHOW_FORM_CONSTRUCT.AllowDBNull = false End Sub _ Public Function NewTBPMO_FORMRow() As TBPMO_FORMRow Return CType(Me.NewRow,TBPMO_FORMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORMRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORMRowChanged(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORMRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORMRowChanging(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORMRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORMRowDeleted(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORMRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORMRowDeleting(Me, New TBPMO_FORMRowChangeEvent(CType(e.Row,TBPMO_FORMRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORMRow(ByVal row As TBPMO_FORMRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FORMDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_CONTROL_SCREENDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_CONTROL_SCREENRow) Private columnCONTROL_ID As Global.System.Data.DataColumn Private columnCONTROL_NAME As Global.System.Data.DataColumn Private columnCONTROL_REQUIRED As Global.System.Data.DataColumn Private columnCONTROL_DEF_VALUE As Global.System.Data.DataColumn Private columnCONTROL_READ_ONLY As Global.System.Data.DataColumn Private columnCTRLTYPE_ID As Global.System.Data.DataColumn Private columnCTRLTYPE_NAME As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnFORM_NAME As Global.System.Data.DataColumn Private columnFORM_LEVEL As Global.System.Data.DataColumn Private columnSCREEN_ID As Global.System.Data.DataColumn Private columnSCREEN_NAME As Global.System.Data.DataColumn Private columnCTRLSCR_ID As Global.System.Data.DataColumn Private columnCTRLSCR_CAPTION As Global.System.Data.DataColumn Private columnCTRLSCR_X_LOC As Global.System.Data.DataColumn Private columnCTRLSCR_Y_LOC As Global.System.Data.DataColumn Private columnCTRLSCR_HEIGHT As Global.System.Data.DataColumn Private columnCTRLSCR_WIDTH As Global.System.Data.DataColumn Private columnCTRLSCR_FONT_FAMILY As Global.System.Data.DataColumn Private columnCTRLSCR_FONT_COLOR As Global.System.Data.DataColumn Private columnCTRLSCR_FONT_SIZE As Global.System.Data.DataColumn Private columnCTRLSCR_FONT_STYLE As Global.System.Data.DataColumn Private columnCTRLSCR_TAB_INDEX As Global.System.Data.DataColumn Private columnCTRLSCR_TAB_STOP As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_CONTROL_SCREEN" 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 CONTROL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_ID End Get End Property _ Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_NAME End Get End Property _ Public ReadOnly Property CONTROL_REQUIREDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_REQUIRED End Get End Property _ Public ReadOnly Property CONTROL_DEF_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_DEF_VALUE End Get End Property _ Public ReadOnly Property CONTROL_READ_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_READ_ONLY End Get End Property _ Public ReadOnly Property CTRLTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLTYPE_ID End Get End Property _ Public ReadOnly Property CTRLTYPE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLTYPE_NAME End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property FORM_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_NAME End Get End Property _ Public ReadOnly Property FORM_LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_LEVEL End Get End Property _ Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSCREEN_ID End Get End Property _ Public ReadOnly Property SCREEN_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSCREEN_NAME End Get End Property _ Public ReadOnly Property CTRLSCR_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_ID End Get End Property _ Public ReadOnly Property CTRLSCR_CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_CAPTION End Get End Property _ Public ReadOnly Property CTRLSCR_X_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_X_LOC End Get End Property _ Public ReadOnly Property CTRLSCR_Y_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_Y_LOC End Get End Property _ Public ReadOnly Property CTRLSCR_HEIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_HEIGHT End Get End Property _ Public ReadOnly Property CTRLSCR_WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_WIDTH End Get End Property _ Public ReadOnly Property CTRLSCR_FONT_FAMILYColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_FONT_FAMILY End Get End Property _ Public ReadOnly Property CTRLSCR_FONT_COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_FONT_COLOR End Get End Property _ Public ReadOnly Property CTRLSCR_FONT_SIZEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_FONT_SIZE End Get End Property _ Public ReadOnly Property CTRLSCR_FONT_STYLEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_FONT_STYLE End Get End Property _ Public ReadOnly Property CTRLSCR_TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_TAB_INDEX End Get End Property _ Public ReadOnly Property CTRLSCR_TAB_STOPColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRLSCR_TAB_STOP End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_CONTROL_SCREENRow Get Return CType(Me.Rows(index),VWPMO_CONTROL_SCREENRow) End Get End Property _ Public Event VWPMO_CONTROL_SCREENRowChanging As VWPMO_CONTROL_SCREENRowChangeEventHandler _ Public Event VWPMO_CONTROL_SCREENRowChanged As VWPMO_CONTROL_SCREENRowChangeEventHandler _ Public Event VWPMO_CONTROL_SCREENRowDeleting As VWPMO_CONTROL_SCREENRowChangeEventHandler _ Public Event VWPMO_CONTROL_SCREENRowDeleted As VWPMO_CONTROL_SCREENRowChangeEventHandler _ Public Overloads Sub AddVWPMO_CONTROL_SCREENRow(ByVal row As VWPMO_CONTROL_SCREENRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_CONTROL_SCREENRow( _ ByVal CONTROL_ID As Integer, _ ByVal CONTROL_NAME As String, _ ByVal CONTROL_REQUIRED As Boolean, _ ByVal CONTROL_DEF_VALUE As String, _ ByVal CONTROL_READ_ONLY As Boolean, _ ByVal CTRLTYPE_ID As Integer, _ ByVal CTRLTYPE_NAME As String, _ ByVal FORM_ID As Integer, _ ByVal FORM_NAME As String, _ ByVal FORM_LEVEL As String, _ ByVal SCREEN_ID As Integer, _ ByVal SCREEN_NAME As String, _ ByVal CTRLSCR_ID As Integer, _ ByVal CTRLSCR_CAPTION As String, _ ByVal CTRLSCR_X_LOC As Double, _ ByVal CTRLSCR_Y_LOC As Double, _ ByVal CTRLSCR_HEIGHT As Short, _ ByVal CTRLSCR_WIDTH As Short, _ ByVal CTRLSCR_FONT_FAMILY As String, _ ByVal CTRLSCR_FONT_COLOR As Long, _ ByVal CTRLSCR_FONT_SIZE As Short, _ ByVal CTRLSCR_FONT_STYLE As Short, _ ByVal CTRLSCR_TAB_INDEX As Short, _ ByVal CTRLSCR_TAB_STOP As Boolean) As VWPMO_CONTROL_SCREENRow Dim rowVWPMO_CONTROL_SCREENRow As VWPMO_CONTROL_SCREENRow = CType(Me.NewRow,VWPMO_CONTROL_SCREENRow) Dim columnValuesArray() As Object = New Object() {CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONTROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREEN_ID, SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLSCR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTRLSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, CTRLSCR_FONT_STYLE, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP} rowVWPMO_CONTROL_SCREENRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_CONTROL_SCREENRow) Return rowVWPMO_CONTROL_SCREENRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_CONTROL_SCREENDataTable = CType(MyBase.Clone,VWPMO_CONTROL_SCREENDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_CONTROL_SCREENDataTable() End Function _ Friend Sub InitVars() Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME") Me.columnCONTROL_REQUIRED = MyBase.Columns("CONTROL_REQUIRED") Me.columnCONTROL_DEF_VALUE = MyBase.Columns("CONTROL_DEF_VALUE") Me.columnCONTROL_READ_ONLY = MyBase.Columns("CONTROL_READ_ONLY") Me.columnCTRLTYPE_ID = MyBase.Columns("CTRLTYPE_ID") Me.columnCTRLTYPE_NAME = MyBase.Columns("CTRLTYPE_NAME") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnFORM_NAME = MyBase.Columns("FORM_NAME") Me.columnFORM_LEVEL = MyBase.Columns("FORM_LEVEL") Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") Me.columnSCREEN_NAME = MyBase.Columns("SCREEN_NAME") Me.columnCTRLSCR_ID = MyBase.Columns("CTRLSCR_ID") Me.columnCTRLSCR_CAPTION = MyBase.Columns("CTRLSCR_CAPTION") Me.columnCTRLSCR_X_LOC = MyBase.Columns("CTRLSCR_X_LOC") Me.columnCTRLSCR_Y_LOC = MyBase.Columns("CTRLSCR_Y_LOC") Me.columnCTRLSCR_HEIGHT = MyBase.Columns("CTRLSCR_HEIGHT") Me.columnCTRLSCR_WIDTH = MyBase.Columns("CTRLSCR_WIDTH") Me.columnCTRLSCR_FONT_FAMILY = MyBase.Columns("CTRLSCR_FONT_FAMILY") Me.columnCTRLSCR_FONT_COLOR = MyBase.Columns("CTRLSCR_FONT_COLOR") Me.columnCTRLSCR_FONT_SIZE = MyBase.Columns("CTRLSCR_FONT_SIZE") Me.columnCTRLSCR_FONT_STYLE = MyBase.Columns("CTRLSCR_FONT_STYLE") Me.columnCTRLSCR_TAB_INDEX = MyBase.Columns("CTRLSCR_TAB_INDEX") Me.columnCTRLSCR_TAB_STOP = MyBase.Columns("CTRLSCR_TAB_STOP") End Sub _ Private Sub InitClass() Me.columnCONTROL_ID = New Global.System.Data.DataColumn("CONTROL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_ID) Me.columnCONTROL_NAME = New Global.System.Data.DataColumn("CONTROL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_NAME) Me.columnCONTROL_REQUIRED = New Global.System.Data.DataColumn("CONTROL_REQUIRED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_REQUIRED) Me.columnCONTROL_DEF_VALUE = New Global.System.Data.DataColumn("CONTROL_DEF_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_DEF_VALUE) Me.columnCONTROL_READ_ONLY = New Global.System.Data.DataColumn("CONTROL_READ_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_READ_ONLY) Me.columnCTRLTYPE_ID = New Global.System.Data.DataColumn("CTRLTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLTYPE_ID) Me.columnCTRLTYPE_NAME = New Global.System.Data.DataColumn("CTRLTYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLTYPE_NAME) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnFORM_NAME = New Global.System.Data.DataColumn("FORM_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_NAME) Me.columnFORM_LEVEL = New Global.System.Data.DataColumn("FORM_LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_LEVEL) Me.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSCREEN_ID) Me.columnSCREEN_NAME = New Global.System.Data.DataColumn("SCREEN_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSCREEN_NAME) Me.columnCTRLSCR_ID = New Global.System.Data.DataColumn("CTRLSCR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_ID) Me.columnCTRLSCR_CAPTION = New Global.System.Data.DataColumn("CTRLSCR_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_CAPTION) Me.columnCTRLSCR_X_LOC = New Global.System.Data.DataColumn("CTRLSCR_X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_X_LOC) Me.columnCTRLSCR_Y_LOC = New Global.System.Data.DataColumn("CTRLSCR_Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_Y_LOC) Me.columnCTRLSCR_HEIGHT = New Global.System.Data.DataColumn("CTRLSCR_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_HEIGHT) Me.columnCTRLSCR_WIDTH = New Global.System.Data.DataColumn("CTRLSCR_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_WIDTH) Me.columnCTRLSCR_FONT_FAMILY = New Global.System.Data.DataColumn("CTRLSCR_FONT_FAMILY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_FONT_FAMILY) Me.columnCTRLSCR_FONT_COLOR = New Global.System.Data.DataColumn("CTRLSCR_FONT_COLOR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_FONT_COLOR) Me.columnCTRLSCR_FONT_SIZE = New Global.System.Data.DataColumn("CTRLSCR_FONT_SIZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_FONT_SIZE) Me.columnCTRLSCR_FONT_STYLE = New Global.System.Data.DataColumn("CTRLSCR_FONT_STYLE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_FONT_STYLE) Me.columnCTRLSCR_TAB_INDEX = New Global.System.Data.DataColumn("CTRLSCR_TAB_INDEX", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_TAB_INDEX) Me.columnCTRLSCR_TAB_STOP = New Global.System.Data.DataColumn("CTRLSCR_TAB_STOP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRLSCR_TAB_STOP) Me.columnCONTROL_ID.AllowDBNull = false Me.columnCONTROL_NAME.AllowDBNull = false Me.columnCONTROL_NAME.MaxLength = 100 Me.columnCONTROL_REQUIRED.AllowDBNull = false Me.columnCONTROL_DEF_VALUE.MaxLength = 100 Me.columnCONTROL_READ_ONLY.AllowDBNull = false Me.columnCTRLTYPE_ID.AllowDBNull = false Me.columnCTRLTYPE_NAME.AllowDBNull = false Me.columnCTRLTYPE_NAME.MaxLength = 20 Me.columnFORM_ID.AllowDBNull = false Me.columnFORM_NAME.AllowDBNull = false Me.columnFORM_NAME.MaxLength = 100 Me.columnFORM_LEVEL.AllowDBNull = false Me.columnFORM_LEVEL.MaxLength = 10 Me.columnSCREEN_ID.AllowDBNull = false Me.columnSCREEN_NAME.AllowDBNull = false Me.columnSCREEN_NAME.MaxLength = 100 Me.columnCTRLSCR_ID.AllowDBNull = false Me.columnCTRLSCR_CAPTION.AllowDBNull = false Me.columnCTRLSCR_CAPTION.MaxLength = 100 Me.columnCTRLSCR_X_LOC.AllowDBNull = false Me.columnCTRLSCR_Y_LOC.AllowDBNull = false Me.columnCTRLSCR_HEIGHT.AllowDBNull = false Me.columnCTRLSCR_WIDTH.AllowDBNull = false Me.columnCTRLSCR_FONT_FAMILY.AllowDBNull = false Me.columnCTRLSCR_FONT_FAMILY.MaxLength = 50 Me.columnCTRLSCR_FONT_COLOR.AllowDBNull = false Me.columnCTRLSCR_FONT_SIZE.AllowDBNull = false Me.columnCTRLSCR_FONT_STYLE.AllowDBNull = false Me.columnCTRLSCR_TAB_INDEX.AllowDBNull = false Me.columnCTRLSCR_TAB_STOP.AllowDBNull = false End Sub _ Public Function NewVWPMO_CONTROL_SCREENRow() As VWPMO_CONTROL_SCREENRow Return CType(Me.NewRow,VWPMO_CONTROL_SCREENRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_CONTROL_SCREENRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_CONTROL_SCREENRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_CONTROL_SCREENRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_CONTROL_SCREENRowChanged(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_CONTROL_SCREENRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_CONTROL_SCREENRowChanging(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_CONTROL_SCREENRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_CONTROL_SCREENRowDeleted(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_CONTROL_SCREENRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_CONTROL_SCREENRowDeleting(Me, New VWPMO_CONTROL_SCREENRowChangeEvent(CType(e.Row,VWPMO_CONTROL_SCREENRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_CONTROL_SCREENRow(ByVal row As VWPMO_CONTROL_SCREENRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_CONTROL_SCREENDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_FORM_VIEWDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_VIEWRow) Private columnGUID As Global.System.Data.DataColumn Private columnSCREEN_ID As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnDESCRIPTION As Global.System.Data.DataColumn Private columnWIDTH As Global.System.Data.DataColumn Private columnHEIGHT As Global.System.Data.DataColumn Private columnDIALOG As Global.System.Data.DataColumn Private columnMAXIMIZABLE As Global.System.Data.DataColumn Private columnMINIMIZABLE As Global.System.Data.DataColumn Private columnMAX_WIDTH As Global.System.Data.DataColumn Private columnMIN_WIDTH As Global.System.Data.DataColumn Private columnMAX_HEIGHT As Global.System.Data.DataColumn Private columnMIN_HEIGHT As Global.System.Data.DataColumn Private columnX_LOC As Global.System.Data.DataColumn Private columnY_LOC 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 columnIS_MDI_CHILD As Global.System.Data.DataColumn Private columnDOCUMENT_VIEW As Global.System.Data.DataColumn Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn Private columnALLOW_DROP As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_VIEW" 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 SCREEN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSCREEN_ID End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE End Get End Property _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION End Get End Property _ Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWIDTH End Get End Property _ Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnHEIGHT End Get End Property _ Public ReadOnly Property DIALOGColumn() As Global.System.Data.DataColumn Get Return Me.columnDIALOG End Get End Property _ Public ReadOnly Property MAXIMIZABLEColumn() As Global.System.Data.DataColumn Get Return Me.columnMAXIMIZABLE End Get End Property _ Public ReadOnly Property MINIMIZABLEColumn() As Global.System.Data.DataColumn Get Return Me.columnMINIMIZABLE End Get End Property _ Public ReadOnly Property MAX_WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnMAX_WIDTH End Get End Property _ Public ReadOnly Property MIN_WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnMIN_WIDTH End Get End Property _ Public ReadOnly Property MAX_HEIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnMAX_HEIGHT End Get End Property _ Public ReadOnly Property MIN_HEIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnMIN_HEIGHT End Get End Property _ Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnX_LOC End Get End Property _ Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnY_LOC 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 IS_MDI_CHILDColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_MDI_CHILD End Get End Property _ Public ReadOnly Property DOCUMENT_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCUMENT_VIEW End Get End Property _ Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDREAM_SEARCH End Get End Property _ Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN1 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN2 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN3 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN4 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN5 End Get End Property _ Public ReadOnly Property ALLOW_DROPColumn() As Global.System.Data.DataColumn Get Return Me.columnALLOW_DROP End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_VIEWRow Get Return CType(Me.Rows(index),TBPMO_FORM_VIEWRow) End Get End Property _ Public Event TBPMO_FORM_VIEWRowChanging As TBPMO_FORM_VIEWRowChangeEventHandler _ Public Event TBPMO_FORM_VIEWRowChanged As TBPMO_FORM_VIEWRowChangeEventHandler _ Public Event TBPMO_FORM_VIEWRowDeleting As TBPMO_FORM_VIEWRowChangeEventHandler _ Public Event TBPMO_FORM_VIEWRowDeleted As TBPMO_FORM_VIEWRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_VIEWRow(ByVal row As TBPMO_FORM_VIEWRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_VIEWRow( _ ByVal SCREEN_ID As Integer, _ ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID As TBPMO_FORMRow, _ ByVal FORM_TITLE As String, _ ByVal DESCRIPTION As String, _ ByVal WIDTH As Short, _ ByVal HEIGHT As Short, _ ByVal DIALOG As Boolean, _ ByVal MAXIMIZABLE As Boolean, _ ByVal MINIMIZABLE As Boolean, _ ByVal MAX_WIDTH As Short, _ ByVal MIN_WIDTH As Short, _ ByVal MAX_HEIGHT As Short, _ ByVal MIN_HEIGHT As Short, _ ByVal X_LOC As Double, _ ByVal Y_LOC As Double, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal IS_MDI_CHILD As Boolean, _ ByVal DOCUMENT_VIEW As Boolean, _ ByVal WINDREAM_SEARCH As String, _ ByVal SEARCH_PATTERN1 As String, _ ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String, _ ByVal ALLOW_DROP As Boolean) As TBPMO_FORM_VIEWRow Dim rowTBPMO_FORM_VIEWRow As TBPMO_FORM_VIEWRow = CType(Me.NewRow,TBPMO_FORM_VIEWRow) Dim columnValuesArray() As Object = New Object() {Nothing, SCREEN_ID, Nothing, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IS_MDI_CHILD, DOCUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, ALLOW_DROP} If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID) Is Nothing) Then columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID(0) End If rowTBPMO_FORM_VIEWRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_VIEWRow) Return rowTBPMO_FORM_VIEWRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_VIEWRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_VIEWRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_VIEWDataTable = CType(MyBase.Clone,TBPMO_FORM_VIEWDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_VIEWDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnWIDTH = MyBase.Columns("WIDTH") Me.columnHEIGHT = MyBase.Columns("HEIGHT") Me.columnDIALOG = MyBase.Columns("DIALOG") Me.columnMAXIMIZABLE = MyBase.Columns("MAXIMIZABLE") Me.columnMINIMIZABLE = MyBase.Columns("MINIMIZABLE") Me.columnMAX_WIDTH = MyBase.Columns("MAX_WIDTH") Me.columnMIN_WIDTH = MyBase.Columns("MIN_WIDTH") Me.columnMAX_HEIGHT = MyBase.Columns("MAX_HEIGHT") Me.columnMIN_HEIGHT = MyBase.Columns("MIN_HEIGHT") Me.columnX_LOC = MyBase.Columns("X_LOC") Me.columnY_LOC = MyBase.Columns("Y_LOC") 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.columnIS_MDI_CHILD = MyBase.Columns("IS_MDI_CHILD") Me.columnDOCUMENT_VIEW = MyBase.Columns("DOCUMENT_VIEW") Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") Me.columnALLOW_DROP = MyBase.Columns("ALLOW_DROP") 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.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSCREEN_ID) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDESCRIPTION) Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWIDTH) Me.columnHEIGHT = New Global.System.Data.DataColumn("HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHEIGHT) Me.columnDIALOG = New Global.System.Data.DataColumn("DIALOG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDIALOG) Me.columnMAXIMIZABLE = New Global.System.Data.DataColumn("MAXIMIZABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMAXIMIZABLE) Me.columnMINIMIZABLE = New Global.System.Data.DataColumn("MINIMIZABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMINIMIZABLE) Me.columnMAX_WIDTH = New Global.System.Data.DataColumn("MAX_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMAX_WIDTH) Me.columnMIN_WIDTH = New Global.System.Data.DataColumn("MIN_WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMIN_WIDTH) Me.columnMAX_HEIGHT = New Global.System.Data.DataColumn("MAX_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMAX_HEIGHT) Me.columnMIN_HEIGHT = New Global.System.Data.DataColumn("MIN_HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMIN_HEIGHT) Me.columnX_LOC = New Global.System.Data.DataColumn("X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnX_LOC) Me.columnY_LOC = New Global.System.Data.DataColumn("Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnY_LOC) 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.columnIS_MDI_CHILD = New Global.System.Data.DataColumn("IS_MDI_CHILD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIS_MDI_CHILD) Me.columnDOCUMENT_VIEW = New Global.System.Data.DataColumn("DOCUMENT_VIEW", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOCUMENT_VIEW) Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) Me.columnALLOW_DROP = New Global.System.Data.DataColumn("ALLOW_DROP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnALLOW_DROP) 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.columnSCREEN_ID.AllowDBNull = false Me.columnSCREEN_ID.DefaultValue = CType(1,Integer) Me.columnFORM_ID.AllowDBNull = false Me.columnFORM_TITLE.AllowDBNull = false Me.columnFORM_TITLE.MaxLength = 50 Me.columnDESCRIPTION.AllowDBNull = false Me.columnDESCRIPTION.MaxLength = 300 Me.columnDIALOG.AllowDBNull = false Me.columnMAXIMIZABLE.AllowDBNull = false Me.columnMINIMIZABLE.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnIS_MDI_CHILD.AllowDBNull = false Me.columnDOCUMENT_VIEW.AllowDBNull = false Me.columnWINDREAM_SEARCH.MaxLength = 300 Me.columnSEARCH_PATTERN1.MaxLength = 50 Me.columnSEARCH_PATTERN2.MaxLength = 50 Me.columnSEARCH_PATTERN3.MaxLength = 50 Me.columnSEARCH_PATTERN4.MaxLength = 50 Me.columnSEARCH_PATTERN5.MaxLength = 50 Me.columnALLOW_DROP.AllowDBNull = false End Sub _ Public Function NewTBPMO_FORM_VIEWRow() As TBPMO_FORM_VIEWRow Return CType(Me.NewRow,TBPMO_FORM_VIEWRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_VIEWRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_VIEWRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_VIEWRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_VIEWRowChanged(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_VIEWRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_VIEWRowChanging(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_VIEWRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_VIEWRowDeleted(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_VIEWRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_VIEWRowDeleting(Me, New TBPMO_FORM_VIEWRowChangeEvent(CType(e.Row,TBPMO_FORM_VIEWRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORM_VIEWRow(ByVal row As TBPMO_FORM_VIEWRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FORM_VIEWDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_RECORDDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORDRow) Private columnGUID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_RECORD" 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 ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RECORDRow Get Return CType(Me.Rows(index),TBPMO_RECORDRow) End Get End Property _ Public Event TBPMO_RECORDRowChanging As TBPMO_RECORDRowChangeEventHandler _ Public Event TBPMO_RECORDRowChanged As TBPMO_RECORDRowChangeEventHandler _ Public Event TBPMO_RECORDRowDeleting As TBPMO_RECORDRowChangeEventHandler _ Public Event TBPMO_RECORDRowDeleted As TBPMO_RECORDRowChangeEventHandler _ Public Overloads Sub AddTBPMO_RECORDRow(ByVal row As TBPMO_RECORDRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_RECORDRow(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RECORDRow Dim rowTBPMO_RECORDRow As TBPMO_RECORDRow = CType(Me.NewRow,TBPMO_RECORDRow) Dim columnValuesArray() As Object = New Object() {Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_RECORDRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_RECORDRow) Return rowTBPMO_RECORDRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORDRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORDRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_RECORDDataTable = CType(MyBase.Clone,TBPMO_RECORDDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_RECORDDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_RECORDRow() As TBPMO_RECORDRow Return CType(Me.NewRow,TBPMO_RECORDRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_RECORDRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_RECORDRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_RECORDRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_RECORDRowChanged(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_RECORDRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_RECORDRowChanging(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_RECORDRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_RECORDRowDeleted(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_RECORDRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_RECORDRowDeleting(Me, New TBPMO_RECORDRowChangeEvent(CType(e.Row,TBPMO_RECORDRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_RECORDRow(ByVal row As TBPMO_RECORDRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_RECORDDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_DOKUMENTTYPESDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_DOKUMENTTYPESRow) Private columnFORMVIEW_ID As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnDOKUMENTTYPE_ID As Global.System.Data.DataColumn Private columnDOKUMENTTYPE As Global.System.Data.DataColumn Private columnPATH As Global.System.Data.DataColumn Private columnSHORTNAME As Global.System.Data.DataColumn Private columnOBJECT_TYPE As Global.System.Data.DataColumn Private columnFW_DOCTYPE_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_DOKUMENTTYPES" 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 FORMVIEW_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORMVIEW_ID End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE End Get End Property _ Public ReadOnly Property DOKUMENTTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTTYPE_ID End Get End Property _ Public ReadOnly Property DOKUMENTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTTYPE End Get End Property _ Public ReadOnly Property PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH End Get End Property _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME End Get End Property _ Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECT_TYPE End Get End Property _ Public ReadOnly Property FW_DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFW_DOCTYPE_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 VWPMO_DOKUMENTTYPESRow Get Return CType(Me.Rows(index),VWPMO_DOKUMENTTYPESRow) End Get End Property _ Public Event VWPMO_DOKUMENTTYPESRowChanging As VWPMO_DOKUMENTTYPESRowChangeEventHandler _ Public Event VWPMO_DOKUMENTTYPESRowChanged As VWPMO_DOKUMENTTYPESRowChangeEventHandler _ Public Event VWPMO_DOKUMENTTYPESRowDeleting As VWPMO_DOKUMENTTYPESRowChangeEventHandler _ Public Event VWPMO_DOKUMENTTYPESRowDeleted As VWPMO_DOKUMENTTYPESRowChangeEventHandler _ Public Overloads Sub AddVWPMO_DOKUMENTTYPESRow(ByVal row As VWPMO_DOKUMENTTYPESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_DOKUMENTTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_ID As Integer, ByVal FORM_TITLE As String, ByVal DOKUMENTTYPE_ID As Integer, ByVal DOKUMENTTYPE As String, ByVal PATH As String, ByVal SHORTNAME As String, ByVal OBJECT_TYPE As String, ByVal FW_DOCTYPE_ID As Integer) As VWPMO_DOKUMENTTYPESRow Dim rowVWPMO_DOKUMENTTYPESRow As VWPMO_DOKUMENTTYPESRow = CType(Me.NewRow,VWPMO_DOKUMENTTYPESRow) Dim columnValuesArray() As Object = New Object() {FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PATH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID} rowVWPMO_DOKUMENTTYPESRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_DOKUMENTTYPESRow) Return rowVWPMO_DOKUMENTTYPESRow End Function _ Public Function FindByDOKUMENTTYPE_ID(ByVal DOKUMENTTYPE_ID As Integer) As VWPMO_DOKUMENTTYPESRow Return CType(Me.Rows.Find(New Object() {DOKUMENTTYPE_ID}),VWPMO_DOKUMENTTYPESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_DOKUMENTTYPESDataTable = CType(MyBase.Clone,VWPMO_DOKUMENTTYPESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_DOKUMENTTYPESDataTable() End Function _ Friend Sub InitVars() Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnDOKUMENTTYPE_ID = MyBase.Columns("DOKUMENTTYPE_ID") Me.columnDOKUMENTTYPE = MyBase.Columns("DOKUMENTTYPE") Me.columnPATH = MyBase.Columns("PATH") Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") Me.columnFW_DOCTYPE_ID = MyBase.Columns("FW_DOCTYPE_ID") End Sub _ Private Sub InitClass() Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORMVIEW_ID) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnDOKUMENTTYPE_ID = New Global.System.Data.DataColumn("DOKUMENTTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOKUMENTTYPE_ID) Me.columnDOKUMENTTYPE = New Global.System.Data.DataColumn("DOKUMENTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOKUMENTTYPE) Me.columnPATH = New Global.System.Data.DataColumn("PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH) Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHORTNAME) Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBJECT_TYPE) Me.columnFW_DOCTYPE_ID = New Global.System.Data.DataColumn("FW_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFW_DOCTYPE_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnDOKUMENTTYPE_ID}, true)) Me.columnFORMVIEW_ID.AllowDBNull = false Me.columnFORM_ID.AllowDBNull = false Me.columnFORM_TITLE.AllowDBNull = false Me.columnFORM_TITLE.MaxLength = 50 Me.columnDOKUMENTTYPE_ID.AllowDBNull = false Me.columnDOKUMENTTYPE_ID.Unique = true Me.columnDOKUMENTTYPE.AllowDBNull = false Me.columnDOKUMENTTYPE.MaxLength = 50 Me.columnPATH.AllowDBNull = false Me.columnPATH.MaxLength = 250 Me.columnSHORTNAME.AllowDBNull = false Me.columnSHORTNAME.MaxLength = 50 Me.columnOBJECT_TYPE.AllowDBNull = false Me.columnOBJECT_TYPE.MaxLength = 100 Me.columnFW_DOCTYPE_ID.AllowDBNull = false End Sub _ Public Function NewVWPMO_DOKUMENTTYPESRow() As VWPMO_DOKUMENTTYPESRow Return CType(Me.NewRow,VWPMO_DOKUMENTTYPESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_DOKUMENTTYPESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_DOKUMENTTYPESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_DOKUMENTTYPESRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_DOKUMENTTYPESRowChanged(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_DOKUMENTTYPESRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_DOKUMENTTYPESRowChanging(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_DOKUMENTTYPESRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_DOKUMENTTYPESRowDeleted(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_DOKUMENTTYPESRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_DOKUMENTTYPESRowDeleting(Me, New VWPMO_DOKUMENTTYPESRowChangeEvent(CType(e.Row,VWPMO_DOKUMENTTYPESRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_DOKUMENTTYPESRow(ByVal row As VWPMO_DOKUMENTTYPESRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_DOKUMENTTYPESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WD_FVIEW_DT_INDEXDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FVIEW_DT_INDEXRow) Private columnGUID As Global.System.Data.DataColumn Private columnFW_DOCTYPE_ID As Global.System.Data.DataColumn Private columnINDEXNAME As Global.System.Data.DataColumn Private columnINDEX_VALUE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WD_FVIEW_DT_INDEX" 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 FW_DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFW_DOCTYPE_ID End Get End Property _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property _ Public ReadOnly Property INDEX_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEX_VALUE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_FVIEW_DT_INDEXRow Get Return CType(Me.Rows(index),TBPMO_WD_FVIEW_DT_INDEXRow) End Get End Property _ Public Event TBPMO_WD_FVIEW_DT_INDEXRowChanging As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler _ Public Event TBPMO_WD_FVIEW_DT_INDEXRowChanged As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler _ Public Event TBPMO_WD_FVIEW_DT_INDEXRowDeleting As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler _ Public Event TBPMO_WD_FVIEW_DT_INDEXRowDeleted As TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WD_FVIEW_DT_INDEXRow(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WD_FVIEW_DT_INDEXRow(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_FVIEW_DT_INDEXRow Dim rowTBPMO_WD_FVIEW_DT_INDEXRow As TBPMO_WD_FVIEW_DT_INDEXRow = CType(Me.NewRow,TBPMO_WD_FVIEW_DT_INDEXRow) Dim columnValuesArray() As Object = New Object() {Nothing, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_WD_FVIEW_DT_INDEXRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_FVIEW_DT_INDEXRow) Return rowTBPMO_WD_FVIEW_DT_INDEXRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FVIEW_DT_INDEXRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FVIEW_DT_INDEXRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WD_FVIEW_DT_INDEXDataTable = CType(MyBase.Clone,TBPMO_WD_FVIEW_DT_INDEXDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WD_FVIEW_DT_INDEXDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFW_DOCTYPE_ID = MyBase.Columns("FW_DOCTYPE_ID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnINDEX_VALUE = MyBase.Columns("INDEX_VALUE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFW_DOCTYPE_ID = New Global.System.Data.DataColumn("FW_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFW_DOCTYPE_ID) Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) Me.columnINDEX_VALUE = New Global.System.Data.DataColumn("INDEX_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEX_VALUE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFW_DOCTYPE_ID.AllowDBNull = false Me.columnINDEXNAME.AllowDBNull = false Me.columnINDEXNAME.MaxLength = 100 Me.columnINDEX_VALUE.AllowDBNull = false Me.columnINDEX_VALUE.MaxLength = 100 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_WD_FVIEW_DT_INDEXRow() As TBPMO_WD_FVIEW_DT_INDEXRow Return CType(Me.NewRow,TBPMO_WD_FVIEW_DT_INDEXRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WD_FVIEW_DT_INDEXRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WD_FVIEW_DT_INDEXRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowChanged(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowChanging(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowDeleted(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WD_FVIEW_DT_INDEXRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FVIEW_DT_INDEXRowDeleting(Me, New TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent(CType(e.Row,TBPMO_WD_FVIEW_DT_INDEXRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WD_FVIEW_DT_INDEXRow(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WD_FVIEW_DT_INDEXDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WORKFLOW_TASKDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASKRow) Private columnGUID As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnWF_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDUE_DATE As Global.System.Data.DataColumn Private columnSTATE_ID As Global.System.Data.DataColumn Private columnACTIVE 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 columnTITLE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WORKFLOW_TASK" 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 RECORD_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_ID End Get End Property _ Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_ID End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDUE_DATE End Get End Property _ Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_ID End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property ADDED_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 TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WORKFLOW_TASKRow Get Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASKRow) End Get End Property _ Public Event TBPMO_WORKFLOW_TASKRowChanging As TBPMO_WORKFLOW_TASKRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASKRowChanged As TBPMO_WORKFLOW_TASKRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASKRowDeleting As TBPMO_WORKFLOW_TASKRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASKRowDeleted As TBPMO_WORKFLOW_TASKRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WORKFLOW_TASKRow(ByVal row As TBPMO_WORKFLOW_TASKRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WORKFLOW_TASKRow(ByVal RECORD_ID As Integer, ByVal WF_ID As Integer, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TITLE As String) As TBPMO_WORKFLOW_TASKRow Dim rowTBPMO_WORKFLOW_TASKRow As TBPMO_WORKFLOW_TASKRow = CType(Me.NewRow,TBPMO_WORKFLOW_TASKRow) Dim columnValuesArray() As Object = New Object() {Nothing, RECORD_ID, WF_ID, COMMENT, DUE_DATE, STATE_ID, ACTIVE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TITLE} rowTBPMO_WORKFLOW_TASKRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WORKFLOW_TASKRow) Return rowTBPMO_WORKFLOW_TASKRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASKRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASKRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WORKFLOW_TASKDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASKDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WORKFLOW_TASKDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnWF_ID = MyBase.Columns("WF_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") Me.columnSTATE_ID = MyBase.Columns("STATE_ID") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnTITLE = MyBase.Columns("TITLE") 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.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ID) Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDUE_DATE) Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_ID) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) 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.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) 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.columnRECORD_ID.AllowDBNull = false Me.columnWF_ID.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 Me.columnSTATE_ID.AllowDBNull = false Me.columnACTIVE.AllowDBNull = false Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 100 End Sub _ Public Function NewTBPMO_WORKFLOW_TASKRow() As TBPMO_WORKFLOW_TASKRow Return CType(Me.NewRow,TBPMO_WORKFLOW_TASKRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WORKFLOW_TASKRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WORKFLOW_TASKRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WORKFLOW_TASKRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASKRowChanged(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WORKFLOW_TASKRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASKRowChanging(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WORKFLOW_TASKRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASKRowDeleted(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WORKFLOW_TASKRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASKRowDeleting(Me, New TBPMO_WORKFLOW_TASKRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASKRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WORKFLOW_TASKRow(ByVal row As TBPMO_WORKFLOW_TASKRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WORKFLOW_TASKDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WORKFLOW_TASK_STATEDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASK_STATERow) Private columnGUID As Global.System.Data.DataColumn Private columnSTATE_DESC 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 columnCOLOR As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WORKFLOW_TASK_STATE" 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 STATE_DESCColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_DESC 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 COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WORKFLOW_TASK_STATERow Get Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASK_STATERow) End Get End Property _ Public Event TBPMO_WORKFLOW_TASK_STATERowChanging As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASK_STATERowChanged As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASK_STATERowDeleting As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASK_STATERowDeleted As TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler _ Public Overloads Sub AddTBPMO_WORKFLOW_TASK_STATERow(ByVal row As TBPMO_WORKFLOW_TASK_STATERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WORKFLOW_TASK_STATERow(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COLOR As String) As TBPMO_WORKFLOW_TASK_STATERow Dim rowTBPMO_WORKFLOW_TASK_STATERow As TBPMO_WORKFLOW_TASK_STATERow = CType(Me.NewRow,TBPMO_WORKFLOW_TASK_STATERow) Dim columnValuesArray() As Object = New Object() {Nothing, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR} rowTBPMO_WORKFLOW_TASK_STATERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WORKFLOW_TASK_STATERow) Return rowTBPMO_WORKFLOW_TASK_STATERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASK_STATERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASK_STATERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WORKFLOW_TASK_STATEDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASK_STATEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WORKFLOW_TASK_STATEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") 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.columnCOLOR = MyBase.Columns("COLOR") 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.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_DESC) 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.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLOR) 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.columnSTATE_DESC.AllowDBNull = false Me.columnSTATE_DESC.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOLOR.MaxLength = 20 End Sub _ Public Function NewTBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow Return CType(Me.NewRow,TBPMO_WORKFLOW_TASK_STATERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WORKFLOW_TASK_STATERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WORKFLOW_TASK_STATERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_STATERowChanged(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_STATERowChanging(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_STATERowDeleted(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WORKFLOW_TASK_STATERowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_STATERowDeleting(Me, New TBPMO_WORKFLOW_TASK_STATERowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_STATERow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WORKFLOW_TASK_STATERow(ByVal row As TBPMO_WORKFLOW_TASK_STATERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WORKFLOW_TASK_STATEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_GUI_ENTITYDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_GUI_ENTITYRow) Private columnID As Global.System.Data.DataColumn Private columnName As Global.System.Data.DataColumn Private columnTitle As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_GUI_ENTITY" 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 TitleColumn() As Global.System.Data.DataColumn Get Return Me.columnTitle End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_GUI_ENTITYRow Get Return CType(Me.Rows(index),VWPMO_GUI_ENTITYRow) End Get End Property _ Public Event VWPMO_GUI_ENTITYRowChanging As VWPMO_GUI_ENTITYRowChangeEventHandler _ Public Event VWPMO_GUI_ENTITYRowChanged As VWPMO_GUI_ENTITYRowChangeEventHandler _ Public Event VWPMO_GUI_ENTITYRowDeleting As VWPMO_GUI_ENTITYRowChangeEventHandler _ Public Event VWPMO_GUI_ENTITYRowDeleted As VWPMO_GUI_ENTITYRowChangeEventHandler _ Public Overloads Sub AddVWPMO_GUI_ENTITYRow(ByVal row As VWPMO_GUI_ENTITYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_GUI_ENTITYRow(ByVal Name As String, ByVal Title As String) As VWPMO_GUI_ENTITYRow Dim rowVWPMO_GUI_ENTITYRow As VWPMO_GUI_ENTITYRow = CType(Me.NewRow,VWPMO_GUI_ENTITYRow) Dim columnValuesArray() As Object = New Object() {Nothing, Name, Title} rowVWPMO_GUI_ENTITYRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_GUI_ENTITYRow) Return rowVWPMO_GUI_ENTITYRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_GUI_ENTITYDataTable = CType(MyBase.Clone,VWPMO_GUI_ENTITYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_GUI_ENTITYDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnName = MyBase.Columns("Name") Me.columnTitle = MyBase.Columns("Title") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName) Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTitle) Me.columnID.AutoIncrement = true Me.columnID.AutoIncrementSeed = -1 Me.columnID.AutoIncrementStep = -1 Me.columnID.AllowDBNull = false Me.columnID.ReadOnly = true Me.columnName.AllowDBNull = false Me.columnName.MaxLength = 100 Me.columnTitle.AllowDBNull = false Me.columnTitle.MaxLength = 50 End Sub _ Public Function NewVWPMO_GUI_ENTITYRow() As VWPMO_GUI_ENTITYRow Return CType(Me.NewRow,VWPMO_GUI_ENTITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_GUI_ENTITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_GUI_ENTITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_GUI_ENTITYRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_GUI_ENTITYRowChanged(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_GUI_ENTITYRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_GUI_ENTITYRowChanging(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_GUI_ENTITYRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_GUI_ENTITYRowDeleted(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_GUI_ENTITYRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_GUI_ENTITYRowDeleting(Me, New VWPMO_GUI_ENTITYRowChangeEvent(CType(e.Row,VWPMO_GUI_ENTITYRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_GUI_ENTITYRow(ByVal row As VWPMO_GUI_ENTITYRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_GUI_ENTITYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WORKFLOWDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOWRow) Private columnGUID As Global.System.Data.DataColumn Private columnTITLE As Global.System.Data.DataColumn Private columnDESCRIPTION As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WORKFLOW" 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 TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WORKFLOWRow Get Return CType(Me.Rows(index),TBPMO_WORKFLOWRow) End Get End Property _ Public Event TBPMO_WORKFLOWRowChanging As TBPMO_WORKFLOWRowChangeEventHandler _ Public Event TBPMO_WORKFLOWRowChanged As TBPMO_WORKFLOWRowChangeEventHandler _ Public Event TBPMO_WORKFLOWRowDeleting As TBPMO_WORKFLOWRowChangeEventHandler _ Public Event TBPMO_WORKFLOWRowDeleted As TBPMO_WORKFLOWRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WORKFLOWRow(ByVal row As TBPMO_WORKFLOWRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WORKFLOWRow(ByVal TITLE As String, ByVal DESCRIPTION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOWRow Dim rowTBPMO_WORKFLOWRow As TBPMO_WORKFLOWRow = CType(Me.NewRow,TBPMO_WORKFLOWRow) Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_WORKFLOWRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WORKFLOWRow) Return rowTBPMO_WORKFLOWRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOWRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOWRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WORKFLOWDataTable = CType(MyBase.Clone,TBPMO_WORKFLOWDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WORKFLOWDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnTITLE = MyBase.Columns("TITLE") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDESCRIPTION) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 100 Me.columnDESCRIPTION.MaxLength = 250 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow Return CType(Me.NewRow,TBPMO_WORKFLOWRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WORKFLOWRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WORKFLOWRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WORKFLOWRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOWRowChanged(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WORKFLOWRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOWRowChanging(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WORKFLOWRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOWRowDeleted(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WORKFLOWRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOWRowDeleting(Me, New TBPMO_WORKFLOWRowChangeEvent(CType(e.Row,TBPMO_WORKFLOWRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WORKFLOWRow(ByVal row As TBPMO_WORKFLOWRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WORKFLOWDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WORKFLOW_FORMDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_FORMRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnWF_ID 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 _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WORKFLOW_FORM" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_ID 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WORKFLOW_FORMRow Get Return CType(Me.Rows(index),TBPMO_WORKFLOW_FORMRow) End Get End Property _ Public Event TBPMO_WORKFLOW_FORMRowChanging As TBPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_FORMRowChanged As TBPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_FORMRowDeleting As TBPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_FORMRowDeleted As TBPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WORKFLOW_FORMRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID As TBPMO_FORMRow, ByVal parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID As TBPMO_WORKFLOWRow, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOW_FORMRow Dim rowTBPMO_WORKFLOW_FORMRow As TBPMO_WORKFLOW_FORMRow = CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID(0) End If If (Not (parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID) Is Nothing) Then columnValuesArray(2) = parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID(0) End If rowTBPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WORKFLOW_FORMRow) Return rowTBPMO_WORKFLOW_FORMRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_FORMRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_FORMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_FORMDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WORKFLOW_FORMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnWF_ID = MyBase.Columns("WF_ID") 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") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_ID) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORM_ID.AllowDBNull = false Me.columnWF_ID.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_WORKFLOW_FORMRow() As TBPMO_WORKFLOW_FORMRow Return CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WORKFLOW_FORMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WORKFLOW_FORMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_FORMRowChanged(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_FORMRowChanging(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_FORMRowDeleted(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_FORMRowDeleting(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WORKFLOW_FORMDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_WF_USER_ACTIVEDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_USER_ACTIVERow) Private columnWF_TASK_ID As Global.System.Data.DataColumn Private columnTITLE As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnSTATE_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDUE_DATE As Global.System.Data.DataColumn Private columnUSERNAME 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 columnTASK_DATE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_WF_USER_ACTIVE" 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_TASK_ID End Get End Property _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_ID End Get End Property _ Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_ID End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDUE_DATE End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME 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 TASK_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnTASK_DATE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_USER_ACTIVERow Get Return CType(Me.Rows(index),VWPMO_WF_USER_ACTIVERow) End Get End Property _ Public Event VWPMO_WF_USER_ACTIVERowChanging As VWPMO_WF_USER_ACTIVERowChangeEventHandler _ Public Event VWPMO_WF_USER_ACTIVERowChanged As VWPMO_WF_USER_ACTIVERowChangeEventHandler _ Public Event VWPMO_WF_USER_ACTIVERowDeleting As VWPMO_WF_USER_ACTIVERowChangeEventHandler _ Public Event VWPMO_WF_USER_ACTIVERowDeleted As VWPMO_WF_USER_ACTIVERowChangeEventHandler _ Public Overloads Sub AddVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_WF_USER_ACTIVERow(ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_USER_ACTIVERow Dim rowVWPMO_WF_USER_ACTIVERow As VWPMO_WF_USER_ACTIVERow = CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID) Is Nothing) Then columnValuesArray(2) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID(0) End If If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID) Is Nothing) Then columnValuesArray(3) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID(0) End If rowVWPMO_WF_USER_ACTIVERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_WF_USER_ACTIVERow) Return rowVWPMO_WF_USER_ACTIVERow End Function _ Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_USER_ACTIVERow Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_USER_ACTIVERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_WF_USER_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_USER_ACTIVEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_WF_USER_ACTIVEDataTable() End Function _ Friend Sub InitVars() Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") Me.columnTITLE = MyBase.Columns("TITLE") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnSTATE_ID = MyBase.Columns("STATE_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") End Sub _ Private Sub InitClass() Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_TASK_ID) Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ID) Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDUE_DATE) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTASK_DATE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) Me.columnWF_TASK_ID.AutoIncrement = true Me.columnWF_TASK_ID.AutoIncrementSeed = -1 Me.columnWF_TASK_ID.AutoIncrementStep = -1 Me.columnWF_TASK_ID.AllowDBNull = false Me.columnWF_TASK_ID.ReadOnly = true Me.columnWF_TASK_ID.Unique = true Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 100 Me.columnRECORD_ID.AllowDBNull = false Me.columnSTATE_ID.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 Me.columnUSERNAME.ReadOnly = true Me.columnUSERNAME.MaxLength = 1024 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewVWPMO_WF_USER_ACTIVERow() As VWPMO_WF_USER_ACTIVERow Return CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_WF_USER_ACTIVERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_WF_USER_ACTIVERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_WF_USER_ACTIVERowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_WF_USER_ACTIVERowChanged(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_WF_USER_ACTIVERowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_WF_USER_ACTIVERowChanging(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_WF_USER_ACTIVERowDeleted(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_WF_USER_ACTIVERowDeleting(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_WF_USER_ACTIVEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_FOLLOWING_TASKSDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_FOLLOWING_TASKSRow) Private columnJOB As Global.System.Data.DataColumn Private columnWF_TASK_ID As Global.System.Data.DataColumn Private columnTITLE As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnSTATE_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDUE_DATE As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_FOLLOWING_TASKS" 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 JOBColumn() As Global.System.Data.DataColumn Get Return Me.columnJOB End Get End Property _ Public ReadOnly Property WF_TASK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_TASK_ID End Get End Property _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_ID End Get End Property _ Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_ID End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDUE_DATE End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_FOLLOWING_TASKSRow Get Return CType(Me.Rows(index),VWPMO_FOLLOWING_TASKSRow) End Get End Property _ Public Event VWPMO_FOLLOWING_TASKSRowChanging As VWPMO_FOLLOWING_TASKSRowChangeEventHandler _ Public Event VWPMO_FOLLOWING_TASKSRowChanged As VWPMO_FOLLOWING_TASKSRowChangeEventHandler _ Public Event VWPMO_FOLLOWING_TASKSRowDeleting As VWPMO_FOLLOWING_TASKSRowChangeEventHandler _ Public Event VWPMO_FOLLOWING_TASKSRowDeleted As VWPMO_FOLLOWING_TASKSRowChangeEventHandler _ Public Overloads Sub AddVWPMO_FOLLOWING_TASKSRow(ByVal row As VWPMO_FOLLOWING_TASKSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_FOLLOWING_TASKSRow(ByVal JOB As String, ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1 As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1 As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_FOLLOWING_TASKSRow Dim rowVWPMO_FOLLOWING_TASKSRow As VWPMO_FOLLOWING_TASKSRow = CType(Me.NewRow,VWPMO_FOLLOWING_TASKSRow) Dim columnValuesArray() As Object = New Object() {JOB, Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1) Is Nothing) Then columnValuesArray(3) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID1(0) End If If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1) Is Nothing) Then columnValuesArray(4) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID1(0) End If rowVWPMO_FOLLOWING_TASKSRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_FOLLOWING_TASKSRow) Return rowVWPMO_FOLLOWING_TASKSRow End Function _ Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_FOLLOWING_TASKSRow Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_FOLLOWING_TASKSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_FOLLOWING_TASKSDataTable = CType(MyBase.Clone,VWPMO_FOLLOWING_TASKSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_FOLLOWING_TASKSDataTable() End Function _ Friend Sub InitVars() Me.columnJOB = MyBase.Columns("JOB") Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") Me.columnTITLE = MyBase.Columns("TITLE") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnSTATE_ID = MyBase.Columns("STATE_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnJOB = New Global.System.Data.DataColumn("JOB", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnJOB) Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_TASK_ID) Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ID) Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDUE_DATE) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) Me.columnJOB.MaxLength = 100 Me.columnWF_TASK_ID.AutoIncrement = true Me.columnWF_TASK_ID.AutoIncrementSeed = -1 Me.columnWF_TASK_ID.AutoIncrementStep = -1 Me.columnWF_TASK_ID.AllowDBNull = false Me.columnWF_TASK_ID.ReadOnly = true Me.columnWF_TASK_ID.Unique = true Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 100 Me.columnRECORD_ID.AllowDBNull = false Me.columnSTATE_ID.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 Me.columnUSERNAME.ReadOnly = true Me.columnUSERNAME.MaxLength = 1024 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewVWPMO_FOLLOWING_TASKSRow() As VWPMO_FOLLOWING_TASKSRow Return CType(Me.NewRow,VWPMO_FOLLOWING_TASKSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_FOLLOWING_TASKSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_FOLLOWING_TASKSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_FOLLOWING_TASKSRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_FOLLOWING_TASKSRowChanged(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_FOLLOWING_TASKSRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_FOLLOWING_TASKSRowChanging(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_FOLLOWING_TASKSRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_FOLLOWING_TASKSRowDeleted(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_FOLLOWING_TASKSRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_FOLLOWING_TASKSRowDeleting(Me, New VWPMO_FOLLOWING_TASKSRowChangeEvent(CType(e.Row,VWPMO_FOLLOWING_TASKSRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_FOLLOWING_TASKSRow(ByVal row As VWPMO_FOLLOWING_TASKSRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_FOLLOWING_TASKSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_OVERVIEW_AUTHORITYRow) Private columnSTATE As Global.System.Data.DataColumn Private columnSTATE_ID As Global.System.Data.DataColumn Private columnAuthority As Global.System.Data.DataColumn Private columnString As Global.System.Data.DataColumn Private columnWF_ID As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnCOLOR As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_WF_OVERVIEW_AUTHORITY" 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 STATEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE End Get End Property _ Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_ID End Get End Property _ Public ReadOnly Property AuthorityColumn() As Global.System.Data.DataColumn Get Return Me.columnAuthority End Get End Property _ Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString End Get End Property _ Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_ID End Get End Property _ Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_ID End Get End Property _ Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_OVERVIEW_AUTHORITYRow Get Return CType(Me.Rows(index),VWPMO_WF_OVERVIEW_AUTHORITYRow) End Get End Property _ Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanging As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanged As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ Public Overloads Sub AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal STATE As String, ByVal Authority As String, ByVal _String As String, ByVal WF_ID As Integer, ByVal RECORD_ID As Integer, ByVal COLOR As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_WF_OVERVIEW_AUTHORITYRow Dim rowVWPMO_WF_OVERVIEW_AUTHORITYRow As VWPMO_WF_OVERVIEW_AUTHORITYRow = CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) Dim columnValuesArray() As Object = New Object() {STATE, Nothing, Authority, _String, WF_ID, RECORD_ID, COLOR, CHANGED_WHO, CHANGED_WHEN} rowVWPMO_WF_OVERVIEW_AUTHORITYRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_WF_OVERVIEW_AUTHORITYRow) Return rowVWPMO_WF_OVERVIEW_AUTHORITYRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_WF_OVERVIEW_AUTHORITYDataTable = CType(MyBase.Clone,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() End Function _ Friend Sub InitVars() Me.columnSTATE = MyBase.Columns("STATE") Me.columnSTATE_ID = MyBase.Columns("STATE_ID") Me.columnAuthority = MyBase.Columns("Authority") Me.columnString = MyBase.Columns("String") Me.columnWF_ID = MyBase.Columns("WF_ID") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnCOLOR = MyBase.Columns("COLOR") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE) Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_ID) Me.columnAuthority = New Global.System.Data.DataColumn("Authority", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAuthority) Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") MyBase.Columns.Add(Me.columnString) Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_ID) Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ID) Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLOR) 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.columnSTATE.ReadOnly = true Me.columnSTATE.MaxLength = 153 Me.columnSTATE_ID.AutoIncrement = true Me.columnSTATE_ID.AutoIncrementSeed = -1 Me.columnSTATE_ID.AutoIncrementStep = -1 Me.columnSTATE_ID.AllowDBNull = false Me.columnSTATE_ID.ReadOnly = true Me.columnAuthority.ReadOnly = true Me.columnAuthority.MaxLength = 102 Me.columnString.ReadOnly = true Me.columnString.MaxLength = 258 Me.columnWF_ID.AllowDBNull = false Me.columnRECORD_ID.AllowDBNull = false Me.columnCOLOR.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewVWPMO_WF_OVERVIEW_AUTHORITYRow() As VWPMO_WF_OVERVIEW_AUTHORITYRow Return CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_WF_OVERVIEW_AUTHORITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_WF_OVERVIEW_AUTHORITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanged(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanging(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_WF_OVERVIEW_AUTHORITYDataTable" 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_DOKUMENTARTDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) Private columnGUID As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnEINGANGSART_ID As Global.System.Data.DataColumn Private columnKURZNAME As Global.System.Data.DataColumn Private columnZIEL_PFAD As Global.System.Data.DataColumn Private columnBESCHREIBUNG As Global.System.Data.DataColumn Private columnAKTIV As Global.System.Data.DataColumn Private columnNAMENKONVENTION 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 Private columnOBJEKTTYP As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_DOKUMENTART" 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 EINGANGSART_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEINGANGSART_ID End Get End Property _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME End Get End Property _ Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn Get Return Me.columnZIEL_PFAD End Get End Property _ Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG End Get End Property _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV End Get End Property _ Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnNAMENKONVENTION 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 OBJEKTTYPColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJEKTTYP 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_DOKUMENTARTRow Get Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) End Get End Property _ Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler _ Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String) As TBDD_DOKUMENTARTRow Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP} If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) End If rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_DOKUMENTARTRow) Return rowTBDD_DOKUMENTARTRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_DOKUMENTARTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") Me.columnKURZNAME = MyBase.Columns("KURZNAME") Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") Me.columnAKTIV = MyBase.Columns("AKTIV") Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") 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.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEINGANGSART_ID) Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKURZNAME) Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnZIEL_PFAD) Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBESCHREIBUNG) Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTIV) Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAMENKONVENTION) 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.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBJEKTTYP) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnBEZEICHNUNG.AllowDBNull = false Me.columnBEZEICHNUNG.MaxLength = 50 Me.columnEINGANGSART_ID.AllowDBNull = false Me.columnEINGANGSART_ID.DefaultValue = CType(5,Byte) Me.columnKURZNAME.AllowDBNull = false Me.columnKURZNAME.MaxLength = 50 Me.columnZIEL_PFAD.AllowDBNull = false Me.columnZIEL_PFAD.MaxLength = 250 Me.columnBESCHREIBUNG.MaxLength = 250 Me.columnAKTIV.AllowDBNull = false Me.columnAKTIV.DefaultValue = CType(false,Boolean) Me.columnNAMENKONVENTION.MaxLength = 500 Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 Me.columnOBJEKTTYP.AllowDBNull = false Me.columnOBJEKTTYP.MaxLength = 50 End Sub _ Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_DOKUMENTARTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_DOKUMENTARTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() 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_DOKUMENTARTDataTable" 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_EINGANGSARTENDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) Private columnGUID As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnBESCHREIBUNG 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_EINGANGSARTEN" 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 BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG 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_EINGANGSARTENRow Get Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) End Get End Property _ Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler _ Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler _ Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler _ Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler _ Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_EINGANGSARTENRow) Return rowTBDD_EINGANGSARTENRow End Function _ Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EINGANGSARTENDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") 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(Byte), 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.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBESCHREIBUNG) 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.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnBEZEICHNUNG.AllowDBNull = false Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnBESCHREIBUNG.MaxLength = 500 Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub _ Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EINGANGSARTENRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EINGANGSARTENRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() 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_EINGANGSARTENDataTable" 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_INDEX_AUTOMDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) Private columnGUID As Global.System.Data.DataColumn Private columnDOCTYPE_ID As Global.System.Data.DataColumn Private columnINDEXNAME As Global.System.Data.DataColumn Private columnVALUE As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_INDEX_AUTOM" 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 DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID End Get End Property _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE End Get End Property _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow Get Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) End Get End Property _ Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler _ Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) End If rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) Return rowTBDD_INDEX_AUTOMRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_INDEX_AUTOMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnVALUE = MyBase.Columns("VALUE") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") 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.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOCTYPE_ID) Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONNECTION_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.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.columnDOCTYPE_ID.AllowDBNull = false Me.columnINDEXNAME.AllowDBNull = false Me.columnINDEXNAME.MaxLength = 50 Me.columnVALUE.MaxLength = 2000 Me.columnCONNECTION_ID.AllowDBNull = false Me.columnCONNECTION_ID.DefaultValue = CType(0,Short) Me.columnCOMMENT.MaxLength = 400 Me.columnACTIVE.AllowDBNull = false Me.columnACTIVE.DefaultValue = CType(true,Boolean) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_INDEX_AUTOMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_INDEX_AUTOMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() 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_INDEX_AUTOMDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FORMVIEW_DOKTYPESRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORMVIEW_ID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnDOCTYPE_ID As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WD_FORMVIEW_DOKTYPES" 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 FORMVIEW_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORMVIEW_ID End Get End Property _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE End Get End Property _ Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID End Get End Property _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow Get Return CType(Me.Rows(index),TBPMO_WD_FORMVIEW_DOKTYPESRow) End Get End Property _ Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanging As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanged As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_TITLE As String, ByVal DOCTYPE_ID As Integer, ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_FORMVIEW_DOKTYPESRow Dim rowTBPMO_WD_FORMVIEW_DOKTYPESRow As TBPMO_WD_FORMVIEW_DOKTYPESRow = CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORMVIEW_ID, FORM_TITLE, DOCTYPE_ID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_WD_FORMVIEW_DOKTYPESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_FORMVIEW_DOKTYPESRow) Return rowTBPMO_WD_FORMVIEW_DOKTYPESRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FORMVIEW_DOKTYPESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WD_FORMVIEW_DOKTYPESDataTable = CType(MyBase.Clone,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORMVIEW_ID) Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOCTYPE_ID) Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORMVIEW_ID.AllowDBNull = false Me.columnFORM_TITLE.AllowDBNull = false Me.columnFORM_TITLE.MaxLength = 50 Me.columnDOCTYPE_ID.AllowDBNull = false Me.columnBEZEICHNUNG.AllowDBNull = false Me.columnBEZEICHNUNG.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow Return CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WD_FORMVIEW_DOKTYPESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WD_FORMVIEW_DOKTYPESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanged(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanging(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WD_FORMVIEW_DOKTYPESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_KONFIGURATIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_KONFIGURATIONRow) Private columnGUID As Global.System.Data.DataColumn Private columnLICENSE As Global.System.Data.DataColumn Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn Private columnEMAIL_FROM As Global.System.Data.DataColumn Private columnEMAIL_SMTP As Global.System.Data.DataColumn Private columnEMAIL_USER As Global.System.Data.DataColumn Private columnEMAIL_PW As Global.System.Data.DataColumn Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn Private columnADMIN_PW As Global.System.Data.DataColumn Private columnADMIN_SECURITY 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 columnSQL_RECORD_SQL1 As Global.System.Data.DataColumn Private columnSQL_RECORD_SQL2 As Global.System.Data.DataColumn Private columnWORKFLOW_FINAL_STATE1 As Global.System.Data.DataColumn Private columnWORKFLOW_FINAL_STATE2 As Global.System.Data.DataColumn Private columnWORKFLOW_FINAL_STATE3 As Global.System.Data.DataColumn Private columnWORKFLOW_FINAL_STATE4 As Global.System.Data.DataColumn Private columnWORKFLOW_FINAL_STATE5 As Global.System.Data.DataColumn Private columnVERSION_DELIMITER As Global.System.Data.DataColumn Private columnFILE_DELIMITER As Global.System.Data.DataColumn Private columnWD_UNICODE As Global.System.Data.DataColumn Private columnFOLLOW_UP_LOG_ERR_ONLY As Global.System.Data.DataColumn Private columnFOLLOW_UP_EMAIL_PROFILE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_KONFIGURATION" 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 LICENSEColumn() As Global.System.Data.DataColumn Get Return Me.columnLICENSE End Get End Property _ Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnVEKTOR_DELIMITER End Get End Property _ Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_ACTIVE End Get End Property _ Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM End Get End Property _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP End Get End Property _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER End Get End Property _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW End Get End Property _ Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_REMINDER_HEADER End Get End Property _ Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_REMINDER_FOOTER End Get End Property _ Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnADMIN_PW End Get End Property _ Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn Get Return Me.columnADMIN_SECURITY 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 SQL_RECORD_SQL1Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_RECORD_SQL1 End Get End Property _ Public ReadOnly Property SQL_RECORD_SQL2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_RECORD_SQL2 End Get End Property _ Public ReadOnly Property WORKFLOW_FINAL_STATE1Column() As Global.System.Data.DataColumn Get Return Me.columnWORKFLOW_FINAL_STATE1 End Get End Property _ Public ReadOnly Property WORKFLOW_FINAL_STATE2Column() As Global.System.Data.DataColumn Get Return Me.columnWORKFLOW_FINAL_STATE2 End Get End Property _ Public ReadOnly Property WORKFLOW_FINAL_STATE3Column() As Global.System.Data.DataColumn Get Return Me.columnWORKFLOW_FINAL_STATE3 End Get End Property _ Public ReadOnly Property WORKFLOW_FINAL_STATE4Column() As Global.System.Data.DataColumn Get Return Me.columnWORKFLOW_FINAL_STATE4 End Get End Property _ Public ReadOnly Property WORKFLOW_FINAL_STATE5Column() As Global.System.Data.DataColumn Get Return Me.columnWORKFLOW_FINAL_STATE5 End Get End Property _ Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnVERSION_DELIMITER End Get End Property _ Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_DELIMITER End Get End Property _ Public ReadOnly Property WD_UNICODEColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_UNICODE End Get End Property _ Public ReadOnly Property FOLLOW_UP_LOG_ERR_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLLOW_UP_LOG_ERR_ONLY End Get End Property _ Public ReadOnly Property FOLLOW_UP_EMAIL_PROFILEColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLLOW_UP_EMAIL_PROFILE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_KONFIGURATIONRow Get Return CType(Me.Rows(index),TBPMO_KONFIGURATIONRow) End Get End Property _ Public Event TBPMO_KONFIGURATIONRowChanging As TBPMO_KONFIGURATIONRowChangeEventHandler _ Public Event TBPMO_KONFIGURATIONRowChanged As TBPMO_KONFIGURATIONRowChangeEventHandler _ Public Event TBPMO_KONFIGURATIONRowDeleting As TBPMO_KONFIGURATIONRowChangeEventHandler _ Public Event TBPMO_KONFIGURATIONRowDeleted As TBPMO_KONFIGURATIONRowChangeEventHandler _ Public Overloads Sub AddTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_KONFIGURATIONRow( _ ByVal GUID As Byte, _ ByVal LICENSE As String, _ ByVal VEKTOR_DELIMITER As String, _ ByVal EMAIL_ACTIVE As Boolean, _ ByVal EMAIL_FROM As String, _ ByVal EMAIL_SMTP As String, _ ByVal EMAIL_USER As String, _ ByVal EMAIL_PW As String, _ ByVal EMAIL_REMINDER_HEADER As String, _ ByVal EMAIL_REMINDER_FOOTER As String, _ ByVal ADMIN_PW As String, _ ByVal ADMIN_SECURITY As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal SQL_RECORD_SQL1 As String, _ ByVal SQL_RECORD_SQL2 As String, _ ByVal WORKFLOW_FINAL_STATE1 As Integer, _ ByVal WORKFLOW_FINAL_STATE2 As Integer, _ ByVal WORKFLOW_FINAL_STATE3 As Integer, _ ByVal WORKFLOW_FINAL_STATE4 As Integer, _ ByVal WORKFLOW_FINAL_STATE5 As Integer, _ ByVal VERSION_DELIMITER As String, _ ByVal FILE_DELIMITER As String, _ ByVal WD_UNICODE As Boolean, _ ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ ByVal FOLLOW_UP_EMAIL_PROFILE As Integer) As TBPMO_KONFIGURATIONRow Dim rowTBPMO_KONFIGURATIONRow As TBPMO_KONFIGURATIONRow = CType(Me.NewRow,TBPMO_KONFIGURATIONRow) Dim columnValuesArray() As Object = New Object() {GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE} rowTBPMO_KONFIGURATIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_KONFIGURATIONRow) Return rowTBPMO_KONFIGURATIONRow End Function _ Public Function FindByGUID(ByVal GUID As Byte) As TBPMO_KONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_KONFIGURATIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPMO_KONFIGURATIONDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_KONFIGURATIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnLICENSE = MyBase.Columns("LICENSE") Me.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") Me.columnEMAIL_ACTIVE = MyBase.Columns("EMAIL_ACTIVE") Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") Me.columnEMAIL_REMINDER_HEADER = MyBase.Columns("EMAIL_REMINDER_HEADER") Me.columnEMAIL_REMINDER_FOOTER = MyBase.Columns("EMAIL_REMINDER_FOOTER") Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") 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.columnSQL_RECORD_SQL1 = MyBase.Columns("SQL_RECORD_SQL1") Me.columnSQL_RECORD_SQL2 = MyBase.Columns("SQL_RECORD_SQL2") Me.columnWORKFLOW_FINAL_STATE1 = MyBase.Columns("WORKFLOW_FINAL_STATE1") Me.columnWORKFLOW_FINAL_STATE2 = MyBase.Columns("WORKFLOW_FINAL_STATE2") Me.columnWORKFLOW_FINAL_STATE3 = MyBase.Columns("WORKFLOW_FINAL_STATE3") Me.columnWORKFLOW_FINAL_STATE4 = MyBase.Columns("WORKFLOW_FINAL_STATE4") Me.columnWORKFLOW_FINAL_STATE5 = MyBase.Columns("WORKFLOW_FINAL_STATE5") Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") Me.columnWD_UNICODE = MyBase.Columns("WD_UNICODE") Me.columnFOLLOW_UP_LOG_ERR_ONLY = MyBase.Columns("FOLLOW_UP_LOG_ERR_ONLY") Me.columnFOLLOW_UP_EMAIL_PROFILE = MyBase.Columns("FOLLOW_UP_EMAIL_PROFILE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLICENSE) Me.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) Me.columnEMAIL_ACTIVE = New Global.System.Data.DataColumn("EMAIL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_ACTIVE) Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_FROM) Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SMTP) Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_USER) Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_PW) Me.columnEMAIL_REMINDER_HEADER = New Global.System.Data.DataColumn("EMAIL_REMINDER_HEADER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_REMINDER_HEADER) Me.columnEMAIL_REMINDER_FOOTER = New Global.System.Data.DataColumn("EMAIL_REMINDER_FOOTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_REMINDER_FOOTER) Me.columnADMIN_PW = New Global.System.Data.DataColumn("ADMIN_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADMIN_PW) Me.columnADMIN_SECURITY = New Global.System.Data.DataColumn("ADMIN_SECURITY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADMIN_SECURITY) 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.columnSQL_RECORD_SQL1 = New Global.System.Data.DataColumn("SQL_RECORD_SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RECORD_SQL1) Me.columnSQL_RECORD_SQL2 = New Global.System.Data.DataColumn("SQL_RECORD_SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RECORD_SQL2) Me.columnWORKFLOW_FINAL_STATE1 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE1) Me.columnWORKFLOW_FINAL_STATE2 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE2) Me.columnWORKFLOW_FINAL_STATE3 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE3) Me.columnWORKFLOW_FINAL_STATE4 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE4", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE4) Me.columnWORKFLOW_FINAL_STATE5 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE5", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE5) Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERSION_DELIMITER) Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFILE_DELIMITER) Me.columnWD_UNICODE = New Global.System.Data.DataColumn("WD_UNICODE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWD_UNICODE) Me.columnFOLLOW_UP_LOG_ERR_ONLY = New Global.System.Data.DataColumn("FOLLOW_UP_LOG_ERR_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLLOW_UP_LOG_ERR_ONLY) Me.columnFOLLOW_UP_EMAIL_PROFILE = New Global.System.Data.DataColumn("FOLLOW_UP_EMAIL_PROFILE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLLOW_UP_EMAIL_PROFILE) 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.columnLICENSE.MaxLength = 2000 Me.columnVEKTOR_DELIMITER.AllowDBNull = false Me.columnVEKTOR_DELIMITER.MaxLength = 1 Me.columnEMAIL_ACTIVE.AllowDBNull = false Me.columnEMAIL_FROM.MaxLength = 50 Me.columnEMAIL_SMTP.MaxLength = 50 Me.columnEMAIL_USER.MaxLength = 50 Me.columnEMAIL_PW.MaxLength = 50 Me.columnEMAIL_REMINDER_HEADER.MaxLength = 250 Me.columnEMAIL_REMINDER_FOOTER.MaxLength = 250 Me.columnADMIN_PW.AllowDBNull = false Me.columnADMIN_PW.MaxLength = 100 Me.columnADMIN_SECURITY.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSQL_RECORD_SQL1.AllowDBNull = false Me.columnSQL_RECORD_SQL1.MaxLength = 500 Me.columnSQL_RECORD_SQL2.AllowDBNull = false Me.columnSQL_RECORD_SQL2.MaxLength = 500 Me.columnWORKFLOW_FINAL_STATE1.AllowDBNull = false Me.columnVERSION_DELIMITER.AllowDBNull = false Me.columnVERSION_DELIMITER.MaxLength = 1 Me.columnFILE_DELIMITER.AllowDBNull = false Me.columnFILE_DELIMITER.MaxLength = 1 Me.columnWD_UNICODE.AllowDBNull = false Me.columnFOLLOW_UP_LOG_ERR_ONLY.AllowDBNull = false Me.columnFOLLOW_UP_EMAIL_PROFILE.AllowDBNull = false End Sub _ Public Function NewTBPMO_KONFIGURATIONRow() As TBPMO_KONFIGURATIONRow Return CType(Me.NewRow,TBPMO_KONFIGURATIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_KONFIGURATIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_KONFIGURATIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_KONFIGURATIONRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_KONFIGURATIONRowChanged(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_KONFIGURATIONRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_KONFIGURATIONRowChanging(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_KONFIGURATIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_KONFIGURATIONRowDeleted(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_KONFIGURATIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_KONFIGURATIONRowDeleting(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_KONFIGURATIONDataTable" 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_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) Private columnGUID As Global.System.Data.DataColumn Private columnPRENAME As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnEMAIL As Global.System.Data.DataColumn Private columnLOGGED_IN As Global.System.Data.DataColumn Private columnLOGGED_WHERE As Global.System.Data.DataColumn Private columnLOG_IN_WHEN As Global.System.Data.DataColumn Private columnLOG_OUT_WHEN 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 columnRECORD_ADMIN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL End Get End Property _ Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGGED_IN End Get End Property _ Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGGED_WHERE End Get End Property _ Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_IN_WHEN End Get End Property _ Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_OUT_WHEN 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 RECORD_ADMINColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_ADMIN 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_USERRow Get Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property _ Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler _ Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler _ Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler _ Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal RECORD_ADMIN As Boolean) As TBDD_USERRow Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN} rowTBDD_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_USERRow) Return rowTBDD_USERRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") Me.columnNAME = MyBase.Columns("NAME") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnEMAIL = MyBase.Columns("EMAIL") Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") 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.columnRECORD_ADMIN = MyBase.Columns("RECORD_ADMIN") 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.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPRENAME) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL) Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOGGED_IN) Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOGGED_WHERE) Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOG_IN_WHEN) Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) 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.columnRECORD_ADMIN = New Global.System.Data.DataColumn("RECORD_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ADMIN) 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.columnPRENAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 Me.columnUSERNAME.AllowDBNull = false Me.columnUSERNAME.MaxLength = 50 Me.columnEMAIL.MaxLength = 100 Me.columnLOGGED_IN.AllowDBNull = false Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean) Me.columnLOGGED_WHERE.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnRECORD_ADMIN.AllowDBNull = false End Sub _ Public Function NewTBDD_USERRow() As TBDD_USERRow Return CType(Me.NewRow,TBDD_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_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 DD_DMSDataSet = New DD_DMSDataSet() 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_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 TBPMO_FORM_TYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_TYPERow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_TYPE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property FORM_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TYPE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_TYPERow Get Return CType(Me.Rows(index),TBPMO_FORM_TYPERow) End Get End Property _ Public Event TBPMO_FORM_TYPERowChanging As TBPMO_FORM_TYPERowChangeEventHandler _ Public Event TBPMO_FORM_TYPERowChanged As TBPMO_FORM_TYPERowChangeEventHandler _ Public Event TBPMO_FORM_TYPERowDeleting As TBPMO_FORM_TYPERowChangeEventHandler _ Public Event TBPMO_FORM_TYPERowDeleted As TBPMO_FORM_TYPERowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_TYPERow(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FORM_TYPERow Dim rowTBPMO_FORM_TYPERow As TBPMO_FORM_TYPERow = CType(Me.NewRow,TBPMO_FORM_TYPERow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_FORM_TYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_TYPERow) Return rowTBPMO_FORM_TYPERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_TYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_TYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_TYPEDataTable = CType(MyBase.Clone,TBPMO_FORM_TYPEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_TYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TYPE = MyBase.Columns("FORM_TYPE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFORM_TYPE = New Global.System.Data.DataColumn("FORM_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TYPE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORM_TYPE.AllowDBNull = false Me.columnFORM_TYPE.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow Return CType(Me.NewRow,TBPMO_FORM_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_TYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_TYPERowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_TYPERowChanged(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_TYPERowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_TYPERowChanging(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_TYPERowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_TYPERowDeleted(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_TYPERowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_TYPERowDeleting(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_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 DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FORM_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 the strongly named DataTable class. ''' _ Partial Public Class TBDD_USER_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_USER_GROUPS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow Get Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) End Get End Property _ Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler _ Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler _ Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler _ Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler _ Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_USER_GROUPSRow) Return rowTBDD_USER_GROUPSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USER_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Return CType(Me.NewRow,TBDD_USER_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USER_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USER_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() 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_USER_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_USERS_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_USERS_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnUSER_ID As Global.System.Data.DataColumn Private columnGROUP_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 Private columnGROUP_NAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_USERS_GROUPS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_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 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 GROUP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_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 VWPMO_USERS_GROUPSRow Get Return CType(Me.Rows(index),VWPMO_USERS_GROUPSRow) End Get End Property _ Public Event VWPMO_USERS_GROUPSRowChanging As VWPMO_USERS_GROUPSRowChangeEventHandler _ Public Event VWPMO_USERS_GROUPSRowChanged As VWPMO_USERS_GROUPSRowChangeEventHandler _ Public Event VWPMO_USERS_GROUPSRowDeleting As VWPMO_USERS_GROUPSRowChangeEventHandler _ Public Event VWPMO_USERS_GROUPSRowDeleted As VWPMO_USERS_GROUPSRowChangeEventHandler _ Public Overloads Sub AddVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_USERS_GROUPSRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal GROUP_NAME As String) As VWPMO_USERS_GROUPSRow Dim rowVWPMO_USERS_GROUPSRow As VWPMO_USERS_GROUPSRow = CType(Me.NewRow,VWPMO_USERS_GROUPSRow) Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, GROUP_ID, USERNAME, NAME, PRENAME, GROUP_NAME} rowVWPMO_USERS_GROUPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_USERS_GROUPSRow) Return rowVWPMO_USERS_GROUPSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_USERS_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_USERS_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_USERS_GROUPSDataTable = CType(MyBase.Clone,VWPMO_USERS_GROUPSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_USERS_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnNAME = MyBase.Columns("NAME") Me.columnPRENAME = MyBase.Columns("PRENAME") Me.columnGROUP_NAME = MyBase.Columns("GROUP_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.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_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.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.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGROUP_NAME) 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.columnUSER_ID.AllowDBNull = false Me.columnGROUP_ID.AllowDBNull = false Me.columnUSERNAME.AllowDBNull = false Me.columnUSERNAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 Me.columnPRENAME.MaxLength = 50 Me.columnGROUP_NAME.MaxLength = 50 End Sub _ Public Function NewVWPMO_USERS_GROUPSRow() As VWPMO_USERS_GROUPSRow Return CType(Me.NewRow,VWPMO_USERS_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_USERS_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_USERS_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_USERS_GROUPSRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_USERS_GROUPSRowChanged(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_USERS_GROUPSRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_USERS_GROUPSRowChanging(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_USERS_GROUPSRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_USERS_GROUPSRowDeleted(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_USERS_GROUPSRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_USERS_GROUPSRowDeleting(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_USERS_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBDD_GROUPS_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) Private columnGUID As Global.System.Data.DataColumn Private columnUSER_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 Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS_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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID 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 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 CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow Get Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) End Get End Property _ Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler _ Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler _ Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler _ Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler _ Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) End If If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) End If rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_GROUPS_USERRow) Return rowTBDD_GROUPS_USERRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPS_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") 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.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnUSER_ID.AllowDBNull = false Me.columnGROUP_ID.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow Return CType(Me.NewRow,TBDD_GROUPS_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPS_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPS_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_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 DD_DMSDataSet = New DD_DMSDataSet() 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_GROUPS_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_DOKART_MODULEDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_DOKART_MODULERow) Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_DOKART_MODULE" 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 BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG 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_DOKART_MODULERow Get Return CType(Me.Rows(index),TBWH_DOKART_MODULERow) End Get End Property _ Public Event TBWH_DOKART_MODULERowChanging As TBWH_DOKART_MODULERowChangeEventHandler _ Public Event TBWH_DOKART_MODULERowChanged As TBWH_DOKART_MODULERowChangeEventHandler _ Public Event TBWH_DOKART_MODULERowDeleting As TBWH_DOKART_MODULERowChangeEventHandler _ Public Event TBWH_DOKART_MODULERowDeleted As TBWH_DOKART_MODULERowChangeEventHandler _ Public Overloads Sub AddTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_DOKART_MODULERow(ByVal BEZEICHNUNG As String, ByVal NAME As String) As TBWH_DOKART_MODULERow Dim rowTBWH_DOKART_MODULERow As TBWH_DOKART_MODULERow = CType(Me.NewRow,TBWH_DOKART_MODULERow) Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, NAME} rowTBWH_DOKART_MODULERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_DOKART_MODULERow) Return rowTBWH_DOKART_MODULERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_DOKART_MODULEDataTable = CType(MyBase.Clone,TBWH_DOKART_MODULEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_DOKART_MODULEDataTable() End Function _ Friend Sub InitVars() Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnNAME = MyBase.Columns("NAME") End Sub _ Private Sub InitClass() Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnBEZEICHNUNG.AllowDBNull = false Me.columnBEZEICHNUNG.MaxLength = 50 Me.columnNAME.MaxLength = 50 End Sub _ Public Function NewTBWH_DOKART_MODULERow() As TBWH_DOKART_MODULERow Return CType(Me.NewRow,TBWH_DOKART_MODULERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_DOKART_MODULERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_DOKART_MODULERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_DOKART_MODULERowChangedEvent) Is Nothing) Then RaiseEvent TBWH_DOKART_MODULERowChanged(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_DOKART_MODULERowChangingEvent) Is Nothing) Then RaiseEvent TBWH_DOKART_MODULERowChanging(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_DOKART_MODULERowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_DOKART_MODULERowDeleted(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_DOKART_MODULERowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_DOKART_MODULERowDeleting(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() 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_DOKART_MODULEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnSEQUENCE_MENU As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnMENU_IMG As Global.System.Data.DataColumn Private columnSHORT_TITLE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_CONSTRUCTOR" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE End Get End Property _ Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_MENU End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_IMG End Get End Property _ Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORT_TITLE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) End Get End Property _ Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As TBPMO_FORM_CONSTRUCTORRow Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE} rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) Return rowTBPMO_FORM_CONSTRUCTORRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTORDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE_MENU) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMENU_IMG) Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHORT_TITLE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORM_TITLE.MaxLength = 50 Me.columnSEQUENCE_MENU.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHORT_TITLE.MaxLength = 50 End Sub _ Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTORRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTORRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FORM_CONSTRUCTORDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WD_OBJECTTYPEDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_OBJECTTYPERow) Private columnGUID As Global.System.Data.DataColumn Private columnOBJECT_TYPE As Global.System.Data.DataColumn Private columnIDXNAME_ENTITYID 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 columnIDXNAME_PARENTID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WD_OBJECTTYPE" 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 OBJECT_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECT_TYPE End Get End Property _ Public ReadOnly Property IDXNAME_ENTITYIDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXNAME_ENTITYID 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 IDXNAME_PARENTIDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXNAME_PARENTID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_OBJECTTYPERow Get Return CType(Me.Rows(index),TBPMO_WD_OBJECTTYPERow) End Get End Property _ Public Event TBPMO_WD_OBJECTTYPERowChanging As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ Public Event TBPMO_WD_OBJECTTYPERowChanged As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ Public Event TBPMO_WD_OBJECTTYPERowDeleting As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ Public Event TBPMO_WD_OBJECTTYPERowDeleted As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ Public Overloads Sub AddTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_PARENTID As String) As TBPMO_WD_OBJECTTYPERow Dim rowTBPMO_WD_OBJECTTYPERow As TBPMO_WD_OBJECTTYPERow = CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, IDXNAME_ENTITYID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_PARENTID} rowTBPMO_WD_OBJECTTYPERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_OBJECTTYPERow) Return rowTBPMO_WD_OBJECTTYPERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_OBJECTTYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_OBJECTTYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WD_OBJECTTYPEDataTable = CType(MyBase.Clone,TBPMO_WD_OBJECTTYPEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WD_OBJECTTYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") Me.columnIDXNAME_ENTITYID = MyBase.Columns("IDXNAME_ENTITYID") 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.columnIDXNAME_PARENTID = MyBase.Columns("IDXNAME_PARENTID") 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.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOBJECT_TYPE) Me.columnIDXNAME_ENTITYID = New Global.System.Data.DataColumn("IDXNAME_ENTITYID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDXNAME_ENTITYID) 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.columnIDXNAME_PARENTID = New Global.System.Data.DataColumn("IDXNAME_PARENTID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDXNAME_PARENTID) 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.columnOBJECT_TYPE.AllowDBNull = false Me.columnOBJECT_TYPE.MaxLength = 100 Me.columnIDXNAME_ENTITYID.AllowDBNull = false Me.columnIDXNAME_ENTITYID.MaxLength = 100 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnIDXNAME_PARENTID.AllowDBNull = false Me.columnIDXNAME_PARENTID.MaxLength = 100 End Sub _ Public Function NewTBPMO_WD_OBJECTTYPERow() As TBPMO_WD_OBJECTTYPERow Return CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WD_OBJECTTYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WD_OBJECTTYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WD_OBJECTTYPERowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_OBJECTTYPERowChanged(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_WD_OBJECTTYPERowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_OBJECTTYPERowChanging(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_OBJECTTYPERowDeleted(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_OBJECTTYPERowDeleting(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_WD_OBJECTTYPEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_FILES_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FILES_USERRow) Private columnGUID As Global.System.Data.DataColumn Private columnFILENAME2WORK As Global.System.Data.DataColumn Private columnUSER_WORK As Global.System.Data.DataColumn Private columnHANDLE_TYPE As Global.System.Data.DataColumn Private columnWORKED As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FILES_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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME2WORK End Get End Property _ Public ReadOnly Property USER_WORKColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_WORK End Get End Property _ Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnHANDLE_TYPE End Get End Property _ Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn Get Return Me.columnWORKED 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 TBPMO_FILES_USERRow Get Return CType(Me.Rows(index),TBPMO_FILES_USERRow) End Get End Property _ Public Event TBPMO_FILES_USERRowChanging As TBPMO_FILES_USERRowChangeEventHandler _ Public Event TBPMO_FILES_USERRowChanged As TBPMO_FILES_USERRowChangeEventHandler _ Public Event TBPMO_FILES_USERRowDeleting As TBPMO_FILES_USERRowChangeEventHandler _ Public Event TBPMO_FILES_USERRowDeleted As TBPMO_FILES_USERRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As TBPMO_FILES_USERRow Dim rowTBPMO_FILES_USERRow As TBPMO_FILES_USERRow = CType(Me.NewRow,TBPMO_FILES_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN} rowTBPMO_FILES_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FILES_USERRow) Return rowTBPMO_FILES_USERRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FILES_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FILES_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FILES_USERDataTable = CType(MyBase.Clone,TBPMO_FILES_USERDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FILES_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") Me.columnUSER_WORK = MyBase.Columns("USER_WORK") Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") Me.columnWORKED = MyBase.Columns("WORKED") 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.columnFILENAME2WORK = New Global.System.Data.DataColumn("FILENAME2WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFILENAME2WORK) Me.columnUSER_WORK = New Global.System.Data.DataColumn("USER_WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_WORK) Me.columnHANDLE_TYPE = New Global.System.Data.DataColumn("HANDLE_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHANDLE_TYPE) Me.columnWORKED = New Global.System.Data.DataColumn("WORKED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKED) 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.columnFILENAME2WORK.AllowDBNull = false Me.columnFILENAME2WORK.MaxLength = 500 Me.columnUSER_WORK.AllowDBNull = false Me.columnUSER_WORK.MaxLength = 50 Me.columnHANDLE_TYPE.AllowDBNull = false Me.columnHANDLE_TYPE.MaxLength = 50 Me.columnWORKED.AllowDBNull = false Me.columnADDED_WHEN.AllowDBNull = false End Sub _ Public Function NewTBPMO_FILES_USERRow() As TBPMO_FILES_USERRow Return CType(Me.NewRow,TBPMO_FILES_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FILES_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FILES_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FILES_USERRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FILES_USERRowChanged(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FILES_USERRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FILES_USERRowChanging(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FILES_USERRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FILES_USERRowDeleted(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FILES_USERRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FILES_USERRowDeleting(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_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 DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FILES_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 VWPMO_WORKFLOW_FORMDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_WORKFLOW_FORMRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnFORM_NAME As Global.System.Data.DataColumn Private columnWF_ID As Global.System.Data.DataColumn Private columnWORKFLOW 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 columnCOLOR As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_WORKFLOW_FORM" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property FORM_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_NAME End Get End Property _ Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_ID End Get End Property _ Public ReadOnly Property WORKFLOWColumn() As Global.System.Data.DataColumn Get Return Me.columnWORKFLOW 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 COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WORKFLOW_FORMRow Get Return CType(Me.Rows(index),VWPMO_WORKFLOW_FORMRow) End Get End Property _ Public Event VWPMO_WORKFLOW_FORMRowChanging As VWPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Event VWPMO_WORKFLOW_FORMRowChanged As VWPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Event VWPMO_WORKFLOW_FORMRowDeleting As VWPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Event VWPMO_WORKFLOW_FORMRowDeleted As VWPMO_WORKFLOW_FORMRowChangeEventHandler _ Public Overloads Sub AddVWPMO_WORKFLOW_FORMRow(ByVal row As VWPMO_WORKFLOW_FORMRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_WORKFLOW_FORMRow(ByVal GUID As Integer, ByVal FORM_ID As Integer, ByVal FORM_NAME As String, ByVal WF_ID As Integer, ByVal WORKFLOW As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COLOR As String) As VWPMO_WORKFLOW_FORMRow Dim rowVWPMO_WORKFLOW_FORMRow As VWPMO_WORKFLOW_FORMRow = CType(Me.NewRow,VWPMO_WORKFLOW_FORMRow) Dim columnValuesArray() As Object = New Object() {GUID, FORM_ID, FORM_NAME, WF_ID, WORKFLOW, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR} rowVWPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_WORKFLOW_FORMRow) Return rowVWPMO_WORKFLOW_FORMRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_WORKFLOW_FORMRow Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_WORKFLOW_FORMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,VWPMO_WORKFLOW_FORMDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_WORKFLOW_FORMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnFORM_NAME = MyBase.Columns("FORM_NAME") Me.columnWF_ID = MyBase.Columns("WF_ID") Me.columnWORKFLOW = MyBase.Columns("WORKFLOW") 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.columnCOLOR = MyBase.Columns("COLOR") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnFORM_NAME = New Global.System.Data.DataColumn("FORM_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_NAME) Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_ID) Me.columnWORKFLOW = New Global.System.Data.DataColumn("WORKFLOW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKFLOW) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), 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.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLOR) 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.columnFORM_ID.AllowDBNull = false Me.columnFORM_NAME.AllowDBNull = false Me.columnFORM_NAME.MaxLength = 100 Me.columnWF_ID.AllowDBNull = false Me.columnWORKFLOW.AllowDBNull = false Me.columnWORKFLOW.MaxLength = 100 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOLOR.AllowDBNull = false Me.columnCOLOR.MaxLength = 50 End Sub _ Public Function NewVWPMO_WORKFLOW_FORMRow() As VWPMO_WORKFLOW_FORMRow Return CType(Me.NewRow,VWPMO_WORKFLOW_FORMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_WORKFLOW_FORMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_WORKFLOW_FORMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_WORKFLOW_FORMRowChanged(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_WORKFLOW_FORMRowChanging(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_WORKFLOW_FORMRowDeleted(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_WORKFLOW_FORMRowDeleting(Me, New VWPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,VWPMO_WORKFLOW_FORMRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_WORKFLOW_FORMRow(ByVal row As VWPMO_WORKFLOW_FORMRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_WORKFLOW_FORMDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_FOLLOW_UP_EMAILDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLOW_UP_EMAILRow) Private columnGUID As Global.System.Data.DataColumn Private columnFOLLOW_UP_SEQUENCE As Global.System.Data.DataColumn Private columnFOLLOW_UP_DAYS As Global.System.Data.DataColumn Private columnFOLLOW_UP_TIME_SPAN As Global.System.Data.DataColumn Private columnDEPENDENT_DATE_CTRL_ID As Global.System.Data.DataColumn Private columnDEPENDENT_DONE_CTRL_ID As Global.System.Data.DataColumn Private columnPARENT_ID As Global.System.Data.DataColumn Private columnTIME_UNITY As Global.System.Data.DataColumn Private columnTIME_SPAN As Global.System.Data.DataColumn Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn Private columnEMAIL_BODY As Global.System.Data.DataColumn Private columnPROCESS_SELECT1 As Global.System.Data.DataColumn Private columnPROCESS_SELECT2 As Global.System.Data.DataColumn Private columnPROCESS_SELECT3 As Global.System.Data.DataColumn Private columnPROCESS_SELECT4 As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnTIME_DIST As Global.System.Data.DataColumn Private columnPROCESS_SELECT5 As Global.System.Data.DataColumn Private columnPROCESS_SELECT6 As Global.System.Data.DataColumn Private columnPROCESS_SELECT7 As Global.System.Data.DataColumn Private columnPROCESS_SELECT8 As Global.System.Data.DataColumn Private columnPROCESS_SELECT9 As Global.System.Data.DataColumn Private columnPROCESS_SELECT10 As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FOLLOW_UP_EMAIL" 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 FOLLOW_UP_SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLLOW_UP_SEQUENCE End Get End Property _ Public ReadOnly Property FOLLOW_UP_DAYSColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLLOW_UP_DAYS End Get End Property _ Public ReadOnly Property FOLLOW_UP_TIME_SPANColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLLOW_UP_TIME_SPAN End Get End Property _ Public ReadOnly Property DEPENDENT_DATE_CTRL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDEPENDENT_DATE_CTRL_ID End Get End Property _ Public ReadOnly Property DEPENDENT_DONE_CTRL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDEPENDENT_DONE_CTRL_ID End Get End Property _ Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ID End Get End Property _ Public ReadOnly Property TIME_UNITYColumn() As Global.System.Data.DataColumn Get Return Me.columnTIME_UNITY End Get End Property _ Public ReadOnly Property TIME_SPANColumn() As Global.System.Data.DataColumn Get Return Me.columnTIME_SPAN End Get End Property _ Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBJECT End Get End Property _ Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY End Get End Property _ Public ReadOnly Property PROCESS_SELECT1Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT1 End Get End Property _ Public ReadOnly Property PROCESS_SELECT2Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT2 End Get End Property _ Public ReadOnly Property PROCESS_SELECT3Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT3 End Get End Property _ Public ReadOnly Property PROCESS_SELECT4Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT4 End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property TIME_DISTColumn() As Global.System.Data.DataColumn Get Return Me.columnTIME_DIST End Get End Property _ Public ReadOnly Property PROCESS_SELECT5Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT5 End Get End Property _ Public ReadOnly Property PROCESS_SELECT6Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT6 End Get End Property _ Public ReadOnly Property PROCESS_SELECT7Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT7 End Get End Property _ Public ReadOnly Property PROCESS_SELECT8Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT8 End Get End Property _ Public ReadOnly Property PROCESS_SELECT9Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT9 End Get End Property _ Public ReadOnly Property PROCESS_SELECT10Column() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_SELECT10 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 TBPMO_FOLLOW_UP_EMAILRow Get Return CType(Me.Rows(index),TBPMO_FOLLOW_UP_EMAILRow) End Get End Property _ Public Event TBPMO_FOLLOW_UP_EMAILRowChanging As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ Public Event TBPMO_FOLLOW_UP_EMAILRowChanged As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ Public Event TBPMO_FOLLOW_UP_EMAILRowDeleting As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ Public Event TBPMO_FOLLOW_UP_EMAILRowDeleted As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FOLLOW_UP_EMAILRow( _ ByVal FOLLOW_UP_SEQUENCE As String, _ ByVal FOLLOW_UP_DAYS As String, _ ByVal FOLLOW_UP_TIME_SPAN As String, _ ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal TIME_UNITY As String, _ ByVal TIME_SPAN As Integer, _ ByVal EMAIL_SUBJECT As String, _ ByVal EMAIL_BODY As String, _ ByVal PROCESS_SELECT1 As String, _ ByVal PROCESS_SELECT2 As String, _ ByVal PROCESS_SELECT3 As String, _ ByVal PROCESS_SELECT4 As String, _ ByVal ACTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal TIME_DIST As String, _ ByVal PROCESS_SELECT5 As String, _ ByVal PROCESS_SELECT6 As String, _ ByVal PROCESS_SELECT7 As String, _ ByVal PROCESS_SELECT8 As String, _ ByVal PROCESS_SELECT9 As String, _ ByVal PROCESS_SELECT10 As String, _ ByVal NAME As String) As TBPMO_FOLLOW_UP_EMAILRow Dim rowTBPMO_FOLLOW_UP_EMAILRow As TBPMO_FOLLOW_UP_EMAILRow = CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) Dim columnValuesArray() As Object = New Object() {Nothing, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TIME_DIST, PROCESS_SELECT5, PROCESS_SELECT6, PROCESS_SELECT7, PROCESS_SELECT8, PROCESS_SELECT9, PROCESS_SELECT10, NAME} rowTBPMO_FOLLOW_UP_EMAILRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FOLLOW_UP_EMAILRow) Return rowTBPMO_FOLLOW_UP_EMAILRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLOW_UP_EMAILRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLOW_UP_EMAILRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FOLLOW_UP_EMAILDataTable = CType(MyBase.Clone,TBPMO_FOLLOW_UP_EMAILDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FOLLOW_UP_EMAILDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFOLLOW_UP_SEQUENCE = MyBase.Columns("FOLLOW_UP_SEQUENCE") Me.columnFOLLOW_UP_DAYS = MyBase.Columns("FOLLOW_UP_DAYS") Me.columnFOLLOW_UP_TIME_SPAN = MyBase.Columns("FOLLOW_UP_TIME_SPAN") Me.columnDEPENDENT_DATE_CTRL_ID = MyBase.Columns("DEPENDENT_DATE_CTRL_ID") Me.columnDEPENDENT_DONE_CTRL_ID = MyBase.Columns("DEPENDENT_DONE_CTRL_ID") Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") Me.columnTIME_UNITY = MyBase.Columns("TIME_UNITY") Me.columnTIME_SPAN = MyBase.Columns("TIME_SPAN") Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") Me.columnEMAIL_BODY = MyBase.Columns("EMAIL_BODY") Me.columnPROCESS_SELECT1 = MyBase.Columns("PROCESS_SELECT1") Me.columnPROCESS_SELECT2 = MyBase.Columns("PROCESS_SELECT2") Me.columnPROCESS_SELECT3 = MyBase.Columns("PROCESS_SELECT3") Me.columnPROCESS_SELECT4 = MyBase.Columns("PROCESS_SELECT4") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnTIME_DIST = MyBase.Columns("TIME_DIST") Me.columnPROCESS_SELECT5 = MyBase.Columns("PROCESS_SELECT5") Me.columnPROCESS_SELECT6 = MyBase.Columns("PROCESS_SELECT6") Me.columnPROCESS_SELECT7 = MyBase.Columns("PROCESS_SELECT7") Me.columnPROCESS_SELECT8 = MyBase.Columns("PROCESS_SELECT8") Me.columnPROCESS_SELECT9 = MyBase.Columns("PROCESS_SELECT9") Me.columnPROCESS_SELECT10 = MyBase.Columns("PROCESS_SELECT10") 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.columnFOLLOW_UP_SEQUENCE = New Global.System.Data.DataColumn("FOLLOW_UP_SEQUENCE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLLOW_UP_SEQUENCE) Me.columnFOLLOW_UP_DAYS = New Global.System.Data.DataColumn("FOLLOW_UP_DAYS", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLLOW_UP_DAYS) Me.columnFOLLOW_UP_TIME_SPAN = New Global.System.Data.DataColumn("FOLLOW_UP_TIME_SPAN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLLOW_UP_TIME_SPAN) Me.columnDEPENDENT_DATE_CTRL_ID = New Global.System.Data.DataColumn("DEPENDENT_DATE_CTRL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDEPENDENT_DATE_CTRL_ID) Me.columnDEPENDENT_DONE_CTRL_ID = New Global.System.Data.DataColumn("DEPENDENT_DONE_CTRL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDEPENDENT_DONE_CTRL_ID) Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_ID) Me.columnTIME_UNITY = New Global.System.Data.DataColumn("TIME_UNITY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTIME_UNITY) Me.columnTIME_SPAN = New Global.System.Data.DataColumn("TIME_SPAN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTIME_SPAN) Me.columnEMAIL_SUBJECT = New Global.System.Data.DataColumn("EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SUBJECT) Me.columnEMAIL_BODY = New Global.System.Data.DataColumn("EMAIL_BODY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_BODY) Me.columnPROCESS_SELECT1 = New Global.System.Data.DataColumn("PROCESS_SELECT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT1) Me.columnPROCESS_SELECT2 = New Global.System.Data.DataColumn("PROCESS_SELECT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT2) Me.columnPROCESS_SELECT3 = New Global.System.Data.DataColumn("PROCESS_SELECT3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT3) Me.columnPROCESS_SELECT4 = New Global.System.Data.DataColumn("PROCESS_SELECT4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT4) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnTIME_DIST = New Global.System.Data.DataColumn("TIME_DIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTIME_DIST) Me.columnPROCESS_SELECT5 = New Global.System.Data.DataColumn("PROCESS_SELECT5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT5) Me.columnPROCESS_SELECT6 = New Global.System.Data.DataColumn("PROCESS_SELECT6", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT6) Me.columnPROCESS_SELECT7 = New Global.System.Data.DataColumn("PROCESS_SELECT7", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT7) Me.columnPROCESS_SELECT8 = New Global.System.Data.DataColumn("PROCESS_SELECT8", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT8) Me.columnPROCESS_SELECT9 = New Global.System.Data.DataColumn("PROCESS_SELECT9", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT9) Me.columnPROCESS_SELECT10 = New Global.System.Data.DataColumn("PROCESS_SELECT10", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_SELECT10) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFOLLOW_UP_SEQUENCE.AllowDBNull = false Me.columnFOLLOW_UP_SEQUENCE.MaxLength = 50 Me.columnFOLLOW_UP_DAYS.AllowDBNull = false Me.columnFOLLOW_UP_DAYS.MaxLength = 50 Me.columnFOLLOW_UP_TIME_SPAN.AllowDBNull = false Me.columnFOLLOW_UP_TIME_SPAN.MaxLength = 50 Me.columnDEPENDENT_DATE_CTRL_ID.AllowDBNull = false Me.columnDEPENDENT_DONE_CTRL_ID.AllowDBNull = false Me.columnPARENT_ID.AllowDBNull = false Me.columnPARENT_ID.DefaultValue = CType(0,Integer) Me.columnTIME_UNITY.AllowDBNull = false Me.columnTIME_UNITY.MaxLength = 50 Me.columnTIME_SPAN.AllowDBNull = false Me.columnEMAIL_SUBJECT.AllowDBNull = false Me.columnEMAIL_SUBJECT.DefaultValue = CType("Ihr Betreff",String) Me.columnEMAIL_SUBJECT.MaxLength = 250 Me.columnEMAIL_BODY.AllowDBNull = false Me.columnEMAIL_BODY.MaxLength = 2000 Me.columnPROCESS_SELECT1.AllowDBNull = false Me.columnPROCESS_SELECT1.DefaultValue = CType("",String) Me.columnPROCESS_SELECT1.MaxLength = 2000 Me.columnPROCESS_SELECT2.AllowDBNull = false Me.columnPROCESS_SELECT2.DefaultValue = CType("",String) Me.columnPROCESS_SELECT2.MaxLength = 2000 Me.columnPROCESS_SELECT3.AllowDBNull = false Me.columnPROCESS_SELECT3.DefaultValue = CType("",String) Me.columnPROCESS_SELECT3.MaxLength = 2000 Me.columnPROCESS_SELECT4.AllowDBNull = false Me.columnPROCESS_SELECT4.DefaultValue = CType("",String) Me.columnPROCESS_SELECT4.MaxLength = 2000 Me.columnACTIVE.AllowDBNull = false Me.columnACTIVE.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnTIME_DIST.AllowDBNull = false Me.columnTIME_DIST.MaxLength = 30 Me.columnPROCESS_SELECT5.AllowDBNull = false Me.columnPROCESS_SELECT5.DefaultValue = CType("",String) Me.columnPROCESS_SELECT5.MaxLength = 2000 Me.columnPROCESS_SELECT6.AllowDBNull = false Me.columnPROCESS_SELECT6.DefaultValue = CType("",String) Me.columnPROCESS_SELECT6.MaxLength = 2000 Me.columnPROCESS_SELECT7.AllowDBNull = false Me.columnPROCESS_SELECT7.DefaultValue = CType("",String) Me.columnPROCESS_SELECT7.MaxLength = 2000 Me.columnPROCESS_SELECT8.AllowDBNull = false Me.columnPROCESS_SELECT8.DefaultValue = CType("",String) Me.columnPROCESS_SELECT8.MaxLength = 2000 Me.columnPROCESS_SELECT9.AllowDBNull = false Me.columnPROCESS_SELECT9.DefaultValue = CType("",String) Me.columnPROCESS_SELECT9.MaxLength = 2000 Me.columnPROCESS_SELECT10.AllowDBNull = false Me.columnPROCESS_SELECT10.DefaultValue = CType("",String) Me.columnPROCESS_SELECT10.MaxLength = 2000 Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 End Sub _ Public Function NewTBPMO_FOLLOW_UP_EMAILRow() As TBPMO_FOLLOW_UP_EMAILRow Return CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FOLLOW_UP_EMAILRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FOLLOW_UP_EMAILRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanged(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanging(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleted(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleting(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FOLLOW_UP_EMAILDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_FOLLUPEMAIL_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLUPEMAIL_USERRow) Private columnGUID As Global.System.Data.DataColumn Private columnUSER_ID As Global.System.Data.DataColumn Private columnFOLLOW_UP_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FOLLUPEMAIL_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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID 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 FOLLOW_UP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLLOW_UP_ID End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FOLLUPEMAIL_USERRow Get Return CType(Me.Rows(index),TBPMO_FOLLUPEMAIL_USERRow) End Get End Property _ Public Event TBPMO_FOLLUPEMAIL_USERRowChanging As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ Public Event TBPMO_FOLLUPEMAIL_USERRowChanged As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ Public Event TBPMO_FOLLUPEMAIL_USERRowDeleting As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ Public Event TBPMO_FOLLUPEMAIL_USERRowDeleted As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FOLLUPEMAIL_USERRow(ByVal USER_ID As Integer, ByVal parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As TBDD_USERRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FOLLUPEMAIL_USERRow Dim rowTBPMO_FOLLUPEMAIL_USERRow As TBPMO_FOLLUPEMAIL_USERRow = CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) Is Nothing) Then columnValuesArray(2) = parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID(0) End If rowTBPMO_FOLLUPEMAIL_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FOLLUPEMAIL_USERRow) Return rowTBPMO_FOLLUPEMAIL_USERRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLUPEMAIL_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLUPEMAIL_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FOLLUPEMAIL_USERDataTable = CType(MyBase.Clone,TBPMO_FOLLUPEMAIL_USERDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FOLLUPEMAIL_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") Me.columnFOLLOW_UP_ID = MyBase.Columns("FOLLOW_UP_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") 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.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_ID) Me.columnFOLLOW_UP_ID = New Global.System.Data.DataColumn("FOLLOW_UP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFOLLOW_UP_ID) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.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.columnUSER_ID.AllowDBNull = false Me.columnFOLLOW_UP_ID.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_FOLLUPEMAIL_USERRow() As TBPMO_FOLLUPEMAIL_USERRow Return CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FOLLUPEMAIL_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FOLLUPEMAIL_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanged(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanging(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleted(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleting(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_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 DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FOLLUPEMAIL_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 TBPMO_RECORD_LOG_CONFIGDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORD_LOG_CONFIGRow) Private columnGUID As Global.System.Data.DataColumn Private columnCONTROL_ID As Global.System.Data.DataColumn Private columnLOG_DELETE As Global.System.Data.DataColumn Private columnLOG_UPDATE 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 columnFORM_ID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnFORM_ID1 As Global.System.Data.DataColumn Private columnString As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_RECORD_LOG_CONFIG" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_ID End Get End Property _ Public ReadOnly Property LOG_DELETEColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_DELETE End Get End Property _ Public ReadOnly Property LOG_UPDATEColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_UPDATE 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 FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property FORM_ID1Column() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID1 End Get End Property _ Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RECORD_LOG_CONFIGRow Get Return CType(Me.Rows(index),TBPMO_RECORD_LOG_CONFIGRow) End Get End Property _ Public Event TBPMO_RECORD_LOG_CONFIGRowChanging As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ Public Event TBPMO_RECORD_LOG_CONFIGRowChanged As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ Public Event TBPMO_RECORD_LOG_CONFIGRowDeleting As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ Public Event TBPMO_RECORD_LOG_CONFIGRowDeleted As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ Public Overloads Sub AddTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_RECORD_LOG_CONFIGRow(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FORM_ID As Integer, ByVal NAME As String, ByVal _String As String) As TBPMO_RECORD_LOG_CONFIGRow Dim rowTBPMO_RECORD_LOG_CONFIGRow As TBPMO_RECORD_LOG_CONFIGRow = CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) Dim columnValuesArray() As Object = New Object() {Nothing, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FORM_ID, NAME, Nothing, _String} rowTBPMO_RECORD_LOG_CONFIGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_RECORD_LOG_CONFIGRow) Return rowTBPMO_RECORD_LOG_CONFIGRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORD_LOG_CONFIGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORD_LOG_CONFIGRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_RECORD_LOG_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RECORD_LOG_CONFIGDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_RECORD_LOG_CONFIGDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") Me.columnLOG_DELETE = MyBase.Columns("LOG_DELETE") Me.columnLOG_UPDATE = MyBase.Columns("LOG_UPDATE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnNAME = MyBase.Columns("NAME") Me.columnFORM_ID1 = MyBase.Columns("FORM_ID1") Me.columnString = MyBase.Columns("String") 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.columnCONTROL_ID = New Global.System.Data.DataColumn("CONTROL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_ID) Me.columnLOG_DELETE = New Global.System.Data.DataColumn("LOG_DELETE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOG_DELETE) Me.columnLOG_UPDATE = New Global.System.Data.DataColumn("LOG_UPDATE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOG_UPDATE) 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.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnFORM_ID1 = New Global.System.Data.DataColumn("FORM_ID1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID1) Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") MyBase.Columns.Add(Me.columnString) 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.columnCONTROL_ID.AllowDBNull = false Me.columnLOG_DELETE.AllowDBNull = false Me.columnLOG_DELETE.DefaultValue = CType(false,Boolean) Me.columnLOG_UPDATE.AllowDBNull = false Me.columnLOG_UPDATE.DefaultValue = CType(false,Boolean) Me.columnCHANGED_WHO.MaxLength = 50 Me.columnFORM_ID.AllowDBNull = false Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 Me.columnFORM_ID1.AutoIncrement = true Me.columnFORM_ID1.AutoIncrementSeed = -1 Me.columnFORM_ID1.AutoIncrementStep = -1 Me.columnFORM_ID1.AllowDBNull = false Me.columnFORM_ID1.ReadOnly = true Me.columnString.ReadOnly = true Me.columnString.MaxLength = 203 End Sub _ Public Function NewTBPMO_RECORD_LOG_CONFIGRow() As TBPMO_RECORD_LOG_CONFIGRow Return CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_RECORD_LOG_CONFIGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_RECORD_LOG_CONFIGRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanged(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanging(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleted(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleting(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_RECORD_LOG_CONFIGDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_RECORD_CHANGESDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_RECORD_CHANGESRow) Private columnID As Global.System.Data.DataColumn Private _columnControl_Name As Global.System.Data.DataColumn Private _columnLog_Description 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 = "VWPMO_RECORD_CHANGES" 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 _Control_NameColumn() As Global.System.Data.DataColumn Get Return Me._columnControl_Name End Get End Property _ Public ReadOnly Property _Log_DescriptionColumn() As Global.System.Data.DataColumn Get Return Me._columnLog_Description 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 VWPMO_RECORD_CHANGESRow Get Return CType(Me.Rows(index),VWPMO_RECORD_CHANGESRow) End Get End Property _ Public Event VWPMO_RECORD_CHANGESRowChanging As VWPMO_RECORD_CHANGESRowChangeEventHandler _ Public Event VWPMO_RECORD_CHANGESRowChanged As VWPMO_RECORD_CHANGESRowChangeEventHandler _ Public Event VWPMO_RECORD_CHANGESRowDeleting As VWPMO_RECORD_CHANGESRowChangeEventHandler _ Public Event VWPMO_RECORD_CHANGESRowDeleted As VWPMO_RECORD_CHANGESRowChangeEventHandler _ Public Overloads Sub AddVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_RECORD_CHANGESRow(ByVal ID As Integer, ByVal _Control_Name As String, ByVal _Log_Description As String, ByVal Added_who As String, ByVal Added_When As Date) As VWPMO_RECORD_CHANGESRow Dim rowVWPMO_RECORD_CHANGESRow As VWPMO_RECORD_CHANGESRow = CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) Dim columnValuesArray() As Object = New Object() {ID, _Control_Name, _Log_Description, Added_who, Added_When} rowVWPMO_RECORD_CHANGESRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_RECORD_CHANGESRow) Return rowVWPMO_RECORD_CHANGESRow End Function _ Public Function FindByID(ByVal ID As Integer) As VWPMO_RECORD_CHANGESRow Return CType(Me.Rows.Find(New Object() {ID}),VWPMO_RECORD_CHANGESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_RECORD_CHANGESDataTable = CType(MyBase.Clone,VWPMO_RECORD_CHANGESDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_RECORD_CHANGESDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me._columnControl_Name = MyBase.Columns("Control-Name") Me._columnLog_Description = MyBase.Columns("Log-Description") Me.columnAdded_who = MyBase.Columns("Added who") Me.columnAdded_When = MyBase.Columns("Added When") End Sub _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me._columnControl_Name = New Global.System.Data.DataColumn("Control-Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnControl_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnControl_Name") Me._columnControl_Name.ExtendedProperties.Add("Generator_UserColumnName", "Control-Name") MyBase.Columns.Add(Me._columnControl_Name) Me._columnLog_Description = New Global.System.Data.DataColumn("Log-Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me._columnLog_Description.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLog_Description") Me._columnLog_Description.ExtendedProperties.Add("Generator_UserColumnName", "Log-Description") MyBase.Columns.Add(Me._columnLog_Description) 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.columnID}, true)) Me.columnID.AllowDBNull = false Me.columnID.Unique = true Me._columnControl_Name.AllowDBNull = false Me._columnControl_Name.MaxLength = 100 Me._columnLog_Description.AllowDBNull = false Me._columnLog_Description.MaxLength = 1000 Me.columnAdded_who.MaxLength = 100 End Sub _ Public Function NewVWPMO_RECORD_CHANGESRow() As VWPMO_RECORD_CHANGESRow Return CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_RECORD_CHANGESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_RECORD_CHANGESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_RECORD_CHANGESRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_RECORD_CHANGESRowChanged(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_RECORD_CHANGESRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_RECORD_CHANGESRowChanging(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_RECORD_CHANGESRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_RECORD_CHANGESRowDeleted(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_RECORD_CHANGESRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_RECORD_CHANGESRowDeleting(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_RECORD_CHANGESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_WF_ACTIVEDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow) Private columnWF_TASK_ID As Global.System.Data.DataColumn Private columnTITLE As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnSTATE_ID As Global.System.Data.DataColumn Private columnSTATE_DESC As Global.System.Data.DataColumn Private columnCOLOR As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDUE_DATE As Global.System.Data.DataColumn Private columnUSERNAME 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 columnTASK_DATE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWPMO_WF_ACTIVE" 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_TASK_ID End Get End Property _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE End Get End Property _ Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_ID End Get End Property _ Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_ID End Get End Property _ Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_DESC End Get End Property _ Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDUE_DATE End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME 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 TASK_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnTASK_DATE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_ACTIVERow Get Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow) End Get End Property _ Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler _ Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler _ Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler _ Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler _ Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_WF_ACTIVERow(ByVal WF_TASK_ID As Integer, ByVal TITLE As String, ByVal RECORD_ID As Integer, ByVal STATE_ID As Integer, ByVal STATE_DESC As String, ByVal COLOR As String, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_ACTIVERow Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow) Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_WF_ACTIVERow) Return rowVWPMO_WF_ACTIVERow End Function _ Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_ACTIVERow Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_ACTIVERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_WF_ACTIVEDataTable() End Function _ Friend Sub InitVars() Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") Me.columnTITLE = MyBase.Columns("TITLE") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnSTATE_ID = MyBase.Columns("STATE_ID") Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") Me.columnCOLOR = MyBase.Columns("COLOR") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") End Sub _ Private Sub InitClass() Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_TASK_ID) Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTITLE) Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ID) Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_ID) Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_DESC) Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLOR) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDUE_DATE) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTASK_DATE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) Me.columnWF_TASK_ID.AllowDBNull = false Me.columnWF_TASK_ID.Unique = true Me.columnTITLE.AllowDBNull = false Me.columnTITLE.MaxLength = 100 Me.columnRECORD_ID.AllowDBNull = false Me.columnSTATE_ID.AllowDBNull = false Me.columnSTATE_DESC.AllowDBNull = false Me.columnSTATE_DESC.MaxLength = 50 Me.columnCOLOR.MaxLength = 50 Me.columnCOMMENT.MaxLength = 500 Me.columnUSERNAME.ReadOnly = true Me.columnUSERNAME.MaxLength = 1 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow Return CType(Me.NewRow,VWPMO_WF_ACTIVERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_WF_ACTIVERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_WF_ACTIVERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "VWPMO_WF_ACTIVEDataTable" 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_EMAIL_ACCOUNTDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnEMAIL_FROM As Global.System.Data.DataColumn Private columnEMAIL_SMTP As Global.System.Data.DataColumn Private columnEMAIL_USER As Global.System.Data.DataColumn Private columnEMAIL_PW As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_ACCOUNT" 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 EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM End Get End Property _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP End Get End Property _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER End Get End Property _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow Get Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) End Get End Property _ Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_ACCOUNTRow Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) Return rowTBDD_EMAIL_ACCOUNTRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_ACCOUNTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") 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.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_FROM) Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_SMTP) Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_USER) Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEMAIL_PW) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.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.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.MaxLength = 50 Me.columnEMAIL_FROM.AllowDBNull = false Me.columnEMAIL_FROM.MaxLength = 100 Me.columnEMAIL_SMTP.AllowDBNull = false Me.columnEMAIL_SMTP.MaxLength = 100 Me.columnEMAIL_USER.AllowDBNull = false Me.columnEMAIL_USER.MaxLength = 100 Me.columnEMAIL_PW.AllowDBNull = false Me.columnEMAIL_PW.MaxLength = 100 Me.columnACTIVE.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_ACCOUNTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_ACCOUNTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() 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_EMAIL_ACCOUNTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_CONNECTIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_CONNECTIONRow) Private columnGUID As Global.System.Data.DataColumn Private columnDESCRIPTION As Global.System.Data.DataColumn Private columnSQL_PROVIDER As Global.System.Data.DataColumn Private columnSERVER As Global.System.Data.DataColumn Private columnDATABASE As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnPASSWORD As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnAKTIVE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_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 DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION 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 DATABASEColumn() As Global.System.Data.DataColumn Get Return Me.columnDATABASE 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 COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property AKTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIVE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_CONNECTIONRow Get Return CType(Me.Rows(index),TBPMO_CONNECTIONRow) End Get End Property _ Public Event TBPMO_CONNECTIONRowChanging As TBPMO_CONNECTIONRowChangeEventHandler _ Public Event TBPMO_CONNECTIONRowChanged As TBPMO_CONNECTIONRowChangeEventHandler _ Public Event TBPMO_CONNECTIONRowDeleting As TBPMO_CONNECTIONRowChangeEventHandler _ Public Event TBPMO_CONNECTIONRowDeleted As TBPMO_CONNECTIONRowChangeEventHandler _ Public Overloads Sub AddTBPMO_CONNECTIONRow(ByVal row As TBPMO_CONNECTIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_CONNECTIONRow(ByVal DESCRIPTION As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATABASE As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal COMMENT As String, ByVal AKTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_CONNECTIONRow Dim rowTBPMO_CONNECTIONRow As TBPMO_CONNECTIONRow = CType(Me.NewRow,TBPMO_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_CONNECTIONRow) Return rowTBPMO_CONNECTIONRow End Function _ Public Function FindByGUID(ByVal GUID As Short) As TBPMO_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_CONNECTIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_CONNECTIONDataTable = CType(MyBase.Clone,TBPMO_CONNECTIONDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_CONNECTIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") Me.columnSERVER = MyBase.Columns("SERVER") Me.columnDATABASE = MyBase.Columns("DATABASE") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnPASSWORD = MyBase.Columns("PASSWORD") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnAKTIVE = MyBase.Columns("AKTIVE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), 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.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.columnDATABASE = New Global.System.Data.DataColumn("DATABASE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATABASE) 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.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnAKTIVE = New Global.System.Data.DataColumn("AKTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTIVE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnDESCRIPTION.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 100 Me.columnSERVER.MaxLength = 150 Me.columnDATABASE.MaxLength = 100 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnCOMMENT.MaxLength = 400 Me.columnAKTIVE.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_CONNECTIONRow() As TBPMO_CONNECTIONRow Return CType(Me.NewRow,TBPMO_CONNECTIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_CONNECTIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_CONNECTIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_CONNECTIONRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_CONNECTIONRowChanged(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_CONNECTIONRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_CONNECTIONRowChanging(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_CONNECTIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_CONNECTIONRowDeleted(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_CONNECTIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_CONNECTIONRowDeleting(Me, New TBPMO_CONNECTIONRowChangeEvent(CType(e.Row,TBPMO_CONNECTIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_CONNECTIONRow(ByVal row As TBPMO_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) Private columnGUID As Global.System.Data.DataColumn Private columnCONSTRUCT_ID As Global.System.Data.DataColumn Private columnFORM_ID As Global.System.Data.DataColumn Private columnPARENT_ID As Global.System.Data.DataColumn Private columnLEVEL1_SELECT As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONSTRUCT_ID End Get End Property _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID End Get End Property _ Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ID End Get End Property _ Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL1_SELECT End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE1 End Get End Property _ Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE2 End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_NAME1 End Get End Property _ Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_NAME2 End Get End Property _ Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDREAM_SEARCH End Get End Property _ Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN1 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN2 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN3 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN4 End Get End Property _ Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN5 End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Get End Property _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As TBPMO_FORMRow, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ ByVal SEARCH_PATTERN1 As String, _ ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5} If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) End If If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) Is Nothing) Then columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID(0) End If rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONSTRUCT_ID) Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_ID) Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_ID) Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLEVEL1_SELECT) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLUMN_NAME1) Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLUMN_NAME2) Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) 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.columnCONSTRUCT_ID.AllowDBNull = false Me.columnFORM_ID.AllowDBNull = false Me.columnPARENT_ID.AllowDBNull = false Me.columnLEVEL1_SELECT.AllowDBNull = false Me.columnSEQUENCE.AllowDBNull = false Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 Me.columnSQL_SELECT_EBENE2.AllowDBNull = false Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOLUMN_NAME1.AllowDBNull = false Me.columnCOLUMN_NAME1.MaxLength = 100 Me.columnCOLUMN_NAME2.AllowDBNull = false Me.columnCOLUMN_NAME2.MaxLength = 100 Me.columnWINDREAM_SEARCH.MaxLength = 300 Me.columnSEARCH_PATTERN1.MaxLength = 50 Me.columnSEARCH_PATTERN2.MaxLength = 50 Me.columnSEARCH_PATTERN3.MaxLength = 50 Me.columnSEARCH_PATTERN4.MaxLength = 50 Me.columnSEARCH_PATTERN5.MaxLength = 50 End Sub _ Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_DMSDataSet = New DD_DMSDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORMRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM As TBPMO_FORMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM = CType(Me.Table,TBPMO_FORMDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM.GUIDColumn) = value End Set End Property _ Public Property PARENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM.PARENT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM.PARENT_IDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_FORM.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_FORM.NAMEColumn) = value End Set End Property _ Public Property LEVEL() As String Get Return CType(Me(Me.tableTBPMO_FORM.LEVELColumn),String) End Get Set Me(Me.tableTBPMO_FORM.LEVELColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FORM.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FORM.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn) = value End Set End Property _ Public Property SHOW_FORM_CONSTRUCT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM.SHOW_FORM_CONSTRUCTColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM.SHOW_FORM_CONSTRUCTColumn) = value End Set End Property _ Public Property FORM_TYPE_ID() As Integer Get Try Return CType(Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TYPE_ID in Tabelle TBPMO_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) = value End Set End Property _ Public Property TBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_FORM_TYPE_ID")),TBPMO_FORM_TYPERow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_FORM_TYPE_ID")) End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFORM_TYPE_IDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) End Function _ Public Sub SetFORM_TYPE_IDNull() Me(Me.tableTBPMO_FORM.FORM_TYPE_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_FORM_VIEWRows() As TBPMO_FORM_VIEWRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID") Is Nothing) Then Return New TBPMO_FORM_VIEWRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID")),TBPMO_FORM_VIEWRow()) End If End Function _ Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID") Is Nothing) Then Return New TBPMO_WORKFLOW_FORMRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_WORKFLOW_FORMRow()) End If End Function _ Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID") Is Nothing) Then Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_CONTROL_SCREENRow Inherits Global.System.Data.DataRow Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_CONTROL_SCREEN = CType(Me.Table,VWPMO_CONTROL_SCREENDataTable) End Sub _ Public Property CONTROL_ID() As Integer Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_IDColumn) = value End Set End Property _ Public Property CONTROL_NAME() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_NAMEColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_NAMEColumn) = value End Set End Property _ Public Property CONTROL_REQUIRED() As Boolean Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_REQUIREDColumn),Boolean) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_REQUIREDColumn) = value End Set End Property _ Public Property CONTROL_DEF_VALUE() As String Get Try Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONTROL_DEF_VALUE in Tabelle VWPMO_CONTROL_SCREEN ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) = value End Set End Property _ Public Property CONTROL_READ_ONLY() As Boolean Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_READ_ONLYColumn),Boolean) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_READ_ONLYColumn) = value End Set End Property _ Public Property CTRLTYPE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_IDColumn) = value End Set End Property _ Public Property CTRLTYPE_NAME() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_NAMEColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLTYPE_NAMEColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_IDColumn) = value End Set End Property _ Public Property FORM_NAME() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_NAMEColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_NAMEColumn) = value End Set End Property _ Public Property FORM_LEVEL() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_LEVELColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.FORM_LEVELColumn) = value End Set End Property _ Public Property SCREEN_ID() As Integer Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_IDColumn) = value End Set End Property _ Public Property SCREEN_NAME() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_NAMEColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.SCREEN_NAMEColumn) = value End Set End Property _ Public Property CTRLSCR_ID() As Integer Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_IDColumn) = value End Set End Property _ Public Property CTRLSCR_CAPTION() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_CAPTIONColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_CAPTIONColumn) = value End Set End Property _ Public Property CTRLSCR_X_LOC() As Double Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_X_LOCColumn),Double) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_X_LOCColumn) = value End Set End Property _ Public Property CTRLSCR_Y_LOC() As Double Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_Y_LOCColumn),Double) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_Y_LOCColumn) = value End Set End Property _ Public Property CTRLSCR_HEIGHT() As Short Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_HEIGHTColumn),Short) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_HEIGHTColumn) = value End Set End Property _ Public Property CTRLSCR_WIDTH() As Short Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_WIDTHColumn),Short) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_WIDTHColumn) = value End Set End Property _ Public Property CTRLSCR_FONT_FAMILY() As String Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_FAMILYColumn),String) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_FAMILYColumn) = value End Set End Property _ Public Property CTRLSCR_FONT_COLOR() As Long Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_COLORColumn),Long) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_COLORColumn) = value End Set End Property _ Public Property CTRLSCR_FONT_SIZE() As Short Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_SIZEColumn),Short) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_SIZEColumn) = value End Set End Property _ Public Property CTRLSCR_FONT_STYLE() As Short Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_STYLEColumn),Short) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_FONT_STYLEColumn) = value End Set End Property _ Public Property CTRLSCR_TAB_INDEX() As Short Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_INDEXColumn),Short) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_INDEXColumn) = value End Set End Property _ Public Property CTRLSCR_TAB_STOP() As Boolean Get Return CType(Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_STOPColumn),Boolean) End Get Set Me(Me.tableVWPMO_CONTROL_SCREEN.CTRLSCR_TAB_STOPColumn) = value End Set End Property _ Public Function IsCONTROL_DEF_VALUENull() As Boolean Return Me.IsNull(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) End Function _ Public Sub SetCONTROL_DEF_VALUENull() Me(Me.tableVWPMO_CONTROL_SCREEN.CONTROL_DEF_VALUEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORM_VIEWRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_VIEW = CType(Me.Table,TBPMO_FORM_VIEWDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_VIEW.GUIDColumn) = value End Set End Property _ Public Property SCREEN_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.SCREEN_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_VIEW.SCREEN_IDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.FORM_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_VIEW.FORM_IDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.FORM_TITLEColumn),String) End Get Set Me(Me.tableTBPMO_FORM_VIEW.FORM_TITLEColumn) = value End Set End Property _ Public Property DESCRIPTION() As String Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.DESCRIPTIONColumn),String) End Get Set Me(Me.tableTBPMO_FORM_VIEW.DESCRIPTIONColumn) = value End Set End Property _ Public Property WIDTH() As Short Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) = value End Set End Property _ Public Property HEIGHT() As Short Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) = value End Set End Property _ Public Property DIALOG() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.DIALOGColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_VIEW.DIALOGColumn) = value End Set End Property _ Public Property MAXIMIZABLE() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAXIMIZABLEColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_VIEW.MAXIMIZABLEColumn) = value End Set End Property _ Public Property MINIMIZABLE() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.MINIMIZABLEColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_VIEW.MINIMIZABLEColumn) = value End Set End Property _ Public Property MAX_WIDTH() As Short Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MAX_WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) = value End Set End Property _ Public Property MIN_WIDTH() As Short Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MIN_WIDTH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) = value End Set End Property _ Public Property MAX_HEIGHT() As Short Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MAX_HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) = value End Set End Property _ Public Property MIN_HEIGHT() As Short Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MIN_HEIGHT in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) = value End Set End Property _ Public Property X_LOC() As Double Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte X_LOC in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) = value End Set End Property _ Public Property Y_LOC() As Double Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Y_LOC in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) = value End Set End Property _ Public Property IS_MDI_CHILD() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.IS_MDI_CHILDColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_VIEW.IS_MDI_CHILDColumn) = value End Set End Property _ Public Property DOCUMENT_VIEW() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.DOCUMENT_VIEWColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_VIEW.DOCUMENT_VIEWColumn) = value End Set End Property _ Public Property WINDREAM_SEARCH() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) = value End Set End Property _ Public Property SEARCH_PATTERN1() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) = value End Set End Property _ Public Property SEARCH_PATTERN2() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) = value End Set End Property _ Public Property SEARCH_PATTERN3() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) = value End Set End Property _ Public Property SEARCH_PATTERN4() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) = value End Set End Property _ Public Property SEARCH_PATTERN5() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_VIEW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) = value End Set End Property _ Public Property ALLOW_DROP() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_VIEW.ALLOW_DROPColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_VIEW.ALLOW_DROPColumn) = value End Set End Property _ Public Property TBPMO_FORMRow() As TBPMO_FORMRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID")) End Set End Property _ Public Function IsWIDTHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) End Function _ Public Sub SetWIDTHNull() Me(Me.tableTBPMO_FORM_VIEW.WIDTHColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsHEIGHTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) End Function _ Public Sub SetHEIGHTNull() Me(Me.tableTBPMO_FORM_VIEW.HEIGHTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMAX_WIDTHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) End Function _ Public Sub SetMAX_WIDTHNull() Me(Me.tableTBPMO_FORM_VIEW.MAX_WIDTHColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMIN_WIDTHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) End Function _ Public Sub SetMIN_WIDTHNull() Me(Me.tableTBPMO_FORM_VIEW.MIN_WIDTHColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMAX_HEIGHTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) End Function _ Public Sub SetMAX_HEIGHTNull() Me(Me.tableTBPMO_FORM_VIEW.MAX_HEIGHTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMIN_HEIGHTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) End Function _ Public Sub SetMIN_HEIGHTNull() Me(Me.tableTBPMO_FORM_VIEW.MIN_HEIGHTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsX_LOCNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) End Function _ Public Sub SetX_LOCNull() Me(Me.tableTBPMO_FORM_VIEW.X_LOCColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsY_LOCNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) End Function _ Public Sub SetY_LOCNull() Me(Me.tableTBPMO_FORM_VIEW.Y_LOCColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_VIEW.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_VIEW.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWINDREAM_SEARCHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) End Function _ Public Sub SetWINDREAM_SEARCHNull() Me(Me.tableTBPMO_FORM_VIEW.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) End Function _ Public Sub SetSEARCH_PATTERN1Null() Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) End Function _ Public Sub SetSEARCH_PATTERN2Null() Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN3Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) End Function _ Public Sub SetSEARCH_PATTERN3Null() Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN4Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) End Function _ Public Sub SetSEARCH_PATTERN4Null() Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN5Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) End Function _ Public Sub SetSEARCH_PATTERN5Null() Me(Me.tableTBPMO_FORM_VIEW.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_RECORDRow Inherits Global.System.Data.DataRow Private tableTBPMO_RECORD As TBPMO_RECORDDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_RECORD = CType(Me.Table,TBPMO_RECORDDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_RECORD.GUIDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_RECORD.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_RECORD.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_RECORD.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_RECORD.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RECORD ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RECORD ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_RECORD.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") Is Nothing) Then Return New VWPMO_WF_USER_ACTIVERow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),VWPMO_WF_USER_ACTIVERow()) End If End Function _ Public Function GetVWPMO_FOLLOWING_TASKSRows() As VWPMO_FOLLOWING_TASKSRow() If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1") Is Nothing) Then Return New VWPMO_FOLLOWING_TASKSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")),VWPMO_FOLLOWING_TASKSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_DOKUMENTTYPESRow Inherits Global.System.Data.DataRow Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_DOKUMENTTYPES = CType(Me.Table,VWPMO_DOKUMENTTYPESDataTable) End Sub _ Public Property FORMVIEW_ID() As Integer Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORMVIEW_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.FORMVIEW_IDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_IDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_TITLEColumn),String) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.FORM_TITLEColumn) = value End Set End Property _ Public Property DOKUMENTTYPE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPE_IDColumn) = value End Set End Property _ Public Property DOKUMENTTYPE() As String Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPEColumn),String) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.DOKUMENTTYPEColumn) = value End Set End Property _ Public Property PATH() As String Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.PATHColumn),String) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.PATHColumn) = value End Set End Property _ Public Property SHORTNAME() As String Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.SHORTNAMEColumn),String) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.SHORTNAMEColumn) = value End Set End Property _ Public Property OBJECT_TYPE() As String Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.OBJECT_TYPEColumn),String) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.OBJECT_TYPEColumn) = value End Set End Property _ Public Property FW_DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_DOKUMENTTYPES.FW_DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_DOKUMENTTYPES.FW_DOCTYPE_IDColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WD_FVIEW_DT_INDEXRow Inherits Global.System.Data.DataRow Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(Me.Table,TBPMO_WD_FVIEW_DT_INDEXDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.GUIDColumn) = value End Set End Property _ Public Property FW_DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.FW_DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.FW_DOCTYPE_IDColumn) = value End Set End Property _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEXNAMEColumn),String) End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEXNAMEColumn) = value End Set End Property _ Public Property INDEX_VALUE() As String Get Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEX_VALUEColumn),String) End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.INDEX_VALUEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_FVIEW_DT_INDEX ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_FVIEW_DT_INDEX ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WD_FVIEW_DT_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WORKFLOW_TASKRow Inherits Global.System.Data.DataRow Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WORKFLOW_TASK = CType(Me.Table,TBPMO_WORKFLOW_TASKDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.GUIDColumn) = value End Set End Property _ Public Property RECORD_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.RECORD_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.RECORD_IDColumn) = value End Set End Property _ Public Property WF_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.WF_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.WF_IDColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) = value End Set End Property _ Public Property DUE_DATE() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) = value End Set End Property _ Public Property STATE_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.STATE_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.STATE_IDColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_TASK ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK.TITLEColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK.TITLEColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_WORKFLOW_TASK.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDUE_DATENull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) End Function _ Public Sub SetDUE_DATENull() Me(Me.tableTBPMO_WORKFLOW_TASK.DUE_DATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WORKFLOW_TASK.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WORKFLOW_TASK_STATERow Inherits Global.System.Data.DataRow Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(Me.Table,TBPMO_WORKFLOW_TASK_STATEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.GUIDColumn) = value End Set End Property _ Public Property STATE_DESC() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) = value End Set End Property _ Public Property COLOR() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = value End Set End Property _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOLORNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) End Function _ Public Sub SetCOLORNull() Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") Is Nothing) Then Return New VWPMO_WF_USER_ACTIVERow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),VWPMO_WF_USER_ACTIVERow()) End If End Function _ Public Function GetVWPMO_FOLLOWING_TASKSRows() As VWPMO_FOLLOWING_TASKSRow() If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1") Is Nothing) Then Return New VWPMO_FOLLOWING_TASKSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")),VWPMO_FOLLOWING_TASKSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_GUI_ENTITYRow Inherits Global.System.Data.DataRow Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_GUI_ENTITY = CType(Me.Table,VWPMO_GUI_ENTITYDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableVWPMO_GUI_ENTITY.IDColumn),Integer) End Get Set Me(Me.tableVWPMO_GUI_ENTITY.IDColumn) = value End Set End Property _ Public Property Name() As String Get Return CType(Me(Me.tableVWPMO_GUI_ENTITY.NameColumn),String) End Get Set Me(Me.tableVWPMO_GUI_ENTITY.NameColumn) = value End Set End Property _ Public Property Title() As String Get Return CType(Me(Me.tableVWPMO_GUI_ENTITY.TitleColumn),String) End Get Set Me(Me.tableVWPMO_GUI_ENTITY.TitleColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WORKFLOWRow Inherits Global.System.Data.DataRow Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WORKFLOW = CType(Me.Table,TBPMO_WORKFLOWDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW.GUIDColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW.TITLEColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW.TITLEColumn) = value End Set End Property _ Public Property DESCRIPTION() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPMO_WORKFLOW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WORKFLOW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) End Function _ Public Sub SetDESCRIPTIONNull() Me(Me.tableTBPMO_WORKFLOW.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WORKFLOW.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() If (Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") Is Nothing) Then Return New TBPMO_WORKFLOW_FORMRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOW_FORMRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WORKFLOW_FORMRow Inherits Global.System.Data.DataRow Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WORKFLOW_FORM = CType(Me.Table,TBPMO_WORKFLOW_FORMDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn) = value End Set End Property _ Public Property WF_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_FORMRow() As TBPMO_FORMRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")) End Set End Property _ Public Property TBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOWRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")) End Set End Property _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) End Function _ Public Sub SetSEQUENCENull() Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_WF_USER_ACTIVERow Inherits Global.System.Data.DataRow Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_WF_USER_ACTIVE = CType(Me.Table,VWPMO_WF_USER_ACTIVEDataTable) End Sub _ Public Property WF_TASK_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn),String) End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn) = value End Set End Property _ Public Property RECORD_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn) = value End Set End Property _ Public Property STATE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = value End Set End Property _ Public Property DUE_DATE() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = value End Set End Property _ Public Property TASK_DATE() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = value End Set End Property _ Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),TBPMO_RECORDRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")) End Set End Property _ Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),TBPMO_WORKFLOW_TASK_STATERow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")) End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDUE_DATENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) End Function _ Public Sub SetDUE_DATENull() Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTASK_DATENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) End Function _ Public Sub SetTASK_DATENull() Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_FOLLOWING_TASKSRow Inherits Global.System.Data.DataRow Private tableVWPMO_FOLLOWING_TASKS As VWPMO_FOLLOWING_TASKSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_FOLLOWING_TASKS = CType(Me.Table,VWPMO_FOLLOWING_TASKSDataTable) End Sub _ Public Property JOB() As String Get Try Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte JOB in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) = value End Set End Property _ Public Property WF_TASK_ID() As Integer Get Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.WF_TASK_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.WF_TASK_IDColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.TITLEColumn),String) End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.TITLEColumn) = value End Set End Property _ Public Property RECORD_ID() As Integer Get Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.RECORD_IDColumn) = value End Set End Property _ Public Property STATE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.STATE_IDColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) = value End Set End Property _ Public Property DUE_DATE() As Date Get Try Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.ADDED_WHENColumn),Date) End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_FOLLOWING_TASKS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")),TBPMO_RECORDRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID1")) End Set End Property _ Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")),TBPMO_WORKFLOW_TASK_STATERow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID1")) End Set End Property _ Public Function IsJOBNull() As Boolean Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) End Function _ Public Sub SetJOBNull() Me(Me.tableVWPMO_FOLLOWING_TASKS.JOBColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableVWPMO_FOLLOWING_TASKS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDUE_DATENull() As Boolean Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) End Function _ Public Sub SetDUE_DATENull() Me(Me.tableVWPMO_FOLLOWING_TASKS.DUE_DATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableVWPMO_FOLLOWING_TASKS.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWPMO_FOLLOWING_TASKS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYRow Inherits Global.System.Data.DataRow Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(Me.Table,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) End Sub _ Public Property STATE() As String Get Try Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) = value End Set End Property _ Public Property STATE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATE_IDColumn) = value End Set End Property _ Public Property Authority() As String Get Try Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Authority in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) = value End Set End Property _ Public Property _String() As String Get Try Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) = value End Set End Property _ Public Property WF_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.WF_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.WF_IDColumn) = value End Set End Property _ Public Property RECORD_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.RECORD_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.RECORD_IDColumn) = value End Set End Property _ Public Property COLOR() As String Get Try Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_OVERVIEW_AUTHORITY ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsSTATENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) End Function _ Public Sub SetSTATENull() Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.STATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAuthorityNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) End Function _ Public Sub SetAuthorityNull() Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.AuthorityColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) End Function _ Public Sub Set_StringNull() Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.StringColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOLORNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) End Function _ Public Sub SetCOLORNull() Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.COLORColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_DOKUMENTARTRow Inherits Global.System.Data.DataRow Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value End Set End Property _ Public Property EINGANGSART_ID() As Byte Get Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) End Get Set Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value End Set End Property _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value End Set End Property _ Public Property ZIEL_PFAD() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value End Set End Property _ Public Property BESCHREIBUNG() As String Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value End Set End Property _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) End Get Set Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value End Set End Property _ Public Property NAMENKONVENTION() As String Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAMENKONVENTION in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value End Set End Property _ Public Property OBJEKTTYP() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value End Set End Property _ Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) End Set End Property _ Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) End Function _ Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENKONVENTIONNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) End Function _ Public Sub SetNAMENKONVENTIONNull() Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) End Function _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then Return New TBDD_INDEX_AUTOMRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_EINGANGSARTENRow Inherits Global.System.Data.DataRow Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) End Sub _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) End Get Set Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) End Get Set Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value End Set End Property _ Public Property BESCHREIBUNG() As String Get Try Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) End Get Set Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value End Set End Property _ Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) End Function _ Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) End Function _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then Return New TBDD_DOKUMENTARTRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_INDEX_AUTOMRow Inherits Global.System.Data.DataRow Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value End Set End Property _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value End Set End Property _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value End Set End Property _ Public Property VALUE() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value End Set End Property _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) End Set End Property _ Public Property TBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID1")),TBPMO_WD_FORMVIEW_DOKTYPESRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID1")) End Set End Property _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) End Function _ Public Sub SetVALUENull() Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESRow Inherits Global.System.Data.DataRow Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(Me.Table,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn) = value End Set End Property _ Public Property FORMVIEW_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_IDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORM_TITLEColumn),String) End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.FORM_TITLEColumn) = value End Set End Property _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_IDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.BEZEICHNUNGColumn),String) End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.BEZEICHNUNGColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_FORMVIEW_DOKTYPES ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID1") Is Nothing) Then Return New TBDD_INDEX_AUTOMRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID1")),TBDD_INDEX_AUTOMRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_KONFIGURATIONRow Inherits Global.System.Data.DataRow Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_KONFIGURATION = CType(Me.Table,TBPMO_KONFIGURATIONDataTable) End Sub _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.GUIDColumn),Byte) End Get Set Me(Me.tableTBPMO_KONFIGURATION.GUIDColumn) = value End Set End Property _ Public Property LICENSE() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LICENSE in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) = value End Set End Property _ Public Property VEKTOR_DELIMITER() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.VEKTOR_DELIMITERColumn),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.VEKTOR_DELIMITERColumn) = value End Set End Property _ Public Property EMAIL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_ACTIVEColumn) = value End Set End Property _ Public Property EMAIL_FROM() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_FROM in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) = value End Set End Property _ Public Property EMAIL_SMTP() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) = value End Set End Property _ Public Property EMAIL_USER() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) = value End Set End Property _ Public Property EMAIL_PW() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_PW in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) = value End Set End Property _ Public Property EMAIL_REMINDER_HEADER() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_HEADER in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value End Set End Property _ Public Property EMAIL_REMINDER_FOOTER() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_FOOTER in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value End Set End Property _ Public Property ADMIN_PW() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADMIN_PWColumn),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.ADMIN_PWColumn) = value End Set End Property _ Public Property ADMIN_SECURITY() As Boolean Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) End Get Set Me(Me.tableTBPMO_KONFIGURATION.ADMIN_SECURITYColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_KONFIGURATION.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_KONFIGURATION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) = value End Set End Property _ Public Property SQL_RECORD_SQL1() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL1Column),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL1Column) = value End Set End Property _ Public Property SQL_RECORD_SQL2() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL2Column),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.SQL_RECORD_SQL2Column) = value End Set End Property _ Public Property WORKFLOW_FINAL_STATE1() As Integer Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE1Column),Integer) End Get Set Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE1Column) = value End Set End Property _ Public Property WORKFLOW_FINAL_STATE2() As Integer Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE2 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) = value End Set End Property _ Public Property WORKFLOW_FINAL_STATE3() As Integer Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE3 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) = value End Set End Property _ Public Property WORKFLOW_FINAL_STATE4() As Integer Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE4 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) = value End Set End Property _ Public Property WORKFLOW_FINAL_STATE5() As Integer Get Try Return CType(Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORKFLOW_FINAL_STATE5 in Tabelle TBPMO_KONFIGURATION ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) = value End Set End Property _ Public Property VERSION_DELIMITER() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.VERSION_DELIMITERColumn),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.VERSION_DELIMITERColumn) = value End Set End Property _ Public Property FILE_DELIMITER() As String Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.FILE_DELIMITERColumn),String) End Get Set Me(Me.tableTBPMO_KONFIGURATION.FILE_DELIMITERColumn) = value End Set End Property _ Public Property WD_UNICODE() As Boolean Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.WD_UNICODEColumn),Boolean) End Get Set Me(Me.tableTBPMO_KONFIGURATION.WD_UNICODEColumn) = value End Set End Property _ Public Property FOLLOW_UP_LOG_ERR_ONLY() As Boolean Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_LOG_ERR_ONLYColumn),Boolean) End Get Set Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_LOG_ERR_ONLYColumn) = value End Set End Property _ Public Property FOLLOW_UP_EMAIL_PROFILE() As Integer Get Return CType(Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_EMAIL_PROFILEColumn),Integer) End Get Set Me(Me.tableTBPMO_KONFIGURATION.FOLLOW_UP_EMAIL_PROFILEColumn) = value End Set End Property _ Public Function IsLICENSENull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) End Function _ Public Sub SetLICENSENull() Me(Me.tableTBPMO_KONFIGURATION.LICENSEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAIL_FROMNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) End Function _ Public Sub SetEMAIL_FROMNull() Me(Me.tableTBPMO_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAIL_SMTPNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) End Function _ Public Sub SetEMAIL_SMTPNull() Me(Me.tableTBPMO_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAIL_USERNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) End Function _ Public Sub SetEMAIL_USERNull() Me(Me.tableTBPMO_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAIL_PWNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) End Function _ Public Sub SetEMAIL_PWNull() Me(Me.tableTBPMO_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) End Function _ Public Sub SetEMAIL_REMINDER_HEADERNull() Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) End Function _ Public Sub SetEMAIL_REMINDER_FOOTERNull() Me(Me.tableTBPMO_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_KONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWORKFLOW_FINAL_STATE2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) End Function _ Public Sub SetWORKFLOW_FINAL_STATE2Null() Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWORKFLOW_FINAL_STATE3Null() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) End Function _ Public Sub SetWORKFLOW_FINAL_STATE3Null() Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWORKFLOW_FINAL_STATE4Null() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) End Function _ Public Sub SetWORKFLOW_FINAL_STATE4Null() Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsWORKFLOW_FINAL_STATE5Null() As Boolean Return Me.IsNull(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) End Function _ Public Sub SetWORKFLOW_FINAL_STATE5Null() Me(Me.tableTBPMO_KONFIGURATION.WORKFLOW_FINAL_STATE5Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_USERRow Inherits Global.System.Data.DataRow Private tableTBDD_USER As TBDD_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_USER.GUIDColumn) = value End Set End Property _ Public Property PRENAME() As String Get Try Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.PRENAMEColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.NAMEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) End Get Set Me(Me.tableTBDD_USER.USERNAMEColumn) = value End Set End Property _ Public Property EMAIL() As String Get Try Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.EMAILColumn) = value End Set End Property _ Public Property LOGGED_IN() As Boolean Get Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) End Get Set Me(Me.tableTBDD_USER.LOGGED_INColumn) = value End Set End Property _ Public Property LOGGED_WHERE() As String Get Try Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value End Set End Property _ Public Property LOG_IN_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value End Set End Property _ Public Property LOG_OUT_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value End Set End Property _ Public Property RECORD_ADMIN() As Boolean Get Return CType(Me(Me.tableTBDD_USER.RECORD_ADMINColumn),Boolean) End Get Set Me(Me.tableTBDD_USER.RECORD_ADMINColumn) = value End Set End Property _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ Public Sub SetEMAILNull() Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLOGGED_WHERENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) End Function _ Public Sub SetLOGGED_WHERENull() Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLOG_IN_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) End Function _ Public Sub SetLOG_IN_WHENNull() Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLOG_OUT_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) End Function _ Public Sub SetLOG_OUT_WHENNull() Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) End If End Function _ Public Function GetTBPMO_FOLLUPEMAIL_USERRows() As TBPMO_FOLLUPEMAIL_USERRow() If (Me.Table.ChildRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID") Is Nothing) Then Return New TBPMO_FOLLUPEMAIL_USERRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")),TBPMO_FOLLUPEMAIL_USERRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORM_TYPERow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_TYPE = CType(Me.Table,TBPMO_FORM_TYPEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_TYPE.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_TYPE.GUIDColumn) = value End Set End Property _ Public Property FORM_TYPE() As String Get Return CType(Me(Me.tableTBPMO_FORM_TYPE.FORM_TYPEColumn),String) End Get Set Me(Me.tableTBPMO_FORM_TYPE.FORM_TYPEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_TYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_FORMRows() As TBPMO_FORMRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_FORM_TYPE_ID") Is Nothing) Then Return New TBPMO_FORMRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_FORM_TYPE_ID")),TBPMO_FORMRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_USER_GROUPSRow Inherits Global.System.Data.DataRow Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_USERS_GROUPSRow Inherits Global.System.Data.DataRow Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_USERS_GROUPS = CType(Me.Table,VWPMO_USERS_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GUIDColumn),Integer) End Get Set Me(Me.tableVWPMO_USERS_GROUPS.GUIDColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableVWPMO_USERS_GROUPS.USER_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_USERS_GROUPS.USER_IDColumn) = value End Set End Property _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GROUP_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_USERS_GROUPS.GROUP_IDColumn) = value End Set End Property _ Public Property USERNAME() As String Get Return CType(Me(Me.tableVWPMO_USERS_GROUPS.USERNAMEColumn),String) End Get Set Me(Me.tableVWPMO_USERS_GROUPS.USERNAMEColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) = value End Set End Property _ Public Property PRENAME() As String Get Try Return CType(Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) = value End Set End Property _ Public Property GROUP_NAME() As String Get Try Return CType(Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_NAME in Tabelle VWPMO_USERS_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableVWPMO_USERS_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() Me(Me.tableVWPMO_USERS_GROUPS.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGROUP_NAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) End Function _ Public Sub SetGROUP_NAMENull() Me(Me.tableVWPMO_USERS_GROUPS.GROUP_NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_GROUPS_USERRow Inherits Global.System.Data.DataRow Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) End Get Set Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value End Set End Property _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) End Get Set Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) End Set End Property _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_DOKART_MODULERow Inherits Global.System.Data.DataRow Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_DOKART_MODULE = CType(Me.Table,TBWH_DOKART_MODULEDataTable) End Sub _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_DOKART_MODULE.BEZEICHNUNGColumn),String) End Get Set Me(Me.tableTBWH_DOKART_MODULE.BEZEICHNUNGColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_DOKART_MODULE ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_DOKART_MODULE.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBWH_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORM_CONSTRUCTORRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value End Set End Property _ Public Property SEQUENCE_MENU() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value End Set End Property _ Public Property MENU_IMG() As Byte() Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value End Set End Property _ Public Property SHORT_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value End Set End Property _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) End Function _ Public Sub SetFORM_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMENU_IMGNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) End Function _ Public Sub SetMENU_IMGNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSHORT_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) End Function _ Public Sub SetSHORT_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WD_OBJECTTYPERow Inherits Global.System.Data.DataRow Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WD_OBJECTTYPE = CType(Me.Table,TBPMO_WD_OBJECTTYPEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.GUIDColumn) = value End Set End Property _ Public Property OBJECT_TYPE() As String Get Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.OBJECT_TYPEColumn),String) End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.OBJECT_TYPEColumn) = value End Set End Property _ Public Property IDXNAME_ENTITYID() As String Get Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn),String) End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = value End Set End Property _ Public Property IDXNAME_PARENTID() As String Get Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn),String) End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FILES_USERRow Inherits Global.System.Data.DataRow Private tableTBPMO_FILES_USER As TBPMO_FILES_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FILES_USER = CType(Me.Table,TBPMO_FILES_USERDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FILES_USER.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FILES_USER.GUIDColumn) = value End Set End Property _ Public Property FILENAME2WORK() As String Get Return CType(Me(Me.tableTBPMO_FILES_USER.FILENAME2WORKColumn),String) End Get Set Me(Me.tableTBPMO_FILES_USER.FILENAME2WORKColumn) = value End Set End Property _ Public Property USER_WORK() As String Get Return CType(Me(Me.tableTBPMO_FILES_USER.USER_WORKColumn),String) End Get Set Me(Me.tableTBPMO_FILES_USER.USER_WORKColumn) = value End Set End Property _ Public Property HANDLE_TYPE() As String Get Return CType(Me(Me.tableTBPMO_FILES_USER.HANDLE_TYPEColumn),String) End Get Set Me(Me.tableTBPMO_FILES_USER.HANDLE_TYPEColumn) = value End Set End Property _ Public Property WORKED() As Boolean Get Return CType(Me(Me.tableTBPMO_FILES_USER.WORKEDColumn),Boolean) End Get Set Me(Me.tableTBPMO_FILES_USER.WORKEDColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_FILES_USER.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_FILES_USER.ADDED_WHENColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_WORKFLOW_FORMRow Inherits Global.System.Data.DataRow Private tableVWPMO_WORKFLOW_FORM As VWPMO_WORKFLOW_FORMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_WORKFLOW_FORM = CType(Me.Table,VWPMO_WORKFLOW_FORMDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.GUIDColumn),Integer) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.GUIDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_IDColumn) = value End Set End Property _ Public Property FORM_NAME() As String Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_NAMEColumn),String) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.FORM_NAMEColumn) = value End Set End Property _ Public Property WF_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.WF_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.WF_IDColumn) = value End Set End Property _ Public Property WORKFLOW() As String Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.WORKFLOWColumn),String) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.WORKFLOWColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Try Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHENColumn),Date) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WORKFLOW_FORM ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value End Set End Property _ Public Property COLOR() As String Get Return CType(Me(Me.tableVWPMO_WORKFLOW_FORM.COLORColumn),String) End Get Set Me(Me.tableVWPMO_WORKFLOW_FORM.COLORColumn) = value End Set End Property _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) End Function _ Public Sub SetSEQUENCENull() Me(Me.tableVWPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FOLLOW_UP_EMAILRow Inherits Global.System.Data.DataRow Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(Me.Table,TBPMO_FOLLOW_UP_EMAILDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.GUIDColumn) = value End Set End Property _ Public Property FOLLOW_UP_SEQUENCE() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_SEQUENCEColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_SEQUENCEColumn) = value End Set End Property _ Public Property FOLLOW_UP_DAYS() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn) = value End Set End Property _ Public Property FOLLOW_UP_TIME_SPAN() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_TIME_SPANColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_TIME_SPANColumn) = value End Set End Property _ Public Property DEPENDENT_DATE_CTRL_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn) = value End Set End Property _ Public Property DEPENDENT_DONE_CTRL_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn) = value End Set End Property _ Public Property PARENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PARENT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PARENT_IDColumn) = value End Set End Property _ Public Property TIME_UNITY() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_UNITYColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_UNITYColumn) = value End Set End Property _ Public Property TIME_SPAN() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_SPANColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_SPANColumn) = value End Set End Property _ Public Property EMAIL_SUBJECT() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_SUBJECTColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_SUBJECTColumn) = value End Set End Property _ Public Property EMAIL_BODY() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_BODYColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.EMAIL_BODYColumn) = value End Set End Property _ Public Property PROCESS_SELECT1() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT1Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT1Column) = value End Set End Property _ Public Property PROCESS_SELECT2() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT2Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT2Column) = value End Set End Property _ Public Property PROCESS_SELECT3() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT3Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT3Column) = value End Set End Property _ Public Property PROCESS_SELECT4() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT4Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT4Column) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FOLLOW_UP_EMAIL ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) = value End Set End Property _ Public Property TIME_DIST() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_DISTColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.TIME_DISTColumn) = value End Set End Property _ Public Property PROCESS_SELECT5() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT5Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT5Column) = value End Set End Property _ Public Property PROCESS_SELECT6() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT6Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT6Column) = value End Set End Property _ Public Property PROCESS_SELECT7() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT7Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT7Column) = value End Set End Property _ Public Property PROCESS_SELECT8() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT8Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT8Column) = value End Set End Property _ Public Property PROCESS_SELECT9() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT9Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT9Column) = value End Set End Property _ Public Property PROCESS_SELECT10() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT10Column),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.PROCESS_SELECT10Column) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.NAMEColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FOLLUPEMAIL_USERRow Inherits Global.System.Data.DataRow Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FOLLUPEMAIL_USER = CType(Me.Table,TBPMO_FOLLUPEMAIL_USERDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.GUIDColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.USER_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.USER_IDColumn) = value End Set End Property _ Public Property FOLLOW_UP_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FOLLUPEMAIL_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")),TBDD_USERRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")) End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FOLLUPEMAIL_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FOLLUPEMAIL_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_RECORD_LOG_CONFIGRow Inherits Global.System.Data.DataRow Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_RECORD_LOG_CONFIG = CType(Me.Table,TBPMO_RECORD_LOG_CONFIGDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.GUIDColumn) = value End Set End Property _ Public Property CONTROL_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CONTROL_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CONTROL_IDColumn) = value End Set End Property _ Public Property LOG_DELETE() As Boolean Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_DELETEColumn),Boolean) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_DELETEColumn) = value End Set End Property _ Public Property LOG_UPDATE() As Boolean Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_UPDATEColumn),Boolean) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.LOG_UPDATEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn) = value End Set End Property _ Public Property FORM_ID1() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column),Integer) End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column) = value End Set End Property _ Public Property _String() As String Get Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) End Function _ Public Sub Set_StringNull() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.StringColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_RECORD_CHANGESRow Inherits Global.System.Data.DataRow Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_RECORD_CHANGES = CType(Me.Table,VWPMO_RECORD_CHANGESDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.IDColumn),Integer) End Get Set Me(Me.tableVWPMO_RECORD_CHANGES.IDColumn) = value End Set End Property _ Public Property _Control_Name() As String Get Return CType(Me(Me.tableVWPMO_RECORD_CHANGES._Control_NameColumn),String) End Get Set Me(Me.tableVWPMO_RECORD_CHANGES._Control_NameColumn) = value End Set End Property _ Public Property _Log_Description() As String Get Return CType(Me(Me.tableVWPMO_RECORD_CHANGES._Log_DescriptionColumn),String) End Get Set Me(Me.tableVWPMO_RECORD_CHANGES._Log_DescriptionColumn) = value End Set End Property _ Public Property Added_who() As String Get Try Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Added who in Tabelle VWPMO_RECORD_CHANGES ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) = value End Set End Property _ Public Property Added_When() As Date Get Try Return CType(Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Added When in Tabelle VWPMO_RECORD_CHANGES ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) = value End Set End Property _ Public Function IsAdded_whoNull() As Boolean Return Me.IsNull(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) End Function _ Public Sub SetAdded_whoNull() Me(Me.tableVWPMO_RECORD_CHANGES.Added_whoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAdded_WhenNull() As Boolean Return Me.IsNull(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) End Function _ Public Sub SetAdded_WhenNull() Me(Me.tableVWPMO_RECORD_CHANGES.Added_WhenColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_WF_ACTIVERow Inherits Global.System.Data.DataRow Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_WF_ACTIVE = CType(Me.Table,VWPMO_WF_ACTIVEDataTable) End Sub _ Public Property WF_TASK_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn) = value End Set End Property _ Public Property TITLE() As String Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn),String) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn) = value End Set End Property _ Public Property RECORD_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn) = value End Set End Property _ Public Property STATE_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn) = value End Set End Property _ Public Property STATE_DESC() As String Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn),String) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn) = value End Set End Property _ Public Property COLOR() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = value End Set End Property _ Public Property DUE_DATE() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn),Date) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = value End Set End Property _ Public Property TASK_DATE() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = value End Set End Property _ Public Function IsCOLORNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COLORColumn) End Function _ Public Sub SetCOLORNull() Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDUE_DATENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) End Function _ Public Sub SetDUE_DATENull() Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsTASK_DATENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) End Function _ Public Sub SetTASK_DATENull() Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_EMAIL_ACCOUNTRow Inherits Global.System.Data.DataRow Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table,TBDD_EMAIL_ACCOUNTDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = value End Set End Property _ Public Property EMAIL_FROM() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn),String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn) = value End Set End Property _ Public Property EMAIL_SMTP() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn),String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn) = value End Set End Property _ Public Property EMAIL_USER() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn),String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn) = value End Set End Property _ Public Property EMAIL_PW() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn),String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_CONNECTIONRow Inherits Global.System.Data.DataRow Private tableTBPMO_CONNECTION As TBPMO_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_CONNECTION = CType(Me.Table,TBPMO_CONNECTIONDataTable) End Sub _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBPMO_CONNECTION.GUIDColumn),Short) End Get Set Me(Me.tableTBPMO_CONNECTION.GUIDColumn) = value End Set End Property _ Public Property DESCRIPTION() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) = value End Set End Property _ Public Property SQL_PROVIDER() As String Get Try Return CType(Me(Me.tableTBPMO_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 TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ Public Property SERVER() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.SERVERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.SERVERColumn) = value End Set End Property _ Public Property DATABASE() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.DATABASEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATABASE in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.DATABASEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn) = value End Set End Property _ Public Property PASSWORD() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.COMMENTColumn) = value End Set End Property _ Public Property AKTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_CONNECTION.AKTIVEColumn),Boolean) End Get Set Me(Me.tableTBPMO_CONNECTION.AKTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_CONNECTION.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_CONNECTION.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_CONNECTION.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_CONNECTION.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) End Function _ Public Sub SetDESCRIPTIONNull() Me(Me.tableTBPMO_CONNECTION.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) End Function _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBPMO_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.SERVERColumn) End Function _ Public Sub SetSERVERNull() Me(Me.tableTBPMO_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATABASENull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.DATABASEColumn) End Function _ Public Sub SetDATABASENull() Me(Me.tableTBPMO_CONNECTION.DATABASEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableTBPMO_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.PASSWORDColumn) End Function _ Public Sub SetPASSWORDNull() Me(Me.tableTBPMO_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_CONNECTION.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_CONNECTION.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_CONNECTION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value End Set End Property _ Public Property CONSTRUCT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value End Set End Property _ Public Property PARENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value End Set End Property _ Public Property LEVEL1_SELECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value End Set End Property _ Public Property SQL_SELECT_EBENE1() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value End Set End Property _ Public Property SQL_SELECT_EBENE2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value End Set End Property _ Public Property COLUMN_NAME1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value End Set End Property _ Public Property COLUMN_NAME2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value End Set End Property _ Public Property WINDREAM_SEARCH() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value End Set End Property _ Public Property SEARCH_PATTERN1() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value End Set End Property _ Public Property SEARCH_PATTERN2() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value End Set End Property _ Public Property SEARCH_PATTERN3() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value End Set End Property _ Public Property SEARCH_PATTERN4() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value End Set End Property _ Public Property SEARCH_PATTERN5() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) End Set End Property _ Public Property TBPMO_FORMRow() As TBPMO_FORMRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")) End Set End Property _ Public Function IsSQL_SELECT_EBENE1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) End Function _ Public Sub SetSQL_SELECT_EBENE1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWINDREAM_SEARCHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) End Function _ Public Sub SetWINDREAM_SEARCHNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) End Function _ Public Sub SetSEARCH_PATTERN1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) End Function _ Public Sub SetSEARCH_PATTERN2Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN3Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) End Function _ Public Sub SetSEARCH_PATTERN3Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN4Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) End Function _ Public Sub SetSEARCH_PATTERN4Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSEARCH_PATTERN5Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) End Function _ Public Sub SetSEARCH_PATTERN5Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORMRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORMRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORMRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_CONTROL_SCREENRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_CONTROL_SCREENRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_CONTROL_SCREENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_CONTROL_SCREENRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_VIEWRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_VIEWRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_VIEWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_VIEWRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_RECORDRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_RECORDRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_RECORDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_RECORDRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_DOKUMENTTYPESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_DOKUMENTTYPESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_DOKUMENTTYPESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_DOKUMENTTYPESRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WD_FVIEW_DT_INDEXRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WD_FVIEW_DT_INDEXRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WORKFLOW_TASKRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WORKFLOW_TASKRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WORKFLOW_TASKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASKRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WORKFLOW_TASK_STATERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WORKFLOW_TASK_STATERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WORKFLOW_TASK_STATERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASK_STATERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_GUI_ENTITYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_GUI_ENTITYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_GUI_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_GUI_ENTITYRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WORKFLOWRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WORKFLOWRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WORKFLOWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WORKFLOWRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WORKFLOW_FORMRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WORKFLOW_FORMRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WORKFLOW_FORMRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_WF_USER_ACTIVERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_WF_USER_ACTIVERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_WF_USER_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_WF_USER_ACTIVERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_FOLLOWING_TASKSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_FOLLOWING_TASKSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_FOLLOWING_TASKSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_FOLLOWING_TASKSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_WF_OVERVIEW_AUTHORITYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_WF_OVERVIEW_AUTHORITYRow 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_DOKUMENTARTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_DOKUMENTARTRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow 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_EINGANGSARTENRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_EINGANGSARTENRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow 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_INDEX_AUTOMRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_INDEX_AUTOMRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WD_FORMVIEW_DOKTYPESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WD_FORMVIEW_DOKTYPESRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_KONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_KONFIGURATIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_KONFIGURATIONRow 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_USERRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_USERRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_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 TBPMO_FORM_TYPERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_TYPERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_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 ''' '''Row event argument class ''' _ Public Class TBDD_USER_GROUPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_USER_GROUPSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_USER_GROUPSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_USERS_GROUPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_USERS_GROUPSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_USERS_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_USERS_GROUPSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBDD_GROUPS_USERRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_GROUPS_USERRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_GROUPS_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_DOKART_MODULERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_DOKART_MODULERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_DOKART_MODULERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTORRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WD_OBJECTTYPERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WD_OBJECTTYPERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WD_OBJECTTYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WD_OBJECTTYPERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FILES_USERRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FILES_USERRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FILES_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 VWPMO_WORKFLOW_FORMRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_WORKFLOW_FORMRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_WORKFLOW_FORMRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FOLLOW_UP_EMAILRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FOLLOW_UP_EMAILRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FOLLOW_UP_EMAILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FOLLOW_UP_EMAILRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FOLLUPEMAIL_USERRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FOLLUPEMAIL_USERRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FOLLUPEMAIL_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FOLLUPEMAIL_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 TBPMO_RECORD_LOG_CONFIGRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_RECORD_LOG_CONFIGRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_RECORD_LOG_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_RECORD_LOG_CONFIGRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_RECORD_CHANGESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_RECORD_CHANGESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_RECORD_CHANGESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_RECORD_CHANGESRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_WF_ACTIVERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_WF_ACTIVERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_WF_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_WF_ACTIVERow 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_EMAIL_ACCOUNTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_EMAIL_ACCOUNTRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_CONNECTIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_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 TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace DD_DMSDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FORMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("LEVEL", "LEVEL") 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("SHOW_FORM_CONSTRUCT", "SHOW_FORM_CONSTRUCT") tableMapping.ColumnMappings.Add("FORM_TYPE_ID", "FORM_TYPE_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 TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ID, NAME, LEVEL, ADDED_W"& _ "HO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID,@NAME,@LEVEL,@"& _ "ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, "& _ "LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (G"& _ "UID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@LEVEL", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", 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("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_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 TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ID = @PARENT_ID, NAME = @NAME,"& _ " LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CO"& _ "NSTRUCT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FORM_TYPE_ID = @FORM_TYPE_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, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED"& _ "_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@LEVEL", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL", 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("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_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_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ "E (GUID = @GUID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).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, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,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 GUID As Integer) As DD_DMSDataSet.TBPMO_FORMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_FORMDataTable = New DD_DMSDataSet.TBPMO_FORMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByAll(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) 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 GetDataBy() As DD_DMSDataSet.TBPMO_FORMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As DD_DMSDataSet.TBPMO_FORMDataTable = New DD_DMSDataSet.TBPMO_FORMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM") 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 PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If If (LEVEL Is Nothing) Then Throw New Global.System.ArgumentNullException("LEVEL") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(LEVEL,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 Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHOW_FORM_CONSTRUCT,Boolean) If (FORM_TYPE_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(FORM_TYPE_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).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 PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal CHANGED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If If (LEVEL Is Nothing) Then Throw New Global.System.ArgumentNullException("LEVEL") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LEVEL,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(SHOW_FORM_CONSTRUCT,Boolean) If (FORM_TYPE_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FORM_TYPE_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If 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 VWPMO_CONTROL_SCREENTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_CONTROL_SCREEN" tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") tableMapping.ColumnMappings.Add("CONTROL_NAME", "CONTROL_NAME") tableMapping.ColumnMappings.Add("CONTROL_REQUIRED", "CONTROL_REQUIRED") tableMapping.ColumnMappings.Add("CONTROL_DEF_VALUE", "CONTROL_DEF_VALUE") tableMapping.ColumnMappings.Add("CONTROL_READ_ONLY", "CONTROL_READ_ONLY") tableMapping.ColumnMappings.Add("CTRLTYPE_ID", "CTRLTYPE_ID") tableMapping.ColumnMappings.Add("CTRLTYPE_NAME", "CTRLTYPE_NAME") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("FORM_NAME", "FORM_NAME") tableMapping.ColumnMappings.Add("FORM_LEVEL", "FORM_LEVEL") tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") tableMapping.ColumnMappings.Add("SCREEN_NAME", "SCREEN_NAME") tableMapping.ColumnMappings.Add("CTRLSCR_ID", "CTRLSCR_ID") tableMapping.ColumnMappings.Add("CTRLSCR_CAPTION", "CTRLSCR_CAPTION") tableMapping.ColumnMappings.Add("CTRLSCR_X_LOC", "CTRLSCR_X_LOC") tableMapping.ColumnMappings.Add("CTRLSCR_Y_LOC", "CTRLSCR_Y_LOC") tableMapping.ColumnMappings.Add("CTRLSCR_HEIGHT", "CTRLSCR_HEIGHT") tableMapping.ColumnMappings.Add("CTRLSCR_WIDTH", "CTRLSCR_WIDTH") tableMapping.ColumnMappings.Add("CTRLSCR_FONT_FAMILY", "CTRLSCR_FONT_FAMILY") tableMapping.ColumnMappings.Add("CTRLSCR_FONT_COLOR", "CTRLSCR_FONT_COLOR") tableMapping.ColumnMappings.Add("CTRLSCR_FONT_SIZE", "CTRLSCR_FONT_SIZE") tableMapping.ColumnMappings.Add("CTRLSCR_FONT_STYLE", "CTRLSCR_FONT_STYLE") tableMapping.ColumnMappings.Add("CTRLSCR_TAB_INDEX", "CTRLSCR_TAB_INDEX") tableMapping.ColumnMappings.Add("CTRLSCR_TAB_STOP", "CTRLSCR_TAB_STOP") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONT"& _ "ROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREE"& _ "N_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLS"& _ "CR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTR"& _ "LSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRLSCR_FONT_STYL"& _ "E, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_CONTROL_SCREEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ "ERE (FORM_ID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable = New DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FORM_VIEWTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_VIEW" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") tableMapping.ColumnMappings.Add("HEIGHT", "HEIGHT") tableMapping.ColumnMappings.Add("DIALOG", "DIALOG") tableMapping.ColumnMappings.Add("MAXIMIZABLE", "MAXIMIZABLE") tableMapping.ColumnMappings.Add("MINIMIZABLE", "MINIMIZABLE") tableMapping.ColumnMappings.Add("MAX_WIDTH", "MAX_WIDTH") tableMapping.ColumnMappings.Add("MIN_WIDTH", "MIN_WIDTH") tableMapping.ColumnMappings.Add("MAX_HEIGHT", "MAX_HEIGHT") tableMapping.ColumnMappings.Add("MIN_HEIGHT", "MIN_HEIGHT") tableMapping.ColumnMappings.Add("X_LOC", "X_LOC") tableMapping.ColumnMappings.Add("Y_LOC", "Y_LOC") 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("IS_MDI_CHILD", "IS_MDI_CHILD") tableMapping.ColumnMappings.Add("DOCUMENT_VIEW", "DOCUMENT_VIEW") tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") tableMapping.ColumnMappings.Add("ALLOW_DROP", "ALLOW_DROP") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SCREEN_ID, FORM_ID, FORM_T"& _ "ITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, M"& _ "IN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SCRE"& _ "EN_ID,@FORM_ID,@FORM_TITLE,@DESCRIPTION,@WIDTH,@HEIGHT,@DIALOG,@MAXIMIZABLE,@MIN"& _ "IMIZABLE,@MAX_WIDTH,@MIN_WIDTH,@MAX_HEIGHT,@MIN_HEIGHT,@X_LOC,@Y_LOC,@ADDED_WHO)"& _ "; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIA"& _ "LOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_L"& _ "OC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_VIEW"& _ " WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, 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("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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 TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SCREEN_ID = @SCREEN_ID, FORM_ID "& _ "= @FORM_ID, FORM_TITLE = @FORM_TITLE, DESCRIPTION = @DESCRIPTION, WIDTH = @WIDTH"& _ ", HEIGHT = @HEIGHT, DIALOG = @DIALOG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MAXIMIZABLE = @"& _ "MAXIMIZABLE, MINIMIZABLE = @MINIMIZABLE, MAX_WIDTH = @MAX_WIDTH, MIN_WIDTH = @MI"& _ "N_WIDTH, MAX_HEIGHT = @MAX_HEIGHT, MIN_HEIGHT = @MIN_HEIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " X_LOC = @X_LOC, Y_LOC = @Y_LOC, CHANGED_WHO = @CHANGED_WHO"&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, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIP"& _ "TION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX"& _ "_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ "HEN FROM TBPMO_FORM_VIEW WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, 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("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY FORM_TITLE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and "& _ "SCREEN_ID = 1" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByFORMID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable, ByVal FORMID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,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 GetDataBy(ByVal FORMID As Integer) As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_VIEW") 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 SCREEN_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal FORM_TITLE As String, _ ByVal DESCRIPTION As String, _ ByVal WIDTH As Global.System.Nullable(Of Short), _ ByVal HEIGHT As Global.System.Nullable(Of Short), _ ByVal DIALOG As Boolean, _ ByVal MAXIMIZABLE As Boolean, _ ByVal MINIMIZABLE As Boolean, _ ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ ByVal X_LOC As Global.System.Nullable(Of Double), _ ByVal Y_LOC As Global.System.Nullable(Of Double), _ ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) If (FORM_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("FORM_TITLE") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(FORM_TITLE,String) End If If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) End If If (WIDTH.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH.Value,Short) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (HEIGHT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(DIALOG,Boolean) Me.Adapter.InsertCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) If (MAX_WIDTH.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (MIN_WIDTH.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (MAX_HEIGHT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (MIN_HEIGHT.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) Else Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (X_LOC.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(X_LOC.Value,Double) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Y_LOC.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(15).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 SCREEN_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal FORM_TITLE As String, _ ByVal DESCRIPTION As String, _ ByVal WIDTH As Global.System.Nullable(Of Short), _ ByVal HEIGHT As Global.System.Nullable(Of Short), _ ByVal DIALOG As Boolean, _ ByVal MAXIMIZABLE As Boolean, _ ByVal MINIMIZABLE As Boolean, _ ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ ByVal X_LOC As Global.System.Nullable(Of Double), _ ByVal Y_LOC As Global.System.Nullable(Of Double), _ ByVal CHANGED_WHO As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) If (FORM_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("FORM_TITLE") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FORM_TITLE,String) End If If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) End If If (WIDTH.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (HEIGHT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DIALOG,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) If (MAX_WIDTH.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (MIN_WIDTH.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (MAX_HEIGHT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (MIN_HEIGHT.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (X_LOC.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(X_LOC.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Y_LOC.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_RECORDTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_RECORD" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @O"& _ "riginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANG"& _ "ED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)"& _ ") AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] "& _ "= @Original_CHANGED_WHEN)))" 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_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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_RECORD] ([ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WH"& _ "EN]) VALUES (@ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID"& _ " = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Or"& _ "iginal_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Origin"& _ "al_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHA"& _ "NGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_"& _ "WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ADD"& _ "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @G"& _ "UID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBPMO_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @RECORD_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable, ByVal RECORD_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_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 RECORD_ID As Integer) As DD_DMSDataSet.TBPMO_RECORDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable = New DD_DMSDataSet.TBPMO_RECORDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_RECORD") 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_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(ADDED_WHO,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).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 ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(11).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 ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_DOKUMENTTYPESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_DOKUMENTTYPES" tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("DOKUMENTTYPE_ID", "DOKUMENTTYPE_ID") tableMapping.ColumnMappings.Add("DOKUMENTTYPE", "DOKUMENTTYPE") tableMapping.ColumnMappings.Add("PATH", "PATH") tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PA"& _ "TH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_DOKUMENTTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "WHERE (FORMVIEW_ID = @ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DOKUMENTTYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable = New DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_WD_FVIEW_DT_INDEXTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WD_FVIEW_DT_INDEX" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") tableMapping.ColumnMappings.Add("INDEX_VALUE", "INDEX_VALUE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE (([GUID] = @Original_GUID) AND ([FW_D"& _ "OCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AN"& _ "D ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO"& _ ") AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [C"& _ "HANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_C"& _ "HANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANG"& _ "ED_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_FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", 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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_WD_FVIEW_DT_INDEX] ([FW_DOCTYPE_ID], [INDEXNAME], [INDEX_VALUE"& _ "], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@FW_DOCTYPE"& _ "_ID, @INDEXNAME, @INDEX_VALUE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_W"& _ "HEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN"& _ ", CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = SCOPE_IDE"& _ "NTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME"& _ "] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_W"& _ "HEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN"& _ " WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID"& _ ") AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_V"& _ "ALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDE"& _ "D_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WH"& _ "O] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] I"& _ "S NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FW_DOCTYPE"& _ "_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ "OM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FW_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEX_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_VALUE", 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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN,"& _ " CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_FVIEW_DT_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (FW_DOCTYPE_ID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable = New DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_WD_FVIEW_DT_INDEX") 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_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FW_DOCTYPE_ID,Integer) If (Original_INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_INDEXNAME") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) End If If (Original_INDEX_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_INDEX_VALUE,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If 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 FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) End If If (INDEX_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEX_VALUE") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEX_VALUE,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 Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) 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 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 FW_DOCTYPE_ID As Integer, _ ByVal INDEXNAME As String, _ ByVal INDEX_VALUE As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_FW_DOCTYPE_ID As Integer, _ ByVal Original_INDEXNAME As String, _ ByVal Original_INDEX_VALUE As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As 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(FW_DOCTYPE_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) End If If (INDEX_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEX_VALUE") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEX_VALUE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) 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(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FW_DOCTYPE_ID,Integer) If (Original_INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_INDEXNAME") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_INDEXNAME,String) End If If (Original_INDEX_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_INDEX_VALUE,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO 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_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(17).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 FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_FW_DOCTYPE_ID, Original_INDEXNAME, Original_INDEX_VALUE, 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 TBPMO_WORKFLOW_TASKTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("TITLE", "TITLE") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TOP (1) TBPMO_WORKFLOW_TASK.GUID, TBPMO_WORKFLOW_TASK.RECORD_ID, TB"& _ "PMO_WORKFLOW_TASK.WF_ID, TBPMO_WORKFLOW_TASK.COMMENT, TBPMO_WORKFLOW_TASK.DUE_DA"& _ "TE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORKFLOW_TASK.STATE_ID, TBPMO_WORKFLOW_TASK"& _ ".ACTIVE, TBPMO_WORKFLOW_TASK.ADDED_WHEN, TBPMO_WORKFLOW_TASK.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_WORKFLOW_TASK.CHANGED_WHEN, TBPMO_WORKFLOW.TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ "M TBPMO_WORKFLOW_TASK INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORK"& _ "FLOW ON TBPMO_WORKFLOW_TASK.WF_ID = TBPMO_WORKFLOW.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WOR"& _ "KFLOW_TASK.RECORD_ID = @RECID) AND (TBPMO_WORKFLOW_TASK.ACTIVE = 1) AND (TBPMO_W"& _ "ORKFLOW_TASK.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WORKFL"& _ "OW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFIGURAT"& _ "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1)))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_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 = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ACTIVE = 1, CHANGED_WHO = @C"& _ "HANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET COMMENT = @COMMENT, DUE_DATE"& _ " = @DUE_DATE, STATE_ID = @STATE_ID, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"& _ ", TASK_DATE = @TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).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._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUE_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "DUE_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2).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._commandCollection(2).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._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "TASK_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2).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, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable, ByVal RECID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,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 RECID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function cmdsetActive(ByVal CHANGED_WHO As String, ByVal RECORD_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (CHANGED_WHO Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value Else command.Parameters(0).Value = CType(CHANGED_WHO,String) End If command.Parameters(1).Value = CType(RECORD_ID,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 _ Public Overloads Overridable Function cmdUpdate(ByVal COMMENT As String, ByVal DUE_DATE As String, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal TASK_DATE As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) If (COMMENT Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value Else command.Parameters(0).Value = CType(COMMENT,String) End If If (DUE_DATE Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(DUE_DATE,String) End If command.Parameters(2).Value = CType(STATE_ID,Integer) command.Parameters(3).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then command.Parameters(4).Value = Global.System.DBNull.Value Else command.Parameters(4).Value = CType(CHANGED_WHO,String) End If If (TASK_DATE Is Nothing) Then command.Parameters(5).Value = Global.System.DBNull.Value Else command.Parameters(5).Value = CType(TASK_DATE,String) End If command.Parameters(6).Value = CType(Original_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 TBPMO_WORKFLOW_TASK_STATETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK_STATE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") 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("COLOR", "COLOR") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW_TASK_STATE] WHERE (([GUID] = @Original_GUID) AND ([ST"& _ "ATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ ") AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR)))" 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_STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", 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("@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("@IsNull_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_WORKFLOW_TASK_STATE] ([STATE_DESC], [ADDED_WHO], [ADDED_WHEN],"& _ " [CHANGED_WHO], [CHANGED_WHEN], [COLOR]) VALUES (@STATE_DESC, @ADDED_WHO, @ADDED"& _ "_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLOR);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO"& _ ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR FROM TBPMO_WORKFLOW_TASK_STATE WH"& _ "ERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", 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("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WORKFLOW_TASK_STATE] SET [STATE_DESC] = @STATE_DESC, [ADDED_WHO] = "& _ "@ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_W"& _ "HEN] = @CHANGED_WHEN, [COLOR] = @COLOR WHERE (([GUID] = @Original_GUID) AND ([ST"& _ "ATE_DESC] = @Original_STATE_DESC) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ ") AND ((@IsNull_COLOR = 1 AND [COLOR] IS NULL) OR ([COLOR] = @Original_COLOR)));"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COL"& _ "OR FROM TBPMO_WORKFLOW_TASK_STATE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", 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("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_STATE_DESC", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_DESC", 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("@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("@IsNull_COLOR", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_WORKFLOW_TASK_STATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK_ST"& _ "ATE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW_TASK_STATE") 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_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_STATE_DESC Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_STATE_DESC") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_STATE_DESC,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_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_COLOR 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_COLOR,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String) As Integer If (STATE_DESC Is Nothing) Then Throw New Global.System.ArgumentNullException("STATE_DESC") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(STATE_DESC,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (COLOR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(COLOR,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 STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String, ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String, ByVal GUID As Integer) As Integer If (STATE_DESC Is Nothing) Then Throw New Global.System.ArgumentNullException("STATE_DESC") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(STATE_DESC,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) 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 If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (COLOR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COLOR,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) If (Original_STATE_DESC Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_STATE_DESC") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_STATE_DESC,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (Original_COLOR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_COLOR,String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal STATE_DESC As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COLOR As String, ByVal Original_GUID As Integer, ByVal Original_STATE_DESC As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COLOR As String) As Integer Return Me.Update(STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR, Original_GUID, Original_STATE_DESC, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_COLOR, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_GUI_ENTITYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_GUI_ENTITY" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Name", "Name") tableMapping.ColumnMappings.Add("Title", "Title") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT ID, Name, Title"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_GUI_ENTITY" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable = New DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_WORKFLOWTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WORKFLOW" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("TITLE", "TITLE") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Ori"& _ "ginal_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCR"& _ "IPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ "))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, 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_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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, DESCRIPTION, ADDED_W"& _ "HO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@DESCRIPTION,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, DESCR"& _ "IPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW WHE"& _ "RE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.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.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 TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, DESCRIPTION = @DE"& _ "SCRIPTION, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ " FROM TBPMO_WORKFLOW WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_WORKFLOW.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WORKFLOWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable = New DD_DMSDataSet.TBPMO_WORKFLOWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW") 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_TITLE As String, ByVal Original_DESCRIPTION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_TITLE") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) End If If (Original_DESCRIPTION Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_DESCRIPTION,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If 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 TITLE As String, ByVal DESCRIPTION As String, ByVal ADDED_WHO As String) As Integer If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) End If If (DESCRIPTION Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If 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 TITLE As String, ByVal DESCRIPTION As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) End If If (DESCRIPTION Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_WORKFLOW_FORMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WORKFLOW_FORM" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") 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") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_ID, WF_ID, SEQUEN"& _ "CE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ "UID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ "FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_ID = @FORM_ID, WF_ID = "& _ "@WF_ID, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO"&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, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FORM_ID = @FOR"& _ "M_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_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 FORM_ID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_WORKFLOW_FORM") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(WF_ID,Integer) If (SEQUENCE.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value 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 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WF_ID,Integer) If (SEQUENCE.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value 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(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(5).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 VWPMO_WF_USER_ACTIVETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_WF_USER_ACTIVE" tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") tableMapping.ColumnMappings.Add("TITLE", "TITLE") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (GUID = 1))) AND (T2.ACTIVE = 1)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", 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 = "SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (GUID = 1))) AND (T2.RECORD_ID = @RECORD_ID) AND (T2.ACTIVE ="& _ " 1)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If 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 USER As String) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByRecordID(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String, ByVal RECORD_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_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 GetDataByRecordID(ByVal USER As String, ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_FOLLOWING_TASKSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_FOLLOWING_TASKS" tableMapping.ColumnMappings.Add("JOB", "JOB") tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") tableMapping.ColumnMappings.Add("TITLE", "TITLE") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT T4.VALUE AS JOB, T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2."& _ "STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_"& _ "WHO, T2.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " VWPMO_VALUES AS T4 ON T2.RECORD_ID = T4.RECORD_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (T4.CONTROL_ID = 10) AND (T2.GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SEL"& _ "ECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_WF_U"& _ "SER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT WF_TAS"& _ "K_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ " VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (UPPER(USERNAME) = UPPER(@U"& _ "SER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT W"& _ "ORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFI"& _ "GURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1))) AND (T2.RECOR"& _ "D_ID = @RECORD_ID) AND (T2.ACTIVE = 1) AND (T2.GUID <> @TASK_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_TASK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable, ByVal USER As String, ByVal RECORD_ID As Integer, ByVal TASK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(TASK_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 USER As String, ByVal RECORD_ID As Integer, ByVal TASK_ID As Integer) As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(TASK_ID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable = New DD_DMSDataSet.VWPMO_FOLLOWING_TASKSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_WF_OVERVIEW_AUTHORITY" tableMapping.ColumnMappings.Add("STATE", "STATE") tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") tableMapping.ColumnMappings.Add("Authority", "Authority") tableMapping.ColumnMappings.Add("String", "String") tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("COLOR", "COLOR") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT WF_ID, RECORD_ID, STATE, STATE_ID, Authority, String, COLOR, CHANGE"& _ "D_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_OVERVIEW_AUTHORITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ "RECORD_ID = @RECORDID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORDID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable, ByVal RECORDID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,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 RECORDID As Integer) As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable = New DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_DOKUMENTARTTableAdapter 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_DOKUMENTART" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") 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_DOKUMENTART"&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 TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ "KTTYP)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHR"& _ "EIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _ "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _ " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHE"& _ "RE (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, 50, 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("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", 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_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ "ERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID,"& _ " KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELL"& _ "TWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART 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, 50, 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("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _ "G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _ ", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _ "G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _ ", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM"& _ " TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ " (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) 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 GetDataByPMO() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") 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 BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) End If If (ZIEL_PFAD Is Nothing) Then Throw New Global.System.ArgumentNullException("ZIEL_PFAD") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) If (NAMENKONVENTION Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) End If If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) End If If (OBJEKTTYP Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJEKTTYP") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) End If If (ZIEL_PFAD Is Nothing) Then Throw New Global.System.ArgumentNullException("ZIEL_PFAD") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) If (NAMENKONVENTION Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) End If If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) End If If (OBJEKTTYP Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJEKTTYP") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(10).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_EINGANGSARTENTableAdapter 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_EINGANGSARTEN" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") 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_EINGANGSARTEN"&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.TinyInt, 1, 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_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @B"& _ "ESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAN"& _ "DERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Orig"& _ "inal_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUN"& _ "G = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) "& _ "AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERST"& _ "ELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERT"& _ "WER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWAN"& _ "N] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ "ICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FRO"& _ "M TBDD_EINGANGSARTEN 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("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", 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.TinyInt, 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_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_BESCHREIBUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", 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("@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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDER"& _ "TWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable = New DD_DMSDataSet.TBDD_EINGANGSARTENDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") 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 Byte) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) 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 BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) End If If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, 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 Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, 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 Byte) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (BESCHREIBUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) End If If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERSTELLTWER,String) End If If (ERSTELLTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERSTELLTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) End If If (GEAENDERTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Byte) If (Original_BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_BEZEICHNUNG,String) End If If (Original_BESCHREIBUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_BESCHREIBUNG,String) End If If (Original_ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERSTELLTWER,String) End If If (Original_ERSTELLTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ERSTELLTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GEANDERTWER,String) End If If (Original_GEAENDERTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Byte) 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 BESCHREIBUNG As String, 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 Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, 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, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_BESCHREIBUNG, 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 TBDD_INDEX_AUTOMTableAdapter 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_INDEX_AUTOM" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") tableMapping.ColumnMappings.Add("VALUE", "VALUE") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") 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_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID]"& _ " = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_V"& _ "ALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_I"& _ "D] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _ "R ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED"& _ "_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@Is"& _ "Null_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CH"& _ "ANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHAN"& _ "GED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@IND"& _ "EXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYP"& _ "E_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, C"& _ "HANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ "MMENT, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&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, DOCTYPE_ID, INDEXNAME, VALU"& _ "E, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ "HEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AU"& _ "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DocTypeID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocTypeID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable, ByVal DocTypeID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,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 DocTypeID As Integer) As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) Dim dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable = New DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") 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_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_VALUE As String, ByVal Original_CONNECTION_ID As Short, ByVal Original_COMMENT As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DOCTYPE_ID,Integer) If (Original_INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_INDEXNAME") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) End If If (Original_VALUE Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VALUE,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CONNECTION_ID,Short) If (Original_COMMENT Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_COMMENT,String) End If Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE,Boolean) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) End If If (VALUE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) 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 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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (INDEXNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("INDEXNAME") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) End If If (VALUE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) 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 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WD_FORMVIEW_DOKTYPES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIE"& _ "W_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADD"& _ "ED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGE"& _ "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO"& _ "_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNE"& _ "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES."& _ "DOCTYPE_ID = TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOC"& _ "TYPE_ID = @DOC_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_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 = "INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORMVIEW_ID, DO"& _ "CTYPE_ID, OBJECT_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJE"& _ "CT_TYPE,@ADDED_WHO)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMVIEW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).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 DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable, ByVal DOC_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_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 DOC_ID As Integer) As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable = New DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function cmdInsert(ByVal FORMVIEW_ID As Integer, ByVal DOCTYPE_ID As Integer, ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) command.Parameters(0).Value = CType(FORMVIEW_ID,Integer) command.Parameters(1).Value = CType(DOCTYPE_ID,Integer) If (OBJECT_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECT_TYPE") Else command.Parameters(2).Value = CType(OBJECT_TYPE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else command.Parameters(3).Value = CType(ADDED_WHO,String) End If 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 _ Public Overloads Overridable Function DeleteQuery(ByVal GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) 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 TBPMO_KONFIGURATIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_KONFIGURATION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") 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("SQL_RECORD_SQL1", "SQL_RECORD_SQL1") tableMapping.ColumnMappings.Add("SQL_RECORD_SQL2", "SQL_RECORD_SQL2") tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE1", "WORKFLOW_FINAL_STATE1") tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE2", "WORKFLOW_FINAL_STATE2") tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE3", "WORKFLOW_FINAL_STATE3") tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE4", "WORKFLOW_FINAL_STATE4") tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE5", "WORKFLOW_FINAL_STATE5") tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") tableMapping.ColumnMappings.Add("WD_UNICODE", "WD_UNICODE") tableMapping.ColumnMappings.Add("FOLLOW_UP_LOG_ERR_ONLY", "FOLLOW_UP_LOG_ERR_ONLY") tableMapping.ColumnMappings.Add("FOLLOW_UP_EMAIL_PROFILE", "FOLLOW_UP_EMAIL_PROFILE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE, VEKTOR_D"& _ "ELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_"& _ "FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL"& _ "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RE"& _ "CORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STAT"& _ "E2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW"& _ "_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, "& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UN"& _ "ICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Or"& _ "iginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FRO"& _ "M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTE"& _ "R, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ "QL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, W"& _ "ORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELI"& _ "MITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_SECURITY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_SECURITY", 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("@SQL_RECORD_SQL1", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL2", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE1", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE2", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE3", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE4", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE5", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_UNICODE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_UNICODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ "TP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW"& _ ", ADMIN_SECURITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW"& _ "_FINAL_STATE2, WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WORKFLOW_FINAL_"& _ "STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FO"& _ "LLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_KONFIGURATI"& _ "ON" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (GUID = @Original_GUID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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 DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_KONFIGURATION") 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 Update( _ ByVal LICENSE As String, _ ByVal VEKTOR_DELIMITER As String, _ ByVal EMAIL_ACTIVE As Boolean, _ ByVal EMAIL_FROM As String, _ ByVal EMAIL_SMTP As String, _ ByVal EMAIL_USER As String, _ ByVal EMAIL_PW As String, _ ByVal EMAIL_REMINDER_HEADER As String, _ ByVal EMAIL_REMINDER_FOOTER As String, _ ByVal ADMIN_PW As String, _ ByVal ADMIN_SECURITY As Boolean, _ ByVal CHANGED_WHO As String, _ ByVal SQL_RECORD_SQL1 As String, _ ByVal SQL_RECORD_SQL2 As String, _ ByVal WORKFLOW_FINAL_STATE1 As Integer, _ ByVal WORKFLOW_FINAL_STATE2 As Global.System.Nullable(Of Integer), _ ByVal WORKFLOW_FINAL_STATE3 As Global.System.Nullable(Of Integer), _ ByVal WORKFLOW_FINAL_STATE4 As Global.System.Nullable(Of Integer), _ ByVal WORKFLOW_FINAL_STATE5 As Global.System.Nullable(Of Integer), _ ByVal VERSION_DELIMITER As String, _ ByVal FILE_DELIMITER As String, _ ByVal WD_UNICODE As Boolean, _ ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ ByVal FOLLOW_UP_EMAIL_PROFILE As Integer, _ ByVal Original_GUID As Byte, _ ByVal GUID As Byte) As Integer If (LICENSE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LICENSE,String) End If If (VEKTOR_DELIMITER Is Nothing) Then Throw New Global.System.ArgumentNullException("VEKTOR_DELIMITER") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VEKTOR_DELIMITER,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_ACTIVE,Boolean) If (EMAIL_FROM Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_FROM,String) End If If (EMAIL_SMTP Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_SMTP,String) End If If (EMAIL_USER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_USER,String) End If If (EMAIL_PW Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_PW,String) End If If (EMAIL_REMINDER_HEADER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_REMINDER_HEADER,String) End If If (EMAIL_REMINDER_FOOTER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_REMINDER_FOOTER,String) End If If (ADMIN_PW Is Nothing) Then Throw New Global.System.ArgumentNullException("ADMIN_PW") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADMIN_PW,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADMIN_SECURITY,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) End If If (SQL_RECORD_SQL1 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL1") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RECORD_SQL1,String) End If If (SQL_RECORD_SQL2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL2") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RECORD_SQL2,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WORKFLOW_FINAL_STATE1,Integer) If (WORKFLOW_FINAL_STATE2.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WORKFLOW_FINAL_STATE2.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (WORKFLOW_FINAL_STATE3.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORKFLOW_FINAL_STATE3.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (WORKFLOW_FINAL_STATE4.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WORKFLOW_FINAL_STATE4.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (WORKFLOW_FINAL_STATE5.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WORKFLOW_FINAL_STATE5.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (VERSION_DELIMITER Is Nothing) Then Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(VERSION_DELIMITER,String) End If If (FILE_DELIMITER Is Nothing) Then Throw New Global.System.ArgumentNullException("FILE_DELIMITER") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FILE_DELIMITER,String) End If Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WD_UNICODE,Boolean) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FOLLOW_UP_LOG_ERR_ONLY,Boolean) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FOLLOW_UP_EMAIL_PROFILE,Integer) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Byte) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Byte) 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 cmdSetLicense(ByVal LICENSE As String, ByVal Original_GUID As Byte) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (LICENSE Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value Else command.Parameters(0).Value = CType(LICENSE,String) End If command.Parameters(1).Value = CType(Original_GUID,Byte) 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 TBDD_USERTableAdapter 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_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") 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("RECORD_ADMIN", "RECORD_ADMIN") 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_USER"&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 TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ "LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,"& _ "@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NA"& _ "ME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_"& _ "ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GU"& _ "ID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", 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 TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ "NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _ "HANGED_WHO"&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, PRENAME, NAME, "& _ "USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMI"& _ "N, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID ="& _ " @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ "IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ "_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER") 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 PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String) As Integer If (PRENAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) End If If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) End If If (EMAIL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If 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 PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (PRENAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) End If If (NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) End If If (EMAIL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean) 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 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 TBPMO_FORM_TYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TYPE", "FORM_TYPE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] ="& _ " @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] "& _ "= @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL)"& _ " OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND "& _ "[CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" 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_FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", 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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ "UES (@FORM_TYPE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_W"& _ "HEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = SCOPE_IDENTITY"& _ "())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", 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 TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TYPE = @FORM_TYPE, CHANGED_"& _ "WHO = @CHANGED_WHO"&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, FORM_TY"& _ "PE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE "& _ "(GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_TYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable = New DD_DMSDataSet.TBPMO_FORM_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_TYPE") 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_FORM_TYPE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_FORM_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FORM_TYPE") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FORM_TYPE,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_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 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String) As Integer If (FORM_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("FORM_TYPE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TYPE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(1).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 FORM_TYPE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("FORM_TYPE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TYPE,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) End If 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 TBDD_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_USER_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER_GROUPS"&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 TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ "HO, CHANGED_WHEN FROM TBDD_USER_GROUPS 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, 50, 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("@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 TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ "ANGED_WHO"&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, ADDED_WHO,"& _ " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _ ")" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, 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("@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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBDD_USER_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable = New DD_DMSDataSet.TBDD_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) 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 ADDED_WHO As String) As Integer If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(1).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 NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) End If 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 VWPMO_USERS_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_USERS_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT VWPMO_USERS_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_USERS_GROUPS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable = New DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_GROUPS_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_GROUPS_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ "ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _ "ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _ "] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _ "N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _ "" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN],"& _ " [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_"& _ "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, "& _ "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_"& _ "IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, 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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [ADDE"& _ "D_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, ["& _ "CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ "ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _ "ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _ "] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _ "N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _ ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ "HEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, 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("@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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable = New DD_DMSDataSet.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") 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_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If 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 USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_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 If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).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 USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, 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(USER_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_ID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GROUP_ID,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, 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(USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, 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 TBWH_DOKART_MODULETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBWH_DOKART_MODULE" tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ "DD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE ON T"& _ "BDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.G"& _ "UID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_DOKUMENTART.GUID = @DokID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", 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 = "INSERT INTO TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOKART_ID, MODULE_"& _ "ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID, 0)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable, ByVal DokID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,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 DokID As Integer) As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) Dim dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable = New DD_DMSDataSet.TBWH_DOKART_MODULEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function InsertDokartModule(ByVal DOK_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) command.Parameters(0).Value = CType(DOK_ID,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 TBPMO_FORM_CONSTRUCTORTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_CONSTRUCTOR] WHERE (([GUID] = @Original_GUID) AND ((@IsNu"& _ "ll_FORM_TITLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TI"& _ "TLE)) AND ([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Origin"& _ "al_ADDED_WHO) AND ([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)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) O"& _ "R ([SHORT_TITLE] = @Original_SHORT_TITLE)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FORM_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", 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("@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("@IsNull_SHORT_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FORM_CONSTRUCTOR] ([FORM_TITLE], [SEQUENCE_MENU], [ADDED_WHO],"& _ " [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [MENU_IMG], [SHORT_TITLE]) VALUES "& _ "(@FORM_TITLE, @SEQUENCE_MENU, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WH"& _ "EN, @MENU_IMG, @SHORT_TITLE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO"& _ ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_C"& _ "ONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 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("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FORM_CONSTRUCTOR] SET [FORM_TITLE] = @FORM_TITLE, [SEQUENCE_MENU] ="& _ " @SEQUENCE_MENU, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [MENU_IMG] = @MENU_IMG, [SH"& _ "ORT_TITLE] = @SHORT_TITLE WHERE (([GUID] = @Original_GUID) AND ((@IsNull_FORM_TI"& _ "TLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TITLE)) AND "& _ "([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Original_ADDED_W"& _ "HO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND "& _ "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _ "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _ "NGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) OR ([SHORT_"& _ "TITLE] = @Original_SHORT_TITLE)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDE"& _ "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_F"& _ "ORM_CONSTRUCTOR WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FORM_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", 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("@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("@IsNull_SHORT_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_CONSTRUCTOR.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TITLE As String, ByVal Original_SEQUENCE_MENU As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SHORT_TITLE As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_FORM_TITLE Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_TITLE,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SEQUENCE_MENU,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_SHORT_TITLE Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SHORT_TITLE,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (MENU_IMG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORT_TITLE,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 FORM_TITLE As String, _ ByVal SEQUENCE_MENU As Integer, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal MENU_IMG() As Byte, _ ByVal SHORT_TITLE As String, _ ByVal Original_GUID As Integer, _ ByVal Original_FORM_TITLE As String, _ ByVal Original_SEQUENCE_MENU As Integer, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_SHORT_TITLE As String, _ ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (MENU_IMG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORT_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) If (Original_FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_FORM_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE_MENU,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_SHORT_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_SHORT_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(20).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 FORM_TITLE As String, _ ByVal SEQUENCE_MENU As Integer, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal MENU_IMG() As Byte, _ ByVal SHORT_TITLE As String, _ ByVal Original_GUID As Integer, _ ByVal Original_FORM_TITLE As String, _ ByVal Original_SEQUENCE_MENU As Integer, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_SHORT_TITLE As String) As Integer Return Me.Update(FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, Original_GUID, Original_FORM_TITLE, Original_SEQUENCE_MENU, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_SHORT_TITLE, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_WD_OBJECTTYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WD_OBJECTTYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") tableMapping.ColumnMappings.Add("IDXNAME_ENTITYID", "IDXNAME_ENTITYID") 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("IDXNAME_PARENTID", "IDXNAME_PARENTID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, IDXNAME_E"& _ "NTITYID, IDXNAME_PARENTID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TYPE,@IDXNAME_ENTI"& _ "TYID,@IDXNAME_PARENTID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID"& _ ", IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_"& _ "WD_OBJECTTYPE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", 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 TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TYPE = @OBJECT_TYPE, "& _ "IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHAN"& _ "GED_WHO = @CHANGED_WHO"&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, OBJ"& _ "ECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ ", CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_OBJECTTYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_OBJECTTYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable = New DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_WD_OBJECTTYPE") 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 OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal ADDED_WHO As String) As Integer If (OBJECT_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECT_TYPE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) End If If (IDXNAME_ENTITYID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) End If If (IDXNAME_PARENTID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,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 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 OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (OBJECT_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("OBJECT_TYPE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) End If If (IDXNAME_ENTITYID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) End If If (IDXNAME_PARENTID Is Nothing) Then Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,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(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FILES_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FILES_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FILENAME2WORK", "FILENAME2WORK") tableMapping.ColumnMappings.Add("USER_WORK", "USER_WORK") tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE") tableMapping.ColumnMappings.Add("WORKED", "WORKED") 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 [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WO"& _ "RK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HAN"& _ "DLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([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_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, 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 [TBPMO_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WOR"& _ "KED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @"& _ "ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_"& _ "WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @US"& _ "ER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED"& _ "_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME"& _ "2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HA"& _ "NDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED"& _ "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN"& _ " FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", 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_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, 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_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "select * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", 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 [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) " Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = "INSERT INTO TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILENAME2WORK, USER_WORK,"& _ " HANDLE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES"& _ "_USER WHERE (GUID = SCOPE_IDENTITY())" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(3).Connection = Me.Connection Me._commandCollection(3).CommandText = "UPDATE TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WORKED = @WORKED"&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, FILENAME2WORK, USER_WORK, HANDLE_TYPE, W"& _ "ORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(3).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._commandCollection(3).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 DD_DMSDataSet.TBPMO_FILES_USERDataTable, ByVal USER As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If 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 USER As String) As DD_DMSDataSet.TBPMO_FILES_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) End If Dim dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable = New DD_DMSDataSet.TBPMO_FILES_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FILES_USER") 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_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_FILENAME2WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FILENAME2WORK,String) End If If (Original_USER_WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_USER_WORK") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_USER_WORK,String) End If If (Original_HANDLE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WORKED,Boolean) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) 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 FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As Integer If (FILENAME2WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("FILENAME2WORK") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILENAME2WORK,String) End If If (USER_WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("USER_WORK") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_WORK,String) End If If (HANDLE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("HANDLE_TYPE") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(WORKED,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) 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 FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer If (FILENAME2WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("FILENAME2WORK") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILENAME2WORK,String) End If If (USER_WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("USER_WORK") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_WORK,String) End If If (HANDLE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("HANDLE_TYPE") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(WORKED,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) If (Original_FILENAME2WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_FILENAME2WORK,String) End If If (Original_USER_WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_USER_WORK") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_WORK,String) End If If (Original_HANDLE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_HANDLE_TYPE,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_WORKED,Boolean) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) Me.Adapter.UpdateCommand.Parameters(11).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 FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer Return Me.Update(FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN, Original_GUID, Original_FILENAME2WORK, Original_USER_WORK, Original_HANDLE_TYPE, Original_WORKED, Original_ADDED_WHEN, Original_GUID) End Function _ Public Overloads Overridable Function cmdDelete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) command.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_FILENAME2WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") Else command.Parameters(1).Value = CType(Original_FILENAME2WORK,String) End If If (Original_USER_WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_USER_WORK") Else command.Parameters(2).Value = CType(Original_USER_WORK,String) End If If (Original_HANDLE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") Else command.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) End If command.Parameters(4).Value = CType(Original_WORKED,Boolean) command.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) 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 _ Public Overloads Overridable Function cmdInsert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) If (FILENAME2WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("FILENAME2WORK") Else command.Parameters(0).Value = CType(FILENAME2WORK,String) End If If (USER_WORK Is Nothing) Then Throw New Global.System.ArgumentNullException("USER_WORK") Else command.Parameters(1).Value = CType(USER_WORK,String) End If If (HANDLE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("HANDLE_TYPE") Else command.Parameters(2).Value = CType(HANDLE_TYPE,String) End If 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 _ Public Overloads Overridable Function cmdsetworked(ByVal WORKED As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) command.Parameters(0).Value = CType(WORKED,Boolean) command.Parameters(1).Value = CType(Original_GUID,Integer) command.Parameters(2).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 VWPMO_WORKFLOW_FORMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_WORKFLOW_FORM" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("FORM_NAME", "FORM_NAME") tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") tableMapping.ColumnMappings.Add("WORKFLOW", "WORKFLOW") 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("COLOR", "COLOR") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "select * from VWPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_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 FORM_ID As Integer) As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.VWPMO_WORKFLOW_FORMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FOLLOW_UP_EMAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FOLLOW_UP_EMAIL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FOLLOW_UP_SEQUENCE", "FOLLOW_UP_SEQUENCE") tableMapping.ColumnMappings.Add("FOLLOW_UP_DAYS", "FOLLOW_UP_DAYS") tableMapping.ColumnMappings.Add("FOLLOW_UP_TIME_SPAN", "FOLLOW_UP_TIME_SPAN") tableMapping.ColumnMappings.Add("DEPENDENT_DATE_CTRL_ID", "DEPENDENT_DATE_CTRL_ID") tableMapping.ColumnMappings.Add("DEPENDENT_DONE_CTRL_ID", "DEPENDENT_DONE_CTRL_ID") tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") tableMapping.ColumnMappings.Add("TIME_UNITY", "TIME_UNITY") tableMapping.ColumnMappings.Add("TIME_SPAN", "TIME_SPAN") tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") tableMapping.ColumnMappings.Add("EMAIL_BODY", "EMAIL_BODY") tableMapping.ColumnMappings.Add("PROCESS_SELECT1", "PROCESS_SELECT1") tableMapping.ColumnMappings.Add("PROCESS_SELECT2", "PROCESS_SELECT2") tableMapping.ColumnMappings.Add("PROCESS_SELECT3", "PROCESS_SELECT3") tableMapping.ColumnMappings.Add("PROCESS_SELECT4", "PROCESS_SELECT4") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("TIME_DIST", "TIME_DIST") tableMapping.ColumnMappings.Add("PROCESS_SELECT5", "PROCESS_SELECT5") tableMapping.ColumnMappings.Add("PROCESS_SELECT6", "PROCESS_SELECT6") tableMapping.ColumnMappings.Add("PROCESS_SELECT7", "PROCESS_SELECT7") tableMapping.ColumnMappings.Add("PROCESS_SELECT8", "PROCESS_SELECT8") tableMapping.ColumnMappings.Add("PROCESS_SELECT9", "PROCESS_SELECT9") tableMapping.ColumnMappings.Add("PROCESS_SELECT10", "PROCESS_SELECT10") tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FOLLOW_UP_SEQUENCE, "& _ "FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL"& _ "_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4,"& _ " ACTIVE, ADDED_WHO, TIME_DIST, NAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FOLLOW_UP_SEQUENCE,@FOLLOW"& _ "_UP_DAYS,@FOLLOW_UP_TIME_SPAN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT_DONE_CTRL_ID,@P"& _ "ARENT_ID,@TIME_UNITY,@TIME_SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROCESS_SELECT1,@PRO"& _ "CESS_SELECT2,@PROCESS_SELECT3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WHO,@TIME_DIST,@NA"& _ "ME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, D"& _ "EPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN,"& _ " EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, P"& _ "ROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ "PMO_FOLLOW_UP_EMAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FOLLOW_UP_SEQUENCE = @FOLL"& _ "OW_UP_SEQUENCE, FOLLOW_UP_DAYS = @FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN = @FOLLOW_"& _ "UP_TIME_SPAN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DEPENDENT_DATE_CTRL_ID = @DEPENDENT_DAT"& _ "E_CTRL_ID, DEPENDENT_DONE_CTRL_ID = @DEPENDENT_DONE_CTRL_ID, PARENT_ID = @PARENT"& _ "_ID, TIME_UNITY = @TIME_UNITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TIME_SPAN = @TIME_SPAN"& _ ", EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY = @EMAIL_BODY, PROCESS_SELECT1 = @P"& _ "ROCESS_SELECT1, PROCESS_SELECT2 = @PROCESS_SELECT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" P"& _ "ROCESS_SELECT3 = @PROCESS_SELECT3, PROCESS_SELECT4 = @PROCESS_SELECT4, ACTIVE = "& _ "@ACTIVE, CHANGED_WHO = @CHANGED_WHO, TIME_DIST = @TIME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " PROCESS_SELECT5 = @PROCESS_SELECT5, PROCESS_SELECT6 = @PROCESS_SELECT6, "& _ "PROCESS_SELECT7 = @PROCESS_SELECT7, PROCESS_SELECT8 = @PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " PROCESS_SELECT9 = @PROCESS_SELECT9, PROCESS_SELECT10 = @PROCE"& _ "SS_SELECT10, NAME = @NAME"&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"& _ ", FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_I"& _ "D, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAI"& _ "L_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTI"& _ "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL "& _ "WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT5", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT6", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT7", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT8", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT9", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT10", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPE"& _ "NDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, TI"& _ "ME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, "& _ "PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, PROCESS_SELECT5, PROCESS_SELE"& _ "CT6, PROCESS_SELECT7, PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROCESS_SELECT"& _ "9, PROCESS_SELECT10, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, N"& _ "AME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLOW_UP_EMAIL" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable = New DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FOLLOW_UP_EMAIL") 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 FOLLOW_UP_SEQUENCE As String, _ ByVal FOLLOW_UP_DAYS As String, _ ByVal FOLLOW_UP_TIME_SPAN As String, _ ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal TIME_UNITY As String, _ ByVal TIME_SPAN As Integer, _ ByVal EMAIL_SUBJECT As String, _ ByVal EMAIL_BODY As String, _ ByVal PROCESS_SELECT1 As String, _ ByVal PROCESS_SELECT2 As String, _ ByVal PROCESS_SELECT3 As String, _ ByVal PROCESS_SELECT4 As String, _ ByVal ACTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal TIME_DIST As String, _ ByVal NAME As String) As Integer If (FOLLOW_UP_SEQUENCE Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) End If If (FOLLOW_UP_DAYS Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) End If If (FOLLOW_UP_TIME_SPAN Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) Me.Adapter.InsertCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(PARENT_ID,Integer) If (TIME_UNITY Is Nothing) Then Throw New Global.System.ArgumentNullException("TIME_UNITY") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(TIME_UNITY,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) If (EMAIL_SUBJECT Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) End If If (EMAIL_BODY Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_BODY") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(EMAIL_BODY,String) End If If (PROCESS_SELECT1 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) End If If (PROCESS_SELECT2 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) End If If (PROCESS_SELECT3 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) End If If (PROCESS_SELECT4 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) End If Me.Adapter.InsertCommand.Parameters(14).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) End If If (TIME_DIST Is Nothing) Then Throw New Global.System.ArgumentNullException("TIME_DIST") Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(TIME_DIST,String) End If If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(NAME,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 FOLLOW_UP_SEQUENCE As String, _ ByVal FOLLOW_UP_DAYS As String, _ ByVal FOLLOW_UP_TIME_SPAN As String, _ ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal TIME_UNITY As String, _ ByVal TIME_SPAN As Integer, _ ByVal EMAIL_SUBJECT As String, _ ByVal EMAIL_BODY As String, _ ByVal PROCESS_SELECT1 As String, _ ByVal PROCESS_SELECT2 As String, _ ByVal PROCESS_SELECT3 As String, _ ByVal PROCESS_SELECT4 As String, _ ByVal ACTIVE As Boolean, _ ByVal CHANGED_WHO As String, _ ByVal TIME_DIST As String, _ ByVal PROCESS_SELECT5 As String, _ ByVal PROCESS_SELECT6 As String, _ ByVal PROCESS_SELECT7 As String, _ ByVal PROCESS_SELECT8 As String, _ ByVal PROCESS_SELECT9 As String, _ ByVal PROCESS_SELECT10 As String, _ ByVal NAME As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (FOLLOW_UP_SEQUENCE Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) End If If (FOLLOW_UP_DAYS Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) End If If (FOLLOW_UP_TIME_SPAN Is Nothing) Then Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PARENT_ID,Integer) If (TIME_UNITY Is Nothing) Then Throw New Global.System.ArgumentNullException("TIME_UNITY") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TIME_UNITY,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) If (EMAIL_SUBJECT Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) End If If (EMAIL_BODY Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_BODY") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMAIL_BODY,String) End If If (PROCESS_SELECT1 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) End If If (PROCESS_SELECT2 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) End If If (PROCESS_SELECT3 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) End If If (PROCESS_SELECT4 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) End If If (TIME_DIST Is Nothing) Then Throw New Global.System.ArgumentNullException("TIME_DIST") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(TIME_DIST,String) End If If (PROCESS_SELECT5 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT5") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PROCESS_SELECT5,String) End If If (PROCESS_SELECT6 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT6") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PROCESS_SELECT6,String) End If If (PROCESS_SELECT7 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT7") Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PROCESS_SELECT7,String) End If If (PROCESS_SELECT8 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT8") Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(PROCESS_SELECT8,String) End If If (PROCESS_SELECT9 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT9") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(PROCESS_SELECT9,String) End If If (PROCESS_SELECT10 Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_SELECT10") Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PROCESS_SELECT10,String) End If If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NAME,String) End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FOLLUPEMAIL_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FOLLUPEMAIL_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") tableMapping.ColumnMappings.Add("FOLLOW_UP_ID", "FOLLOW_UP_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, FOLLOW_UP_"& _ "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@FOLLOW_UP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ ", USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ "BPMO_FOLLUPEMAIL_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text 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("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_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 TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, FOLLO"& _ "W_UP_ID = @FOLLOW_UP_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ "WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text 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("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_FOLLUPEMAIL_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLUPEMAIL_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable = New DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FOLLUPEMAIL_USER") 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 USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_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 USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_RECORD_LOG_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_RECORD_LOG_CONFIG" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") tableMapping.ColumnMappings.Add("LOG_DELETE", "LOG_DELETE") tableMapping.ColumnMappings.Add("LOG_UPDATE", "LOG_UPDATE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("FORM_ID1", "FORM_ID1") tableMapping.ColumnMappings.Add("String", "String") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, LOG_DE"& _ "LETE, LOG_UPDATE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ " GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ " FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID"& _ ", LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, CHANGED_WHO = @CHANGED_WHO"& _ ""&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, CONTROL_ID, LOG_DELETE, "& _ "LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG W"& _ "HERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_RECORD_LOG_CONFIG.GUID, TBPMO_RECORD_LOG_CONFIG.CONTROL_ID, T"& _ "BPMO_RECORD_LOG_CONFIG.LOG_DELETE, TBPMO_RECORD_LOG_CONFIG.LOG_UPDATE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_RECORD_LOG_CONFIG.ADDED_WHEN, TBPMO_RECORD_LOG_CONFIG.CH"& _ "ANGED_WHO, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHEN, TBPMO_CONTROL.FORM_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_FORM.GUID AS FORM_ID, TBPMO_FORM.NAME, TBPMO_FORM.NAME "& _ "+ ' - ' + TBPMO_CONTROL.NAME AS String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RECORD_LOG_CONFIG "& _ "INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_CONTROL ON TBPMO_RECORD_LOG_CONFIG.CO"& _ "NTROL_ID = TBPMO_CONTROL.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM ON"& _ " TBPMO_CONTROL.FORM_ID = TBPMO_FORM.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBPMO_FORM.NAME, TBPMO_CONTRO"& _ "L.NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable = New DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_RECORD_LOG_CONFIG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) 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 CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) Me.Adapter.InsertCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) 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(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(5).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 VWPMO_RECORD_CHANGESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_RECORD_CHANGES" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("Control-Name", "Control-Name") tableMapping.ColumnMappings.Add("Log-Description", "Log-Description") tableMapping.ColumnMappings.Add("Added who", "Added who") tableMapping.ColumnMappings.Add("Added When", "Added When") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID AS ID, NAME AS [Control-Name], LOG_DESCRIPTION AS [Log-Descrip"& _ "tion], ADDED_WHO AS [Added who], ADDED_WHEN AS [Added When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWP"& _ "MO_RECORD_CHANGES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable, ByVal RECORD_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_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 RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) Dim dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable = New DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_WF_ACTIVETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_WF_ACTIVE" tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") tableMapping.ColumnMappings.Add("TITLE", "TITLE") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") tableMapping.ColumnMappings.Add("COLOR", "COLOR") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString 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 WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_"& _ "WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (UPPER(USERNAME) <"& _ "> UPPER(@USERNAME))))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", 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 = "SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @REC_ID) AND (WF_TASK_ID NOT I"& _ "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE"& _ " (UPPER(USERNAME) <> UPPER(@USERNAME))))" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal USERNAME As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) End If 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 USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) End If Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByRecord(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal REC_ID As Integer, ByVal USERNAME As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(REC_ID,Integer) If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) End If 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 GetDataByRecord(ByVal REC_ID As Integer, ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(REC_ID,Integer) If (USERNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("USERNAME") Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) End If Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_EMAIL_ACCOUNTTableAdapter 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_EMAIL_ACCOUNT" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") 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_EMAIL_ACCOUNT"&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 TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ "_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FRO"& _ "M,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EM"& _ "AIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ "ED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT 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, 50, 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("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ "_PW, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTI"& _ "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHE"& _ "RE (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, 50, 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("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBDD_EMAIL_ACCOUNT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable = New DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") 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 EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If If (EMAIL_FROM Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_FROM") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_FROM,String) End If If (EMAIL_SMTP Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_SMTP") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) End If If (EMAIL_USER Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_USER") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_USER,String) End If If (EMAIL_PW Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_PW") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_PW,String) End If Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) 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 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 EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (EMAIL_FROM Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_FROM") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_FROM,String) End If If (EMAIL_SMTP Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_SMTP") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) End If If (EMAIL_USER Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_USER") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_USER,String) End If If (EMAIL_PW Is Nothing) Then Throw New Global.System.ArgumentNullException("EMAIL_PW") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_PW,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) 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 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_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 = "TBPMO_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") tableMapping.ColumnMappings.Add("SERVER", "SERVER") tableMapping.ColumnMappings.Add("DATABASE", "DATABASE") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("AKTIVE", "AKTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DES"& _ "CRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTIO"& _ "N)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER"& _ "] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ("& _ "[SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL)"& _ " OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME]"& _ " IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND ["& _ "PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT ="& _ " 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @O"& _ "riginal_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Ori"& _ "ginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR (["& _ "CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANG"& _ "ED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, 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("@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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", 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("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_CONNECTION] ([DESCRIPTION], [SQL_PROVIDER], [SERVER], [DATABAS"& _ "E], [USERNAME], [PASSWORD], [COMMENT], [AKTIVE], [ADDED_WHO], [ADDED_WHEN], [CHA"& _ "NGED_WHO], [CHANGED_WHEN]) VALUES (@DESCRIPTION, @SQL_PROVIDER, @SERVER, @DATABA"& _ "SE, @USERNAME, @PASSWORD, @COMMENT, @AKTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_W"& _ "HO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE],"& _ " USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ "D_WHEN FROM TBPMO_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("@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("@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("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL"& _ "_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, ["& _ "PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @"& _ "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION ="& _ " 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (("& _ "@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Origi"& _ "nal_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] ="& _ " @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATA"& _ "BASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) "& _ "OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] "& _ "IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [CO"& _ "MMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AK"& _ "TIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDE"& _ "D_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WH"& _ "O] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] I"& _ "S NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTIO"& _ "N, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_"& _ "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_CONNECTION 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, 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("@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("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.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_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, 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("@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_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", 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_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", 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("@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.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_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable = New DD_DMSDataSet.TBPMO_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_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, ByVal Original_DESCRIPTION As String, ByVal Original_SQL_PROVIDER As String, ByVal Original_SERVER As String, ByVal Original_DATABASE As String, ByVal Original_USERNAME As String, ByVal Original_PASSWORD As String, ByVal Original_COMMENT As String, ByVal Original_AKTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) If (Original_DESCRIPTION Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) End If If (Original_SQL_PROVIDER Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SQL_PROVIDER,String) End If If (Original_SERVER Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SERVER,String) End If If (Original_DATABASE Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DATABASE,String) End If If (Original_USERNAME Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_USERNAME,String) End If If (Original_PASSWORD Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PASSWORD,String) End If If (Original_COMMENT Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_COMMENT,String) End If Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_AKTIVE,Boolean) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal DESCRIPTION As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATABASE As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal COMMENT As String, ByVal AKTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (DESCRIPTION Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(DESCRIPTION,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 (DATABASE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATABASE,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 (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHO,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(CHANGED_WHEN.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 DESCRIPTION As String, _ ByVal SQL_PROVIDER As String, _ ByVal SERVER As String, _ ByVal DATABASE As String, _ ByVal USERNAME As String, _ ByVal PASSWORD As String, _ ByVal COMMENT As String, _ ByVal AKTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Short, _ ByVal Original_DESCRIPTION As String, _ ByVal Original_SQL_PROVIDER As String, _ ByVal Original_SERVER As String, _ ByVal Original_DATABASE As String, _ ByVal Original_USERNAME As String, _ ByVal Original_PASSWORD As String, _ ByVal Original_COMMENT As String, _ ByVal Original_AKTIVE As Boolean, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Short) As Integer If (DESCRIPTION Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,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 (DATABASE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATABASE,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 (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHEN.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_DESCRIPTION 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_DESCRIPTION,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_DATABASE 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_DATABASE,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_COMMENT 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_COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIVE,Boolean) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(34).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 DESCRIPTION As String, _ ByVal SQL_PROVIDER As String, _ ByVal SERVER As String, _ ByVal DATABASE As String, _ ByVal USERNAME As String, _ ByVal PASSWORD As String, _ ByVal COMMENT As String, _ ByVal AKTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Short, _ ByVal Original_DESCRIPTION As String, _ ByVal Original_SQL_PROVIDER As String, _ ByVal Original_SERVER As String, _ ByVal Original_DATABASE As String, _ ByVal Original_USERNAME As String, _ ByVal Original_PASSWORD As String, _ ByVal Original_COMMENT As String, _ ByVal Original_AKTIVE As Boolean, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_DESCRIPTION, Original_SQL_PROVIDER, Original_SERVER, Original_DATABASE, Original_USERNAME, Original_PASSWORD, Original_COMMENT, Original_AKTIVE, 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 TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_CONSTRUCTOR_DETAIL] WHERE (([GUID] = @Original_GUID) AND "& _ "([CONSTRUCT_ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AN"& _ "D ([PARENT_ID] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SE"& _ "LECT) AND ([SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 "& _ "AND [SQL_SELECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_"& _ "EBENE1)) AND ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_A"& _ "DDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AN"& _ "D ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANG"& _ "ED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANG"& _ "ED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_W"& _ "HEN)) AND ([COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Origi"& _ "nal_COLUMN_NAME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NUL"& _ "L) OR ([WINDREAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATT"& _ "ERN1 = 1 AND [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH"& _ "_PATTERN1)) AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR "& _ "([SEARCH_PATTERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 ="& _ " 1 AND [SEARCH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTE"& _ "RN3)) AND ((@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEAR"& _ "CH_PATTERN4] = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND"& _ " [SEARCH_PATTERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5)))"& _ "" 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_CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WINDREAM_SEARCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FORM_CONSTRUCTOR_DETAIL] ([CONSTRUCT_ID], [FORM_ID], [PARENT_I"& _ "D], [LEVEL1_SELECT], [SEQUENCE], [SQL_SELECT_EBENE1], [SQL_SELECT_EBENE2], [ADDE"& _ "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COLUMN_NAME1], [COLUMN_NAM"& _ "E2], [WINDREAM_SEARCH], [SEARCH_PATTERN1], [SEARCH_PATTERN2], [SEARCH_PATTERN3],"& _ " [SEARCH_PATTERN4], [SEARCH_PATTERN5]) VALUES (@CONSTRUCT_ID, @FORM_ID, @PARENT_"& _ "ID, @LEVEL1_SELECT, @SEQUENCE, @SQL_SELECT_EBENE1, @SQL_SELECT_EBENE2, @ADDED_WH"& _ "O, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLUMN_NAME1, @COLUMN_NAME2, @WIND"& _ "REAM_SEARCH, @SEARCH_PATTERN1, @SEARCH_PATTERN2, @SEARCH_PATTERN3, @SEARCH_PATTE"& _ "RN4, @SEARCH_PATTERN5);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_S"& _ "ELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CH"& _ "ANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PAT"& _ "TERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM T"& _ "BPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 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("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 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("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FORM_CONSTRUCTOR_DETAIL] SET [CONSTRUCT_ID] = @CONSTRUCT_ID, [FORM_"& _ "ID] = @FORM_ID, [PARENT_ID] = @PARENT_ID, [LEVEL1_SELECT] = @LEVEL1_SELECT, [SEQ"& _ "UENCE] = @SEQUENCE, [SQL_SELECT_EBENE1] = @SQL_SELECT_EBENE1, [SQL_SELECT_EBENE2"& _ "] = @SQL_SELECT_EBENE2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [C"& _ "HANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COLUMN_NAME1] = @CO"& _ "LUMN_NAME1, [COLUMN_NAME2] = @COLUMN_NAME2, [WINDREAM_SEARCH] = @WINDREAM_SEARCH"& _ ", [SEARCH_PATTERN1] = @SEARCH_PATTERN1, [SEARCH_PATTERN2] = @SEARCH_PATTERN2, [S"& _ "EARCH_PATTERN3] = @SEARCH_PATTERN3, [SEARCH_PATTERN4] = @SEARCH_PATTERN4, [SEARC"& _ "H_PATTERN5] = @SEARCH_PATTERN5 WHERE (([GUID] = @Original_GUID) AND ([CONSTRUCT_"& _ "ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ([PARENT_I"& _ "D] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SELECT) AND (["& _ "SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 AND [SQL_SEL"& _ "ECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_EBENE1)) AND"& _ " ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_ADDED_WHO = 1"& _ " AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ([ADDED_WH"& _ "EN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND (["& _ "COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Original_COLUMN_N"& _ "AME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NULL) OR ([WIND"& _ "REAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATTERN1 = 1 AND"& _ " [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH_PATTERN1)) "& _ "AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR ([SEARCH_PAT"& _ "TERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 = 1 AND [SEAR"& _ "CH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTERN3)) AND (("& _ "@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEARCH_PATTERN4]"& _ " = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND [SEARCH_PAT"& _ "TERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ "ID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1"& _ ", SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NA"& _ "ME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PAT"& _ "TERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE"& _ " (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 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("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", 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_CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WINDREAM_SEARCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONSTRUCT_ID = @"& _ "CONSTRUCT_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal CONSTRUCT_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_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 CONSTRUCT_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ ByVal Original_GUID As Integer, _ ByVal Original_CONSTRUCT_ID As Integer, _ ByVal Original_FORM_ID As Integer, _ ByVal Original_PARENT_ID As Integer, _ ByVal Original_LEVEL1_SELECT As Boolean, _ ByVal Original_SEQUENCE As Integer, _ ByVal Original_SQL_SELECT_EBENE1 As String, _ ByVal Original_SQL_SELECT_EBENE2 As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_COLUMN_NAME1 As String, _ ByVal Original_COLUMN_NAME2 As String, _ ByVal Original_WINDREAM_SEARCH As String, _ ByVal Original_SEARCH_PATTERN1 As String, _ ByVal Original_SEARCH_PATTERN2 As String, _ ByVal Original_SEARCH_PATTERN3 As String, _ ByVal Original_SEARCH_PATTERN4 As String, _ ByVal Original_SEARCH_PATTERN5 As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CONSTRUCT_ID,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PARENT_ID,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LEVEL1_SELECT,Boolean) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SEQUENCE,Integer) If (Original_SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_SQL_SELECT_EBENE1,String) End If If (Original_SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SQL_SELECT_EBENE2") Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_SQL_SELECT_EBENE2,String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (Original_COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME1") Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COLUMN_NAME1,String) End If If (Original_COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME2") Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_COLUMN_NAME2,String) End If If (Original_WINDREAM_SEARCH Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_WINDREAM_SEARCH,String) End If If (Original_SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_SEARCH_PATTERN1,String) End If If (Original_SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_SEARCH_PATTERN2,String) End If If (Original_SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_SEARCH_PATTERN3,String) End If If (Original_SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_SEARCH_PATTERN4,String) End If If (Original_SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_SEARCH_PATTERN5,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal CONSTRUCT_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ ByVal SEARCH_PATTERN1 As String, _ ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(COLUMN_NAME2,String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(WINDREAM_SEARCH,String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN1,String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN2,String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(SEARCH_PATTERN3,String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(SEARCH_PATTERN4,String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(SEARCH_PATTERN5,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CONSTRUCT_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ ByVal SEARCH_PATTERN1 As String, _ ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String, _ ByVal Original_GUID As Integer, _ ByVal Original_CONSTRUCT_ID As Integer, _ ByVal Original_FORM_ID As Integer, _ ByVal Original_PARENT_ID As Integer, _ ByVal Original_LEVEL1_SELECT As Boolean, _ ByVal Original_SEQUENCE As Integer, _ ByVal Original_SQL_SELECT_EBENE1 As String, _ ByVal Original_SQL_SELECT_EBENE2 As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_COLUMN_NAME1 As String, _ ByVal Original_COLUMN_NAME2 As String, _ ByVal Original_WINDREAM_SEARCH As String, _ ByVal Original_SEARCH_PATTERN1 As String, _ ByVal Original_SEARCH_PATTERN2 As String, _ ByVal Original_SEARCH_PATTERN3 As String, _ ByVal Original_SEARCH_PATTERN4 As String, _ ByVal Original_SEARCH_PATTERN5 As String, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(COLUMN_NAME2,String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(WINDREAM_SEARCH,String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN1,String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN2,String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(SEARCH_PATTERN3,String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SEARCH_PATTERN4,String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SEARCH_PATTERN5,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CONSTRUCT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_FORM_ID,Integer) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PARENT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_LEVEL1_SELECT,Boolean) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_SEQUENCE,Integer) If (Original_SQL_SELECT_EBENE1 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_SQL_SELECT_EBENE1,String) End If If (Original_SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_SQL_SELECT_EBENE2") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_SQL_SELECT_EBENE2,String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO 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_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME1") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_COLUMN_NAME1,String) End If If (Original_COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME2") Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_COLUMN_NAME2,String) End If If (Original_WINDREAM_SEARCH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_WINDREAM_SEARCH,String) End If If (Original_SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_SEARCH_PATTERN1,String) End If If (Original_SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_SEARCH_PATTERN2,String) End If If (Original_SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_SEARCH_PATTERN3,String) End If If (Original_SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_SEARCH_PATTERN4,String) End If If (Original_SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_SEARCH_PATTERN5,String) End If Me.Adapter.UpdateCommand.Parameters(49).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 CONSTRUCT_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ ByVal SEARCH_PATTERN1 As String, _ ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String, _ ByVal Original_GUID As Integer, _ ByVal Original_CONSTRUCT_ID As Integer, _ ByVal Original_FORM_ID As Integer, _ ByVal Original_PARENT_ID As Integer, _ ByVal Original_LEVEL1_SELECT As Boolean, _ ByVal Original_SEQUENCE As Integer, _ ByVal Original_SQL_SELECT_EBENE1 As String, _ ByVal Original_SQL_SELECT_EBENE2 As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Date, _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_COLUMN_NAME1 As String, _ ByVal Original_COLUMN_NAME2 As String, _ ByVal Original_WINDREAM_SEARCH As String, _ ByVal Original_SEARCH_PATTERN1 As String, _ ByVal Original_SEARCH_PATTERN2 As String, _ ByVal Original_SEARCH_PATTERN3 As String, _ ByVal Original_SEARCH_PATTERN4 As String, _ ByVal Original_SEARCH_PATTERN5 As String) As Integer Return Me.Update(CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, Original_GUID, Original_CONSTRUCT_ID, Original_FORM_ID, Original_PARENT_ID, Original_LEVEL1_SELECT, Original_SEQUENCE, Original_SQL_SELECT_EBENE1, Original_SQL_SELECT_EBENE2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_COLUMN_NAME1, Original_COLUMN_NAME2, Original_WINDREAM_SEARCH, Original_SEARCH_PATTERN1, Original_SEARCH_PATTERN2, Original_SEARCH_PATTERN3, Original_SEARCH_PATTERN4, Original_SEARCH_PATTERN5, 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 _tBPMO_FORMTableAdapter As TBPMO_FORMTableAdapter Private _tBPMO_FORM_VIEWTableAdapter As TBPMO_FORM_VIEWTableAdapter Private _tBPMO_RECORDTableAdapter As TBPMO_RECORDTableAdapter Private _tBPMO_WD_FVIEW_DT_INDEXTableAdapter As TBPMO_WD_FVIEW_DT_INDEXTableAdapter Private _tBPMO_WORKFLOW_TASK_STATETableAdapter As TBPMO_WORKFLOW_TASK_STATETableAdapter Private _tBPMO_WORKFLOWTableAdapter As TBPMO_WORKFLOWTableAdapter Private _tBPMO_WORKFLOW_FORMTableAdapter As TBPMO_WORKFLOW_FORMTableAdapter Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter Private _tBDD_EINGANGSARTENTableAdapter As TBDD_EINGANGSARTENTableAdapter Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter Private _tBPMO_KONFIGURATIONTableAdapter As TBPMO_KONFIGURATIONTableAdapter Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter Private _tBPMO_FORM_TYPETableAdapter As TBPMO_FORM_TYPETableAdapter Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter Private _tBPMO_WD_OBJECTTYPETableAdapter As TBPMO_WD_OBJECTTYPETableAdapter Private _tBPMO_FILES_USERTableAdapter As TBPMO_FILES_USERTableAdapter Private _tBPMO_FOLLOW_UP_EMAILTableAdapter As TBPMO_FOLLOW_UP_EMAILTableAdapter Private _tBPMO_FOLLUPEMAIL_USERTableAdapter As TBPMO_FOLLUPEMAIL_USERTableAdapter Private _tBPMO_RECORD_LOG_CONFIGTableAdapter As TBPMO_RECORD_LOG_CONFIGTableAdapter Private _tBDD_EMAIL_ACCOUNTTableAdapter As TBDD_EMAIL_ACCOUNTTableAdapter Private _tBPMO_CONNECTIONTableAdapter As TBPMO_CONNECTIONTableAdapter Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property TBPMO_FORMTableAdapter() As TBPMO_FORMTableAdapter Get Return Me._tBPMO_FORMTableAdapter End Get Set Me._tBPMO_FORMTableAdapter = value End Set End Property _ Public Property TBPMO_FORM_VIEWTableAdapter() As TBPMO_FORM_VIEWTableAdapter Get Return Me._tBPMO_FORM_VIEWTableAdapter End Get Set Me._tBPMO_FORM_VIEWTableAdapter = value End Set End Property _ Public Property TBPMO_RECORDTableAdapter() As TBPMO_RECORDTableAdapter Get Return Me._tBPMO_RECORDTableAdapter End Get Set Me._tBPMO_RECORDTableAdapter = value End Set End Property _ Public Property TBPMO_WD_FVIEW_DT_INDEXTableAdapter() As TBPMO_WD_FVIEW_DT_INDEXTableAdapter Get Return Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter End Get Set Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter = value End Set End Property _ Public Property TBPMO_WORKFLOW_TASK_STATETableAdapter() As TBPMO_WORKFLOW_TASK_STATETableAdapter Get Return Me._tBPMO_WORKFLOW_TASK_STATETableAdapter End Get Set Me._tBPMO_WORKFLOW_TASK_STATETableAdapter = value End Set End Property _ Public Property TBPMO_WORKFLOWTableAdapter() As TBPMO_WORKFLOWTableAdapter Get Return Me._tBPMO_WORKFLOWTableAdapter End Get Set Me._tBPMO_WORKFLOWTableAdapter = value End Set End Property _ Public Property TBPMO_WORKFLOW_FORMTableAdapter() As TBPMO_WORKFLOW_FORMTableAdapter Get Return Me._tBPMO_WORKFLOW_FORMTableAdapter End Get Set Me._tBPMO_WORKFLOW_FORMTableAdapter = value End Set End Property _ Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter Get Return Me._tBDD_DOKUMENTARTTableAdapter End Get Set Me._tBDD_DOKUMENTARTTableAdapter = value End Set End Property _ Public Property TBDD_EINGANGSARTENTableAdapter() As TBDD_EINGANGSARTENTableAdapter Get Return Me._tBDD_EINGANGSARTENTableAdapter End Get Set Me._tBDD_EINGANGSARTENTableAdapter = value End Set End Property _ Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter Get Return Me._tBDD_INDEX_AUTOMTableAdapter End Get Set Me._tBDD_INDEX_AUTOMTableAdapter = value End Set End Property _ Public Property TBPMO_KONFIGURATIONTableAdapter() As TBPMO_KONFIGURATIONTableAdapter Get Return Me._tBPMO_KONFIGURATIONTableAdapter End Get Set Me._tBPMO_KONFIGURATIONTableAdapter = value End Set End Property _ Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter Get Return Me._tBDD_USERTableAdapter End Get Set Me._tBDD_USERTableAdapter = value End Set End Property _ Public Property TBPMO_FORM_TYPETableAdapter() As TBPMO_FORM_TYPETableAdapter Get Return Me._tBPMO_FORM_TYPETableAdapter End Get Set Me._tBPMO_FORM_TYPETableAdapter = value End Set End Property _ Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter Get Return Me._tBDD_USER_GROUPSTableAdapter End Get Set Me._tBDD_USER_GROUPSTableAdapter = value End Set End Property _ Public Property TBDD_GROUPS_USERTableAdapter() As TBDD_GROUPS_USERTableAdapter Get Return Me._tBDD_GROUPS_USERTableAdapter End Get Set Me._tBDD_GROUPS_USERTableAdapter = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter End Get Set Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value End Set End Property _ Public Property TBPMO_WD_OBJECTTYPETableAdapter() As TBPMO_WD_OBJECTTYPETableAdapter Get Return Me._tBPMO_WD_OBJECTTYPETableAdapter End Get Set Me._tBPMO_WD_OBJECTTYPETableAdapter = value End Set End Property _ Public Property TBPMO_FILES_USERTableAdapter() As TBPMO_FILES_USERTableAdapter Get Return Me._tBPMO_FILES_USERTableAdapter End Get Set Me._tBPMO_FILES_USERTableAdapter = value End Set End Property _ Public Property TBPMO_FOLLOW_UP_EMAILTableAdapter() As TBPMO_FOLLOW_UP_EMAILTableAdapter Get Return Me._tBPMO_FOLLOW_UP_EMAILTableAdapter End Get Set Me._tBPMO_FOLLOW_UP_EMAILTableAdapter = value End Set End Property _ Public Property TBPMO_FOLLUPEMAIL_USERTableAdapter() As TBPMO_FOLLUPEMAIL_USERTableAdapter Get Return Me._tBPMO_FOLLUPEMAIL_USERTableAdapter End Get Set Me._tBPMO_FOLLUPEMAIL_USERTableAdapter = value End Set End Property _ Public Property TBPMO_RECORD_LOG_CONFIGTableAdapter() As TBPMO_RECORD_LOG_CONFIGTableAdapter Get Return Me._tBPMO_RECORD_LOG_CONFIGTableAdapter End Get Set Me._tBPMO_RECORD_LOG_CONFIGTableAdapter = value End Set End Property _ Public Property TBDD_EMAIL_ACCOUNTTableAdapter() As TBDD_EMAIL_ACCOUNTTableAdapter Get Return Me._tBDD_EMAIL_ACCOUNTTableAdapter End Get Set Me._tBDD_EMAIL_ACCOUNTTableAdapter = value End Set End Property _ Public Property TBPMO_CONNECTIONTableAdapter() As TBPMO_CONNECTIONTableAdapter Get Return Me._tBPMO_CONNECTIONTableAdapter End Get Set Me._tBPMO_CONNECTIONTableAdapter = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter End Get Set Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._tBPMO_FORMTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORMTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORMTableAdapter.Connection End If If ((Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_VIEWTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_VIEWTableAdapter.Connection End If If ((Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_RECORDTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_RECORDTableAdapter.Connection End If If ((Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection End If If ((Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection End If If ((Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WORKFLOWTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WORKFLOWTableAdapter.Connection End If If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection End If If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_DOKUMENTARTTableAdapter.Connection End If If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_EINGANGSARTENTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_EINGANGSARTENTableAdapter.Connection End If If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection End If If ((Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_KONFIGURATIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_KONFIGURATIONTableAdapter.Connection End If If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_USERTableAdapter.Connection End If If ((Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_TYPETableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_TYPETableAdapter.Connection End If If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_USER_GROUPSTableAdapter.Connection End If If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_GROUPS_USERTableAdapter.Connection End If If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection End If If ((Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection End If If ((Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FILES_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FILES_USERTableAdapter.Connection End If If ((Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection End If If ((Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection End If If ((Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection End If If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection End If If ((Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_CONNECTIONTableAdapter.Connection End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSet, 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._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.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_EINGANGSARTENTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.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_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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_DOKUMENTARTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_RECORDTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.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_GROUPS_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.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_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_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._tBPMO_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.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_INDEX_AUTOMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_RECORDTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_FORMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_RECORDTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_TYPETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = false) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = false) Then Return 0 End If If ((Not (Me._tBPMO_FORMTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORMTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_VIEWTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RECORDTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOWTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_FORMTableAdapter.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_DOKUMENTARTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.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_EINGANGSARTENTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EINGANGSARTENTableAdapter.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_INDEX_AUTOMTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_KONFIGURATIONTableAdapter.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_USERTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_TYPETableAdapter.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_USER_GROUPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPS_USERTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FILES_USERTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_CONNECTIONTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ "t.") End If Dim workConnOpened As Boolean = false If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then workConnection.Open workConnOpened = true End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ "ion nicht zu.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() Dim result As Integer = 0 Dim backupDataSet As Global.System.Data.DataSet = Nothing If Me.BackupDataSetBeforeUpdate Then backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If Try '---- Prepare for update ----------- ' If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORMTableAdapter, Me._tBPMO_FORMTableAdapter.Connection) Me._tBPMO_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORMTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_VIEWTableAdapter, Me._tBPMO_FORM_VIEWTableAdapter.Connection) Me._tBPMO_FORM_VIEWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_VIEWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_VIEWTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_VIEWTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_VIEWTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_RECORDTableAdapter, Me._tBPMO_RECORDTableAdapter.Connection) Me._tBPMO_RECORDTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RECORDTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_RECORDTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_RECORDTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RECORDTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter, Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection) Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter, Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection) Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WORKFLOWTableAdapter, Me._tBPMO_WORKFLOWTableAdapter.Connection) Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WORKFLOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WORKFLOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOWTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter, Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter) End If End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) End If End If If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_EINGANGSARTENTableAdapter, Me._tBDD_EINGANGSARTENTableAdapter.Connection) Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_EINGANGSARTENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EINGANGSARTENTableAdapter.Adapter) End If End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_KONFIGURATIONTableAdapter, Me._tBPMO_KONFIGURATIONTableAdapter.Connection) Me._tBPMO_KONFIGURATIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_KONFIGURATIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_KONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_KONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_KONFIGURATIONTableAdapter.Adapter) End If End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_TYPETableAdapter, Me._tBPMO_FORM_TYPETableAdapter.Connection) Me._tBPMO_FORM_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_TYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_TYPETableAdapter.Adapter) End If End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection) Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_USER_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USER_GROUPSTableAdapter.Adapter) End If End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_GROUPS_USERTableAdapter, Me._tBDD_GROUPS_USERTableAdapter.Connection) Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GROUPS_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPS_USERTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WD_OBJECTTYPETableAdapter, Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection) Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_OBJECTTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_OBJECTTYPETableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FILES_USERTableAdapter, Me._tBPMO_FILES_USERTableAdapter.Connection) Me._tBPMO_FILES_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FILES_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FILES_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FILES_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FILES_USERTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter, Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection) Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter, Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection) Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter, Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection) Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Adapter) End If End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter, Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_CONNECTIONTableAdapter, Me._tBPMO_CONNECTIONTableAdapter.Connection) Me._tBPMO_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_CONNECTIONTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) End If End If ' '---- Perform updates ----------- ' If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) Else result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) End If result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) ' '---- Commit updates ----------- ' workTransaction.Commit If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If If (0 < allChangedRows.Count) Then Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow allChangedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges row.SetAdded i = (i + 1) Loop End If End If Throw ex Finally If workConnOpened Then workConnection.Close End If If (Not (Me._tBPMO_FORMTableAdapter) Is Nothing) Then Me._tBPMO_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORMTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then Me._tBPMO_FORM_VIEWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_VIEWTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_VIEWTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then Me._tBPMO_RECORDTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RECORDTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RECORDTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_TASK_STATETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOWTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(revertConnections(Me._tBDD_EINGANGSARTENTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_EINGANGSARTENTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then Me._tBPMO_KONFIGURATIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_KONFIGURATIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_KONFIGURATIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_USERTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_TYPETableAdapter) Is Nothing) Then Me._tBPMO_FORM_TYPETableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_TYPETableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GROUPS_USERTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then Me._tBPMO_WD_OBJECTTYPETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_OBJECTTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_OBJECTTYPETableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then Me._tBPMO_FILES_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FILES_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FILES_USERTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FOLLOW_UP_EMAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FOLLUPEMAIL_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RECORD_LOG_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection = CType(revertConnections(Me._tBDD_EMAIL_ACCOUNTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_EMAIL_ACCOUNTTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_CONNECTIONTableAdapter) Is Nothing) Then Me._tBPMO_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_CONNECTIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing End If If (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