'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.36366 ' ' Ä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 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_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 tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable Private tableTBPMO_TEMPLATE As TBPMO_TEMPLATEDataTable Private tableTBPMO_TEMPLATE_ENTITY As TBPMO_TEMPLATE_ENTITYDataTable Private tableTBPMO_TEMPLATE_PATTERN As TBPMO_TEMPLATE_PATTERNDataTable Private tableTBTEMP_QUICKDISPLAY As TBTEMP_QUICKDISPLAYDataTable Private tableTBPMO_LANGUAGE_OBJECT As TBPMO_LANGUAGE_OBJECTDataTable Private tableTBDD_CLIENT As TBDD_CLIENTDataTable Private tableTBPMO_CONSTRUCTOR_USER_SQL As TBPMO_CONSTRUCTOR_USER_SQLDataTable Private tableTBPMO_WD_IMPORT_PROFILE As TBPMO_WD_IMPORT_PROFILEDataTable Private tableTBPMO_WD_IMPORT_PROFILE_IDX As TBPMO_WD_IMPORT_PROFILE_IDXDataTable Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable Private tableTBPMO_RIGHT_GROUP As TBPMO_RIGHT_GROUPDataTable Private tableTBPMO_WD_NAMECONVENTION_FORMAT As TBPMO_WD_NAMECONVENTION_FORMATDataTable Private tableTBPMO_STRUCTURE_NODES_CONFIGURATION As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable Private tableTBWH_ENTITY As TBWH_ENTITYDataTable Private tableTBPMO_WORKFLOW_TASK_HISTORY As TBPMO_WORKFLOW_TASK_HISTORYDataTable Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable Private tableTBPMO_RIGHT_USER As TBPMO_RIGHT_USERDataTable Private tableTBPMO_RECORD_VARIANT As TBPMO_RECORD_VARIANTDataTable Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable Private relationFK_TBPMO_FORM_VIEW_FORM_ID 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 relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 As Global.System.Data.DataRelation Private relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_RIGHT_GROUP_GROUP_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID As Global.System.Data.DataRelation Private relationFK_TBPMO_FORM_VIEW_FORM_ID1 As Global.System.Data.DataRelation Private relationFK_TBPMO_RECORD_VARIANT_RECORD_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("TBPMO_FORM")) 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("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_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("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) End If If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) End If If (Not (ds.Tables("VWDDINDEX_AUTOM")) Is Nothing) Then MyBase.Tables.Add(New VWDDINDEX_AUTOMDataTable(ds.Tables("VWDDINDEX_AUTOM"))) End If If (Not (ds.Tables("TBPMO_TEMPLATE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_TEMPLATEDataTable(ds.Tables("TBPMO_TEMPLATE"))) End If If (Not (ds.Tables("TBPMO_TEMPLATE_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_TEMPLATE_ENTITYDataTable(ds.Tables("TBPMO_TEMPLATE_ENTITY"))) End If If (Not (ds.Tables("TBPMO_TEMPLATE_PATTERN")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_TEMPLATE_PATTERNDataTable(ds.Tables("TBPMO_TEMPLATE_PATTERN"))) End If If (Not (ds.Tables("TBTEMP_QUICKDISPLAY")) Is Nothing) Then MyBase.Tables.Add(New TBTEMP_QUICKDISPLAYDataTable(ds.Tables("TBTEMP_QUICKDISPLAY"))) End If If (Not (ds.Tables("TBPMO_LANGUAGE_OBJECT")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_LANGUAGE_OBJECTDataTable(ds.Tables("TBPMO_LANGUAGE_OBJECT"))) End If If (Not (ds.Tables("TBDD_CLIENT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CLIENTDataTable(ds.Tables("TBDD_CLIENT"))) End If If (Not (ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_CONSTRUCTOR_USER_SQLDataTable(ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL"))) End If If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILEDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE"))) End If If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILE_IDXDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX"))) 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("TBPMO_RIGHT_GROUP")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RIGHT_GROUPDataTable(ds.Tables("TBPMO_RIGHT_GROUP"))) End If If (Not (ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_NAMECONVENTION_FORMATDataTable(ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT"))) End If If (Not (ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable(ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION"))) End If If (Not (ds.Tables("TBWH_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New TBWH_ENTITYDataTable(ds.Tables("TBWH_ENTITY"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_HISTORYDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY"))) End If If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED"))) End If If (Not (ds.Tables("TBPMO_RIGHT_USER")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RIGHT_USERDataTable(ds.Tables("TBPMO_RIGHT_USER"))) End If If (Not (ds.Tables("TBPMO_RECORD_VARIANT")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RECORD_VARIANTDataTable(ds.Tables("TBPMO_RECORD_VARIANT"))) End If If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_APPOINTMENTSDataTable(ds.Tables("TBPMO_APPOINTMENTS"))) 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 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_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 TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable Get Return Me.tableTBDD_EMAIL_ACCOUNT End Get End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable Get Return Me.tableTBDD_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 ReadOnly Property VWDDINDEX_AUTOM() As VWDDINDEX_AUTOMDataTable Get Return Me.tableVWDDINDEX_AUTOM End Get End Property _ Public ReadOnly Property TBPMO_TEMPLATE() As TBPMO_TEMPLATEDataTable Get Return Me.tableTBPMO_TEMPLATE End Get End Property _ Public ReadOnly Property TBPMO_TEMPLATE_ENTITY() As TBPMO_TEMPLATE_ENTITYDataTable Get Return Me.tableTBPMO_TEMPLATE_ENTITY End Get End Property _ Public ReadOnly Property TBPMO_TEMPLATE_PATTERN() As TBPMO_TEMPLATE_PATTERNDataTable Get Return Me.tableTBPMO_TEMPLATE_PATTERN End Get End Property _ Public ReadOnly Property TBTEMP_QUICKDISPLAY() As TBTEMP_QUICKDISPLAYDataTable Get Return Me.tableTBTEMP_QUICKDISPLAY End Get End Property _ Public ReadOnly Property TBPMO_LANGUAGE_OBJECT() As TBPMO_LANGUAGE_OBJECTDataTable Get Return Me.tableTBPMO_LANGUAGE_OBJECT End Get End Property _ Public ReadOnly Property TBDD_CLIENT() As TBDD_CLIENTDataTable Get Return Me.tableTBDD_CLIENT End Get End Property _ Public ReadOnly Property TBPMO_CONSTRUCTOR_USER_SQL() As TBPMO_CONSTRUCTOR_USER_SQLDataTable Get Return Me.tableTBPMO_CONSTRUCTOR_USER_SQL End Get End Property _ Public ReadOnly Property TBPMO_WD_IMPORT_PROFILE() As TBPMO_WD_IMPORT_PROFILEDataTable Get Return Me.tableTBPMO_WD_IMPORT_PROFILE End Get End Property _ Public ReadOnly Property TBPMO_WD_IMPORT_PROFILE_IDX() As TBPMO_WD_IMPORT_PROFILE_IDXDataTable Get Return Me.tableTBPMO_WD_IMPORT_PROFILE_IDX 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 TBPMO_RIGHT_GROUP() As TBPMO_RIGHT_GROUPDataTable Get Return Me.tableTBPMO_RIGHT_GROUP End Get End Property _ Public ReadOnly Property TBPMO_WD_NAMECONVENTION_FORMAT() As TBPMO_WD_NAMECONVENTION_FORMATDataTable Get Return Me.tableTBPMO_WD_NAMECONVENTION_FORMAT End Get End Property _ Public ReadOnly Property TBPMO_STRUCTURE_NODES_CONFIGURATION() As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable Get Return Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION End Get End Property _ Public ReadOnly Property TBWH_ENTITY() As TBWH_ENTITYDataTable Get Return Me.tableTBWH_ENTITY End Get End Property _ Public ReadOnly Property TBPMO_WORKFLOW_TASK_HISTORY() As TBPMO_WORKFLOW_TASK_HISTORYDataTable Get Return Me.tableTBPMO_WORKFLOW_TASK_HISTORY End Get End Property _ Public ReadOnly Property VWPMO_RIGHTS_2B_WORKED() As VWPMO_RIGHTS_2B_WORKEDDataTable Get Return Me.tableVWPMO_RIGHTS_2B_WORKED End Get End Property _ Public ReadOnly Property TBPMO_RIGHT_USER() As TBPMO_RIGHT_USERDataTable Get Return Me.tableTBPMO_RIGHT_USER End Get End Property _ Public ReadOnly Property TBPMO_RECORD_VARIANT() As TBPMO_RECORD_VARIANTDataTable Get Return Me.tableTBPMO_RECORD_VARIANT End Get End Property _ Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable Get Return Me.tableTBPMO_APPOINTMENTS 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("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_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("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT"))) End If If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"))) End If If (Not (ds.Tables("VWDDINDEX_AUTOM")) Is Nothing) Then MyBase.Tables.Add(New VWDDINDEX_AUTOMDataTable(ds.Tables("VWDDINDEX_AUTOM"))) End If If (Not (ds.Tables("TBPMO_TEMPLATE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_TEMPLATEDataTable(ds.Tables("TBPMO_TEMPLATE"))) End If If (Not (ds.Tables("TBPMO_TEMPLATE_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_TEMPLATE_ENTITYDataTable(ds.Tables("TBPMO_TEMPLATE_ENTITY"))) End If If (Not (ds.Tables("TBPMO_TEMPLATE_PATTERN")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_TEMPLATE_PATTERNDataTable(ds.Tables("TBPMO_TEMPLATE_PATTERN"))) End If If (Not (ds.Tables("TBTEMP_QUICKDISPLAY")) Is Nothing) Then MyBase.Tables.Add(New TBTEMP_QUICKDISPLAYDataTable(ds.Tables("TBTEMP_QUICKDISPLAY"))) End If If (Not (ds.Tables("TBPMO_LANGUAGE_OBJECT")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_LANGUAGE_OBJECTDataTable(ds.Tables("TBPMO_LANGUAGE_OBJECT"))) End If If (Not (ds.Tables("TBDD_CLIENT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CLIENTDataTable(ds.Tables("TBDD_CLIENT"))) End If If (Not (ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_CONSTRUCTOR_USER_SQLDataTable(ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL"))) End If If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILEDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE"))) End If If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILE_IDXDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX"))) 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("TBPMO_RIGHT_GROUP")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RIGHT_GROUPDataTable(ds.Tables("TBPMO_RIGHT_GROUP"))) End If If (Not (ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WD_NAMECONVENTION_FORMATDataTable(ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT"))) End If If (Not (ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable(ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION"))) End If If (Not (ds.Tables("TBWH_ENTITY")) Is Nothing) Then MyBase.Tables.Add(New TBWH_ENTITYDataTable(ds.Tables("TBWH_ENTITY"))) End If If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_HISTORYDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY"))) End If If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED"))) End If If (Not (ds.Tables("TBPMO_RIGHT_USER")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RIGHT_USERDataTable(ds.Tables("TBPMO_RIGHT_USER"))) End If If (Not (ds.Tables("TBPMO_RECORD_VARIANT")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RECORD_VARIANTDataTable(ds.Tables("TBPMO_RECORD_VARIANT"))) End If If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_APPOINTMENTSDataTable(ds.Tables("TBPMO_APPOINTMENTS"))) 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.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_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.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.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then Me.tableTBDD_CONNECTION.InitVars End If End If Me.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.tableVWDDINDEX_AUTOM = CType(MyBase.Tables("VWDDINDEX_AUTOM"),VWDDINDEX_AUTOMDataTable) If (initTable = true) Then If (Not (Me.tableVWDDINDEX_AUTOM) Is Nothing) Then Me.tableVWDDINDEX_AUTOM.InitVars End If End If Me.tableTBPMO_TEMPLATE = CType(MyBase.Tables("TBPMO_TEMPLATE"),TBPMO_TEMPLATEDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_TEMPLATE) Is Nothing) Then Me.tableTBPMO_TEMPLATE.InitVars End If End If Me.tableTBPMO_TEMPLATE_ENTITY = CType(MyBase.Tables("TBPMO_TEMPLATE_ENTITY"),TBPMO_TEMPLATE_ENTITYDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_TEMPLATE_ENTITY) Is Nothing) Then Me.tableTBPMO_TEMPLATE_ENTITY.InitVars End If End If Me.tableTBPMO_TEMPLATE_PATTERN = CType(MyBase.Tables("TBPMO_TEMPLATE_PATTERN"),TBPMO_TEMPLATE_PATTERNDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_TEMPLATE_PATTERN) Is Nothing) Then Me.tableTBPMO_TEMPLATE_PATTERN.InitVars End If End If Me.tableTBTEMP_QUICKDISPLAY = CType(MyBase.Tables("TBTEMP_QUICKDISPLAY"),TBTEMP_QUICKDISPLAYDataTable) If (initTable = true) Then If (Not (Me.tableTBTEMP_QUICKDISPLAY) Is Nothing) Then Me.tableTBTEMP_QUICKDISPLAY.InitVars End If End If Me.tableTBPMO_LANGUAGE_OBJECT = CType(MyBase.Tables("TBPMO_LANGUAGE_OBJECT"),TBPMO_LANGUAGE_OBJECTDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_LANGUAGE_OBJECT) Is Nothing) Then Me.tableTBPMO_LANGUAGE_OBJECT.InitVars End If End If Me.tableTBDD_CLIENT = CType(MyBase.Tables("TBDD_CLIENT"),TBDD_CLIENTDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_CLIENT) Is Nothing) Then Me.tableTBDD_CLIENT.InitVars End If End If Me.tableTBPMO_CONSTRUCTOR_USER_SQL = CType(MyBase.Tables("TBPMO_CONSTRUCTOR_USER_SQL"),TBPMO_CONSTRUCTOR_USER_SQLDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_CONSTRUCTOR_USER_SQL) Is Nothing) Then Me.tableTBPMO_CONSTRUCTOR_USER_SQL.InitVars End If End If Me.tableTBPMO_WD_IMPORT_PROFILE = CType(MyBase.Tables("TBPMO_WD_IMPORT_PROFILE"),TBPMO_WD_IMPORT_PROFILEDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WD_IMPORT_PROFILE) Is Nothing) Then Me.tableTBPMO_WD_IMPORT_PROFILE.InitVars End If End If Me.tableTBPMO_WD_IMPORT_PROFILE_IDX = CType(MyBase.Tables("TBPMO_WD_IMPORT_PROFILE_IDX"),TBPMO_WD_IMPORT_PROFILE_IDXDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WD_IMPORT_PROFILE_IDX) Is Nothing) Then Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.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.tableTBPMO_RIGHT_GROUP = CType(MyBase.Tables("TBPMO_RIGHT_GROUP"),TBPMO_RIGHT_GROUPDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_RIGHT_GROUP) Is Nothing) Then Me.tableTBPMO_RIGHT_GROUP.InitVars End If End If Me.tableTBPMO_WD_NAMECONVENTION_FORMAT = CType(MyBase.Tables("TBPMO_WD_NAMECONVENTION_FORMAT"),TBPMO_WD_NAMECONVENTION_FORMATDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WD_NAMECONVENTION_FORMAT) Is Nothing) Then Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.InitVars End If End If Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION = CType(MyBase.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION"),TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION) Is Nothing) Then Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.InitVars End If End If Me.tableTBWH_ENTITY = CType(MyBase.Tables("TBWH_ENTITY"),TBWH_ENTITYDataTable) If (initTable = true) Then If (Not (Me.tableTBWH_ENTITY) Is Nothing) Then Me.tableTBWH_ENTITY.InitVars End If End If Me.tableTBPMO_WORKFLOW_TASK_HISTORY = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK_HISTORY"),TBPMO_WORKFLOW_TASK_HISTORYDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_WORKFLOW_TASK_HISTORY) Is Nothing) Then Me.tableTBPMO_WORKFLOW_TASK_HISTORY.InitVars End If End If Me.tableVWPMO_RIGHTS_2B_WORKED = CType(MyBase.Tables("VWPMO_RIGHTS_2B_WORKED"),VWPMO_RIGHTS_2B_WORKEDDataTable) If (initTable = true) Then If (Not (Me.tableVWPMO_RIGHTS_2B_WORKED) Is Nothing) Then Me.tableVWPMO_RIGHTS_2B_WORKED.InitVars End If End If Me.tableTBPMO_RIGHT_USER = CType(MyBase.Tables("TBPMO_RIGHT_USER"),TBPMO_RIGHT_USERDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_RIGHT_USER) Is Nothing) Then Me.tableTBPMO_RIGHT_USER.InitVars End If End If Me.tableTBPMO_RECORD_VARIANT = CType(MyBase.Tables("TBPMO_RECORD_VARIANT"),TBPMO_RECORD_VARIANTDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_RECORD_VARIANT) Is Nothing) Then Me.tableTBPMO_RECORD_VARIANT.InitVars End If End If Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"),TBPMO_APPOINTMENTSDataTable) If (initTable = true) Then If (Not (Me.tableTBPMO_APPOINTMENTS) Is Nothing) Then Me.tableTBPMO_APPOINTMENTS.InitVars End If End If Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID") 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") Me.relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID = Me.Relations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID") Me.relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID = Me.Relations("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID") Me.relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID = Me.Relations("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID") Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID = Me.Relations("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID") Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID = Me.Relations("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID") Me.relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 = Me.Relations("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1") Me.relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID = Me.Relations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID") Me.relationFK_TBPMO_RIGHT_GROUP_GROUP_ID = Me.Relations("FK_TBPMO_RIGHT_GROUP_GROUP_ID") Me.relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID = Me.Relations("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID") Me.relationFK_TBPMO_FORM_VIEW_FORM_ID1 = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID1") Me.relationFK_TBPMO_RECORD_VARIANT_RECORD_ID = Me.Relations("FK_TBPMO_RECORD_VARIANT_RECORD_ID") 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.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_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.tableTBDD_EMAIL_ACCOUNT = New TBDD_EMAIL_ACCOUNTDataTable() MyBase.Tables.Add(Me.tableTBDD_EMAIL_ACCOUNT) Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable() MyBase.Tables.Add(Me.tableTBDD_CONNECTION) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Me.tableVWDDINDEX_AUTOM = New VWDDINDEX_AUTOMDataTable() MyBase.Tables.Add(Me.tableVWDDINDEX_AUTOM) Me.tableTBPMO_TEMPLATE = New TBPMO_TEMPLATEDataTable() MyBase.Tables.Add(Me.tableTBPMO_TEMPLATE) Me.tableTBPMO_TEMPLATE_ENTITY = New TBPMO_TEMPLATE_ENTITYDataTable() MyBase.Tables.Add(Me.tableTBPMO_TEMPLATE_ENTITY) Me.tableTBPMO_TEMPLATE_PATTERN = New TBPMO_TEMPLATE_PATTERNDataTable() MyBase.Tables.Add(Me.tableTBPMO_TEMPLATE_PATTERN) Me.tableTBTEMP_QUICKDISPLAY = New TBTEMP_QUICKDISPLAYDataTable() MyBase.Tables.Add(Me.tableTBTEMP_QUICKDISPLAY) Me.tableTBPMO_LANGUAGE_OBJECT = New TBPMO_LANGUAGE_OBJECTDataTable() MyBase.Tables.Add(Me.tableTBPMO_LANGUAGE_OBJECT) Me.tableTBDD_CLIENT = New TBDD_CLIENTDataTable() MyBase.Tables.Add(Me.tableTBDD_CLIENT) Me.tableTBPMO_CONSTRUCTOR_USER_SQL = New TBPMO_CONSTRUCTOR_USER_SQLDataTable() MyBase.Tables.Add(Me.tableTBPMO_CONSTRUCTOR_USER_SQL) Me.tableTBPMO_WD_IMPORT_PROFILE = New TBPMO_WD_IMPORT_PROFILEDataTable() MyBase.Tables.Add(Me.tableTBPMO_WD_IMPORT_PROFILE) Me.tableTBPMO_WD_IMPORT_PROFILE_IDX = New TBPMO_WD_IMPORT_PROFILE_IDXDataTable() MyBase.Tables.Add(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX) Me.tableVWPMO_WF_ACTIVE = New VWPMO_WF_ACTIVEDataTable() MyBase.Tables.Add(Me.tableVWPMO_WF_ACTIVE) Me.tableTBPMO_RIGHT_GROUP = New TBPMO_RIGHT_GROUPDataTable() MyBase.Tables.Add(Me.tableTBPMO_RIGHT_GROUP) Me.tableTBPMO_WD_NAMECONVENTION_FORMAT = New TBPMO_WD_NAMECONVENTION_FORMATDataTable() MyBase.Tables.Add(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT) Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION = New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable() MyBase.Tables.Add(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION) Me.tableTBWH_ENTITY = New TBWH_ENTITYDataTable() MyBase.Tables.Add(Me.tableTBWH_ENTITY) Me.tableTBPMO_WORKFLOW_TASK_HISTORY = New TBPMO_WORKFLOW_TASK_HISTORYDataTable() MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK_HISTORY) Me.tableVWPMO_RIGHTS_2B_WORKED = New VWPMO_RIGHTS_2B_WORKEDDataTable() MyBase.Tables.Add(Me.tableVWPMO_RIGHTS_2B_WORKED) Me.tableTBPMO_RIGHT_USER = New TBPMO_RIGHT_USERDataTable() MyBase.Tables.Add(Me.tableTBPMO_RIGHT_USER) Me.tableTBPMO_RECORD_VARIANT = New TBPMO_RECORD_VARIANTDataTable() MyBase.Tables.Add(Me.tableTBPMO_RECORD_VARIANT) Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable() MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS) 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_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) Me.relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID = New Global.System.Data.DataRelation("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_ENTITY.ENTITY_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID) Me.relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID = New Global.System.Data.DataRelation("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_ENTITY.TEMPLATE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID) Me.relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID = New Global.System.Data.DataRelation("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_ENTITY.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_PATTERN.TEMPLATE_ENT_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID) Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID", New Global.System.Data.DataColumn() {Me.tableTBTEMP_QUICKDISPLAY.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID) Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID", New Global.System.Data.DataColumn() {Me.tableTBTEMP_QUICKDISPLAY.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID) Me.relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 = New Global.System.Data.DataRelation("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_IMPORT_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.PROFILE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1) Me.relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID = New Global.System.Data.DataRelation("FK_TBPMO_RIGHT_GROUP_ENTITY_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID) Me.relationFK_TBPMO_RIGHT_GROUP_GROUP_ID = New Global.System.Data.DataRelation("FK_TBPMO_RIGHT_GROUP_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_RIGHT_GROUP.GROUP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_RIGHT_GROUP_GROUP_ID) Me.relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID = New Global.System.Data.DataRelation("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ENTITY_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID) Me.relationFK_TBPMO_FORM_VIEW_FORM_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_FORM_VIEW_FORM_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBWH_ENTITY.FORM_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FORM_VIEW_FORM_ID1) Me.relationFK_TBPMO_RECORD_VARIANT_RECORD_ID = New Global.System.Data.DataRelation("FK_TBPMO_RECORD_VARIANT_RECORD_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD_VARIANT.RECORD_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_RECORD_VARIANT_RECORD_ID) 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 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_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 ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean Return false End Function _ Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_TEMPLATE() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_TEMPLATE_ENTITY() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_TEMPLATE_PATTERN() As Boolean Return false End Function _ Private Function ShouldSerializeTBTEMP_QUICKDISPLAY() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_LANGUAGE_OBJECT() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_CLIENT() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_CONSTRUCTOR_USER_SQL() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WD_IMPORT_PROFILE() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WD_IMPORT_PROFILE_IDX() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_RIGHT_GROUP() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WD_NAMECONVENTION_FORMAT() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_STRUCTURE_NODES_CONFIGURATION() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_ENTITY() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_HISTORY() As Boolean Return false End Function _ Private Function ShouldSerializeVWPMO_RIGHTS_2B_WORKED() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_RIGHT_USER() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_RECORD_VARIANT() As Boolean Return false End Function _ Private Function ShouldSerializeTBPMO_APPOINTMENTS() 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 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_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 TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) _ Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) _ Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent) _ Public Delegate Sub TBPMO_TEMPLATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATERowChangeEvent) _ Public Delegate Sub TBPMO_TEMPLATE_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATE_ENTITYRowChangeEvent) _ Public Delegate Sub TBPMO_TEMPLATE_PATTERNRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATE_PATTERNRowChangeEvent) _ Public Delegate Sub TBTEMP_QUICKDISPLAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_QUICKDISPLAYRowChangeEvent) _ Public Delegate Sub TBPMO_LANGUAGE_OBJECTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LANGUAGE_OBJECTRowChangeEvent) _ Public Delegate Sub TBDD_CLIENTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENTRowChangeEvent) _ Public Delegate Sub TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent) _ Public Delegate Sub TBPMO_WD_IMPORT_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILERowChangeEvent) _ Public Delegate Sub TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent) _ Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent) _ Public Delegate Sub TBPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_GROUPRowChangeEvent) _ Public Delegate Sub TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent) _ Public Delegate Sub TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent) _ Public Delegate Sub TBWH_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITYRowChangeEvent) _ Public Delegate Sub TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent) _ Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent) _ Public Delegate Sub TBPMO_RIGHT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_USERRowChangeEvent) _ Public Delegate Sub TBPMO_RECORD_VARIANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_VARIANTRowChangeEvent) _ Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent) ''' '''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 Private columnSINGLE_RECORD 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 SINGLE_RECORDColumn() As Global.System.Data.DataColumn Get Return Me.columnSINGLE_RECORD 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, ByVal SINGLE_RECORD As Boolean) 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, SINGLE_RECORD} 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") Me.columnSINGLE_RECORD = MyBase.Columns("SINGLE_RECORD") 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.columnSINGLE_RECORD = New Global.System.Data.DataColumn("SINGLE_RECORD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSINGLE_RECORD) 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 Me.columnSINGLE_RECORD.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 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.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.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 Private columnLANGUAGE 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 LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE 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, ByVal LANGUAGE 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, LANGUAGE} 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") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") 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.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) 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.columnSTATE_DESC.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOLOR.MaxLength = 20 Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.DefaultValue = CType("de-DE",String) Me.columnLANGUAGE.MaxLength = 5 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.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 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.MaxLength = 50 Me.columnEINGANGSART_ID.AllowDBNull = false Me.columnEINGANGSART_ID.DefaultValue = CType(1,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.DefaultValue = CType("NONE",String) Me.columnNAMENKONVENTION.MaxLength = 500 Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 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 Private columnSQL_ACTIVE As Global.System.Data.DataColumn Private columnSQL_RESULT As Global.System.Data.DataColumn Private columnENTITY_ID 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 SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ACTIVE End Get End Property _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property 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, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String, ByVal ENTITY_ID As Integer) 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, SQL_ACTIVE, SQL_RESULT, ENTITY_ID} 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") Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") Me.columnENTITY_ID = MyBase.Columns("ENTITY_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.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.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_ACTIVE) Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RESULT) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.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.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 Me.columnSQL_ACTIVE.AllowDBNull = false Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean) Me.columnSQL_RESULT.AllowDBNull = false Me.columnSQL_RESULT.DefaultValue = CType("",String) Me.columnSQL_RESULT.MaxLength = 2000 Me.columnENTITY_ID.AllowDBNull = false Me.columnENTITY_ID.DefaultValue = CType(0,Integer) 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 Private columnLANGUAGE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnSHORTNAME As Global.System.Data.DataColumn Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn Private columnDATE_FORMAT As Global.System.Data.DataColumn Private columnGENERAL_VIEWER 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 LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME End Get End Property _ Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnWAN_ENVIRONMENT End Get End Property _ Public ReadOnly Property DATE_FORMATColumn() As Global.System.Data.DataColumn Get Return Me.columnDATE_FORMAT End Get End Property _ Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGENERAL_VIEWER 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, _ ByVal LANGUAGE As String, _ ByVal COMMENT As String, _ ByVal SHORTNAME As String, _ ByVal WAN_ENVIRONMENT As Boolean, _ ByVal DATE_FORMAT As String, _ ByVal GENERAL_VIEWER As String) 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, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT, DATE_FORMAT, GENERAL_VIEWER} 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") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT") Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT") Me.columnGENERAL_VIEWER = MyBase.Columns("GENERAL_VIEWER") 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.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHORTNAME) Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT) Me.columnDATE_FORMAT = New Global.System.Data.DataColumn("DATE_FORMAT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATE_FORMAT) Me.columnGENERAL_VIEWER = New Global.System.Data.DataColumn("GENERAL_VIEWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGENERAL_VIEWER) 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 Me.columnRECORD_ADMIN.DefaultValue = CType(false,Boolean) Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.DefaultValue = CType("de-DE",String) Me.columnLANGUAGE.MaxLength = 5 Me.columnCOMMENT.MaxLength = 200 Me.columnSHORTNAME.MaxLength = 30 Me.columnWAN_ENVIRONMENT.AllowDBNull = false Me.columnWAN_ENVIRONMENT.DefaultValue = CType(false,Boolean) Me.columnDATE_FORMAT.AllowDBNull = false Me.columnDATE_FORMAT.DefaultValue = CType("dd.MM.yyyy",String) Me.columnDATE_FORMAT.MaxLength = 10 Me.columnGENERAL_VIEWER.AllowDBNull = false Me.columnGENERAL_VIEWER.DefaultValue = CType("NONE",String) Me.columnGENERAL_VIEWER.MaxLength = 30 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 Private columnCOMMENT 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 COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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, ByVal COMMENT As String) 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, COMMENT} 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") Me.columnCOMMENT = MyBase.Columns("COMMENT") 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.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) 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 Me.columnCOMMENT.MaxLength = 200 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 Private columnCOMMENT 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 COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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, ByVal COMMENT As String) 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, COMMENT} 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") Me.columnCOMMENT = MyBase.Columns("COMMENT") 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.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) 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 Me.columnCOMMENT.MaxLength = 200 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 Private columnLANGUAGE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_CONSTRUCTOR" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE End Get End Property _ Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_MENU End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_IMG End Get End Property _ Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORT_TITLE End Get End Property _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) End Get End Property _ Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE} rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) Return rowTBPMO_FORM_CONSTRUCTORRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTORDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE_MENU) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMENU_IMG) Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHORT_TITLE) Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORM_TITLE.MaxLength = 50 Me.columnSEQUENCE_MENU.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHORT_TITLE.MaxLength = 50 Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.DefaultValue = CType("de-DE",String) Me.columnLANGUAGE.MaxLength = 5 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 Private columnIDXNAME_RECORDID As Global.System.Data.DataColumn Private columnIDXNAME_DOCTYPE As Global.System.Data.DataColumn Private columnIDXNAME_RELATION 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 IDXNAME_RECORDIDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXNAME_RECORDID End Get End Property _ Public ReadOnly Property IDXNAME_DOCTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXNAME_DOCTYPE End Get End Property _ Public ReadOnly Property IDXNAME_RELATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXNAME_RELATION 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, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION 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, IDXNAME_RECORDID, IDXNAME_DOCTYPE, IDXNAME_RELATION} 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") Me.columnIDXNAME_RECORDID = MyBase.Columns("IDXNAME_RECORDID") Me.columnIDXNAME_DOCTYPE = MyBase.Columns("IDXNAME_DOCTYPE") Me.columnIDXNAME_RELATION = MyBase.Columns("IDXNAME_RELATION") 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.columnIDXNAME_RECORDID = New Global.System.Data.DataColumn("IDXNAME_RECORDID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDXNAME_RECORDID) Me.columnIDXNAME_DOCTYPE = New Global.System.Data.DataColumn("IDXNAME_DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDXNAME_DOCTYPE) Me.columnIDXNAME_RELATION = New Global.System.Data.DataColumn("IDXNAME_RELATION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDXNAME_RELATION) 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 Me.columnIDXNAME_RECORDID.MaxLength = 100 Me.columnIDXNAME_DOCTYPE.MaxLength = 100 Me.columnIDXNAME_RELATION.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_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 Private columnCONSTRUCTOR_ID As Global.System.Data.DataColumn Private columnCTRL_USER_DIRECT As Global.System.Data.DataColumn Private columnCTRL_GROUP_DIRECT 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 CONSTRUCTOR_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONSTRUCTOR_ID End Get End Property _ Public ReadOnly Property CTRL_USER_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_USER_DIRECT End Get End Property _ Public ReadOnly Property CTRL_GROUP_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_GROUP_DIRECT 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 parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID As TBTEMP_QUICKDISPLAYRow, _ ByVal parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID As TBTEMP_QUICKDISPLAYRow, _ 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, _ ByVal CONSTRUCTOR_ID As Integer, _ ByVal CTRL_USER_DIRECT As Integer, _ ByVal CTRL_GROUP_DIRECT As Integer) 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, Nothing, Nothing, 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, CONSTRUCTOR_ID, CTRL_USER_DIRECT, CTRL_GROUP_DIRECT} If (Not (parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID) Is Nothing) Then columnValuesArray(4) = parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID(0) End If If (Not (parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID) Is Nothing) Then columnValuesArray(5) = parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID(0) End If 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") Me.columnCONSTRUCTOR_ID = MyBase.Columns("CONSTRUCTOR_ID") Me.columnCTRL_USER_DIRECT = MyBase.Columns("CTRL_USER_DIRECT") Me.columnCTRL_GROUP_DIRECT = MyBase.Columns("CTRL_GROUP_DIRECT") 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.columnCONSTRUCTOR_ID = New Global.System.Data.DataColumn("CONSTRUCTOR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONSTRUCTOR_ID) Me.columnCTRL_USER_DIRECT = New Global.System.Data.DataColumn("CTRL_USER_DIRECT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRL_USER_DIRECT) Me.columnCTRL_GROUP_DIRECT = New Global.System.Data.DataColumn("CTRL_GROUP_DIRECT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCTRL_GROUP_DIRECT) 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.DefaultValue = CType("08:00",String) 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 Me.columnCONSTRUCTOR_ID.AllowDBNull = false Me.columnCTRL_USER_DIRECT.AllowDBNull = false Me.columnCTRL_USER_DIRECT.DefaultValue = CType(0,Integer) Me.columnCTRL_GROUP_DIRECT.AllowDBNull = false Me.columnCTRL_GROUP_DIRECT.DefaultValue = CType(0,Integer) 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.columnNAME.MaxLength = 100 Me.columnFORM_ID1.AutoIncrement = true Me.columnFORM_ID1.AutoIncrementSeed = -1 Me.columnFORM_ID1.AutoIncrementStep = -1 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 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 Private columnPORT 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 PORTColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT 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, ByVal PORT As Integer) 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, PORT} 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") Me.columnPORT = MyBase.Columns("PORT") 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.columnPORT = New Global.System.Data.DataColumn("PORT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPORT) 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.DefaultValue = CType("",String) Me.columnEMAIL_PW.MaxLength = 100 Me.columnACTIVE.AllowDBNull = false Me.columnACTIVE.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnPORT.AllowDBNull = false Me.columnPORT.DefaultValue = CType(25,Integer) 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 TBDD_CONNECTIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) Private columnGUID As Global.System.Data.DataColumn Private columnSQL_PROVIDER As Global.System.Data.DataColumn Private columnSERVER As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnPASSWORD As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnDATENBANK As Global.System.Data.DataColumn Private columnBEMERKUNG As Global.System.Data.DataColumn Private columnAKTIV As Global.System.Data.DataColumn Private columnERSTELLTWER As Global.System.Data.DataColumn Private columnERSTELLTWANN As Global.System.Data.DataColumn Private columnGEANDERTWER As Global.System.Data.DataColumn Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_CONNECTION" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property 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 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 BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG End Get End Property _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG End Get End Property _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV End Get End Property _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER End Get End Property _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN End Get End Property _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER End Get End Property _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get Return CType(Me.Rows(index),TBDD_CONNECTIONRow) End Get End Property _ Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_CONNECTIONRow(ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEZEICHNUNG As String, ByVal DATENBANK As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, SQL_PROVIDER, SERVER, USERNAME, PASSWORD, BEZEICHNUNG, DATENBANK, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow End Function _ Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") Me.columnSERVER = MyBase.Columns("SERVER") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnPASSWORD = MyBase.Columns("PASSWORD") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnDATENBANK = MyBase.Columns("DATENBANK") Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") Me.columnAKTIV = MyBase.Columns("AKTIV") Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.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.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.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATENBANK) Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEMERKUNG) Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTIV) Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERSTELLTWER) Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERSTELLTWANN) Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEANDERTWER) Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEAENDERTWANN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnSQL_PROVIDER.MaxLength = 100 Me.columnSERVER.MaxLength = 150 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnDATENBANK.MaxLength = 100 Me.columnBEMERKUNG.MaxLength = 400 Me.columnAKTIV.AllowDBNull = false Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnERSTELLTWANN.AllowDBNull = false Me.columnGEANDERTWER.MaxLength = 50 End Sub _ Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Return CType(Me.NewRow,TBDD_CONNECTIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CONNECTIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_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_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 Private columnLOAD_DIRECT As Global.System.Data.DataColumn Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn Private columnCONTROL_DOCTYPE_MATCH As Global.System.Data.DataColumn _ 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 LOAD_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_DIRECT End Get End Property _ Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_QUICK_VIEW End Get End Property _ Public ReadOnly Property CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_DOCTYPE_MATCH End Get End Property _ Public ReadOnly Property 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, _ ByVal LOAD_DIRECT As Boolean, _ ByVal SQL_QUICK_VIEW As String, _ ByVal CONTROL_DOCTYPE_MATCH As Integer) 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, LOAD_DIRECT, SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH} 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") Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") Me.columnCONTROL_DOCTYPE_MATCH = MyBase.Columns("CONTROL_DOCTYPE_MATCH") 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.columnLOAD_DIRECT = New Global.System.Data.DataColumn("LOAD_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOAD_DIRECT) Me.columnSQL_QUICK_VIEW = New Global.System.Data.DataColumn("SQL_QUICK_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_QUICK_VIEW) Me.columnCONTROL_DOCTYPE_MATCH = New Global.System.Data.DataColumn("CONTROL_DOCTYPE_MATCH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONTROL_DOCTYPE_MATCH) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnCONSTRUCT_ID.AllowDBNull = false Me.columnFORM_ID.AllowDBNull = false Me.columnPARENT_ID.AllowDBNull = false Me.columnPARENT_ID.DefaultValue = CType(0,Integer) 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.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 Me.columnLOAD_DIRECT.AllowDBNull = false Me.columnSQL_QUICK_VIEW.AllowDBNull = false Me.columnSQL_QUICK_VIEW.MaxLength = 2147483647 Me.columnCONTROL_DOCTYPE_MATCH.AllowDBNull = false Me.columnCONTROL_DOCTYPE_MATCH.DefaultValue = CType(0,Integer) 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 the strongly named DataTable class. ''' _ Partial Public Class VWDDINDEX_AUTOMDataTable Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_AUTOMRow) Private columnGUID As Global.System.Data.DataColumn Private columnINDEXNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDOCTYPE_ID As Global.System.Data.DataColumn Private columnDOKUMENTART As Global.System.Data.DataColumn Private columnKURZNAME As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnCONNECTION As Global.System.Data.DataColumn Private columnSQL_PROVIDER As Global.System.Data.DataColumn Private columnSERVER As Global.System.Data.DataColumn Private columnDATENBANK As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnPASSWORD As Global.System.Data.DataColumn Private columnSQL_RESULT As Global.System.Data.DataColumn Private columnSQL_ACTIVE As Global.System.Data.DataColumn Private columnVALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWDDINDEX_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 INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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 DOKUMENTARTColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART End Get End Property _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME 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 CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION End Get End Property _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD End Get End Property _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT End Get End Property _ Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ACTIVE End Get End Property _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_AUTOMRow Get Return CType(Me.Rows(index),VWDDINDEX_AUTOMRow) End Get End Property _ Public Event VWDDINDEX_AUTOMRowChanging As VWDDINDEX_AUTOMRowChangeEventHandler _ Public Event VWDDINDEX_AUTOMRowChanged As VWDDINDEX_AUTOMRowChangeEventHandler _ Public Event VWDDINDEX_AUTOMRowDeleting As VWDDINDEX_AUTOMRowChangeEventHandler _ Public Event VWDDINDEX_AUTOMRowDeleted As VWDDINDEX_AUTOMRowChangeEventHandler _ Public Overloads Sub AddVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWDDINDEX_AUTOMRow( _ ByVal GUID As Integer, _ ByVal INDEXNAME As String, _ ByVal COMMENT As String, _ ByVal DOCTYPE_ID As Integer, _ ByVal DOKUMENTART As String, _ ByVal KURZNAME As String, _ ByVal CONNECTION_ID As Short, _ ByVal CONNECTION As String, _ ByVal SQL_PROVIDER As String, _ ByVal SERVER As String, _ ByVal DATENBANK As String, _ ByVal USERNAME As String, _ ByVal PASSWORD As String, _ ByVal SQL_RESULT As String, _ ByVal SQL_ACTIVE As Boolean, _ ByVal VALUE As String) As VWDDINDEX_AUTOMRow Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow) Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_ACTIVE, VALUE} rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWDDINDEX_AUTOMRow) Return rowVWDDINDEX_AUTOMRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_AUTOMRow Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_AUTOMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone,VWDDINDEX_AUTOMDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWDDINDEX_AUTOMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") Me.columnDOKUMENTART = MyBase.Columns("DOKUMENTART") Me.columnKURZNAME = MyBase.Columns("KURZNAME") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnCONNECTION = MyBase.Columns("CONNECTION") Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") Me.columnSERVER = MyBase.Columns("SERVER") Me.columnDATENBANK = MyBase.Columns("DATENBANK") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnPASSWORD = MyBase.Columns("PASSWORD") Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") Me.columnVALUE = MyBase.Columns("VALUE") 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.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) 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.columnDOKUMENTART = New Global.System.Data.DataColumn("DOKUMENTART", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOKUMENTART) Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnKURZNAME) 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.columnCONNECTION = New Global.System.Data.DataColumn("CONNECTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONNECTION) Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_PROVIDER) Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSERVER) Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATENBANK) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPASSWORD) Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_RESULT) Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_ACTIVE) Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) 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.columnINDEXNAME.AllowDBNull = false Me.columnINDEXNAME.MaxLength = 50 Me.columnCOMMENT.MaxLength = 400 Me.columnDOCTYPE_ID.AllowDBNull = false Me.columnDOKUMENTART.AllowDBNull = false Me.columnDOKUMENTART.MaxLength = 50 Me.columnKURZNAME.AllowDBNull = false Me.columnKURZNAME.MaxLength = 50 Me.columnCONNECTION_ID.AllowDBNull = false Me.columnCONNECTION.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 Me.columnDATENBANK.MaxLength = 100 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnSQL_RESULT.AllowDBNull = false Me.columnSQL_RESULT.MaxLength = 2000 Me.columnSQL_ACTIVE.AllowDBNull = false Me.columnVALUE.MaxLength = 2000 End Sub _ Public Function NewVWDDINDEX_AUTOMRow() As VWDDINDEX_AUTOMRow Return CType(Me.NewRow,VWDDINDEX_AUTOMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWDDINDEX_AUTOMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWDDINDEX_AUTOMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWDDINDEX_AUTOMRowChangedEvent) Is Nothing) Then RaiseEvent VWDDINDEX_AUTOMRowChanged(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWDDINDEX_AUTOMRowChangingEvent) Is Nothing) Then RaiseEvent VWDDINDEX_AUTOMRowChanging(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWDDINDEX_AUTOMRowDeletedEvent) Is Nothing) Then RaiseEvent VWDDINDEX_AUTOMRowDeleted(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWDDINDEX_AUTOMRowDeletingEvent) Is Nothing) Then RaiseEvent VWDDINDEX_AUTOMRowDeleting(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub _ Public Sub RemoveVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_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 = "VWDDINDEX_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_TEMPLATEDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATERow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnTEMPLATE_PATH 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 columnDOCTYPE_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_TEMPLATE" 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 TEMPLATE_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_PATH 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 DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_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_TEMPLATERow Get Return CType(Me.Rows(index),TBPMO_TEMPLATERow) End Get End Property _ Public Event TBPMO_TEMPLATERowChanging As TBPMO_TEMPLATERowChangeEventHandler _ Public Event TBPMO_TEMPLATERowChanged As TBPMO_TEMPLATERowChangeEventHandler _ Public Event TBPMO_TEMPLATERowDeleting As TBPMO_TEMPLATERowChangeEventHandler _ Public Event TBPMO_TEMPLATERowDeleted As TBPMO_TEMPLATERowChangeEventHandler _ Public Overloads Sub AddTBPMO_TEMPLATERow(ByVal row As TBPMO_TEMPLATERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_TEMPLATERow(ByVal NAME As String, ByVal TEMPLATE_PATH 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 DOCTYPE_ID As Integer) As TBPMO_TEMPLATERow Dim rowTBPMO_TEMPLATERow As TBPMO_TEMPLATERow = CType(Me.NewRow,TBPMO_TEMPLATERow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TEMPLATE_PATH, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DOCTYPE_ID} rowTBPMO_TEMPLATERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_TEMPLATERow) Return rowTBPMO_TEMPLATERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_TEMPLATEDataTable = CType(MyBase.Clone,TBPMO_TEMPLATEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_TEMPLATEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnTEMPLATE_PATH = MyBase.Columns("TEMPLATE_PATH") 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.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnTEMPLATE_PATH = New Global.System.Data.DataColumn("TEMPLATE_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTEMPLATE_PATH) 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.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOCTYPE_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.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 Me.columnTEMPLATE_PATH.AllowDBNull = false Me.columnTEMPLATE_PATH.MaxLength = 1000 Me.columnACTIVE.AllowDBNull = false Me.columnACTIVE.DefaultValue = CType(true,Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnDOCTYPE_ID.AllowDBNull = false End Sub _ Public Function NewTBPMO_TEMPLATERow() As TBPMO_TEMPLATERow Return CType(Me.NewRow,TBPMO_TEMPLATERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_TEMPLATERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_TEMPLATERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_TEMPLATERowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATERowChanged(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_TEMPLATERowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATERowChanging(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_TEMPLATERowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATERowDeleted(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_TEMPLATERowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATERowDeleting(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_TEMPLATERow(ByVal row As TBPMO_TEMPLATERow) 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_TEMPLATEDataTable" 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_TEMPLATE_ENTITYDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATE_ENTITYRow) Private columnGUID As Global.System.Data.DataColumn Private columnTEMPLATE_ID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_TEMPLATE_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 GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property TEMPLATE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_ID End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property 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_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_TEMPLATE_ENTITYRow Get Return CType(Me.Rows(index),TBPMO_TEMPLATE_ENTITYRow) End Get End Property _ Public Event TBPMO_TEMPLATE_ENTITYRowChanging As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ Public Event TBPMO_TEMPLATE_ENTITYRowChanged As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ Public Event TBPMO_TEMPLATE_ENTITYRowDeleting As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ Public Event TBPMO_TEMPLATE_ENTITYRowDeleted As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ Public Overloads Sub AddTBPMO_TEMPLATE_ENTITYRow(ByVal row As TBPMO_TEMPLATE_ENTITYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_TEMPLATE_ENTITYRow(ByVal parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID As TBPMO_TEMPLATERow, ByVal parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID As TBPMO_FORMRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As TBPMO_TEMPLATE_ENTITYRow Dim rowTBPMO_TEMPLATE_ENTITYRow As TBPMO_TEMPLATE_ENTITYRow = CType(Me.NewRow,TBPMO_TEMPLATE_ENTITYRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN} If (Not (parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID(0) End If If (Not (parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID) Is Nothing) Then columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID(0) End If rowTBPMO_TEMPLATE_ENTITYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_TEMPLATE_ENTITYRow) Return rowTBPMO_TEMPLATE_ENTITYRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATE_ENTITYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATE_ENTITYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_TEMPLATE_ENTITYDataTable = CType(MyBase.Clone,TBPMO_TEMPLATE_ENTITYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_TEMPLATE_ENTITYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnTEMPLATE_ID = New Global.System.Data.DataColumn("TEMPLATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTEMPLATE_ID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.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_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.columnTEMPLATE_ID.AllowDBNull = false Me.columnENTITY_ID.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_TEMPLATE_ENTITYRow() As TBPMO_TEMPLATE_ENTITYRow Return CType(Me.NewRow,TBPMO_TEMPLATE_ENTITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_TEMPLATE_ENTITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_TEMPLATE_ENTITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_TEMPLATE_ENTITYRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_ENTITYRowChanged(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_TEMPLATE_ENTITYRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_ENTITYRowChanging(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_TEMPLATE_ENTITYRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_ENTITYRowDeleted(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_TEMPLATE_ENTITYRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_ENTITYRowDeleting(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_TEMPLATE_ENTITYRow(ByVal row As TBPMO_TEMPLATE_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 = "TBPMO_TEMPLATE_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_TEMPLATE_PATTERNDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATE_PATTERNRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME_PATTERN As Global.System.Data.DataColumn Private columnFIXED_VALUE As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnSQL_COMMAND 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 columnTEMPLATE_ENT_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_TEMPLATE_PATTERN" 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 NAME_PATTERNColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME_PATTERN End Get End Property _ Public ReadOnly Property FIXED_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnFIXED_VALUE 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 SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND 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 TEMPLATE_ENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTEMPLATE_ENT_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_TEMPLATE_PATTERNRow Get Return CType(Me.Rows(index),TBPMO_TEMPLATE_PATTERNRow) End Get End Property _ Public Event TBPMO_TEMPLATE_PATTERNRowChanging As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ Public Event TBPMO_TEMPLATE_PATTERNRowChanged As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ Public Event TBPMO_TEMPLATE_PATTERNRowDeleting As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ Public Event TBPMO_TEMPLATE_PATTERNRowDeleted As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ Public Overloads Sub AddTBPMO_TEMPLATE_PATTERNRow(ByVal row As TBPMO_TEMPLATE_PATTERNRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_TEMPLATE_PATTERNRow(ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Integer, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID As TBPMO_TEMPLATE_ENTITYRow) As TBPMO_TEMPLATE_PATTERNRow Dim rowTBPMO_TEMPLATE_PATTERNRow As TBPMO_TEMPLATE_PATTERNRow = CType(Me.NewRow,TBPMO_TEMPLATE_PATTERNRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing} If (Not (parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID) Is Nothing) Then columnValuesArray(9) = parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID(0) End If rowTBPMO_TEMPLATE_PATTERNRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_TEMPLATE_PATTERNRow) Return rowTBPMO_TEMPLATE_PATTERNRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATE_PATTERNRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATE_PATTERNRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_TEMPLATE_PATTERNDataTable = CType(MyBase.Clone,TBPMO_TEMPLATE_PATTERNDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_TEMPLATE_PATTERNDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME_PATTERN = MyBase.Columns("NAME_PATTERN") Me.columnFIXED_VALUE = MyBase.Columns("FIXED_VALUE") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") 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.columnTEMPLATE_ENT_ID = MyBase.Columns("TEMPLATE_ENT_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.columnNAME_PATTERN = New Global.System.Data.DataColumn("NAME_PATTERN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME_PATTERN) Me.columnFIXED_VALUE = New Global.System.Data.DataColumn("FIXED_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFIXED_VALUE) Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONNECTION_ID) Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_COMMAND) Me.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.columnTEMPLATE_ENT_ID = New Global.System.Data.DataColumn("TEMPLATE_ENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTEMPLATE_ENT_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.columnNAME_PATTERN.AllowDBNull = false Me.columnNAME_PATTERN.MaxLength = 100 Me.columnFIXED_VALUE.MaxLength = 100 Me.columnSQL_COMMAND.MaxLength = 2000 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnTEMPLATE_ENT_ID.AllowDBNull = false End Sub _ Public Function NewTBPMO_TEMPLATE_PATTERNRow() As TBPMO_TEMPLATE_PATTERNRow Return CType(Me.NewRow,TBPMO_TEMPLATE_PATTERNRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_TEMPLATE_PATTERNRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_TEMPLATE_PATTERNRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_TEMPLATE_PATTERNRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_PATTERNRowChanged(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_TEMPLATE_PATTERNRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_PATTERNRowChanging(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_TEMPLATE_PATTERNRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_PATTERNRowDeleted(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_TEMPLATE_PATTERNRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_TEMPLATE_PATTERNRowDeleting(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_TEMPLATE_PATTERNRow(ByVal row As TBPMO_TEMPLATE_PATTERNRow) 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_TEMPLATE_PATTERNDataTable" 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 TBTEMP_QUICKDISPLAYDataTable Inherits Global.System.Data.TypedTableBase(Of TBTEMP_QUICKDISPLAYRow) Private columnGUID As Global.System.Data.DataColumn Private columnCOL_NAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBTEMP_QUICKDISPLAY" 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 COL_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCOL_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 TBTEMP_QUICKDISPLAYRow Get Return CType(Me.Rows(index),TBTEMP_QUICKDISPLAYRow) End Get End Property _ Public Event TBTEMP_QUICKDISPLAYRowChanging As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ Public Event TBTEMP_QUICKDISPLAYRowChanged As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ Public Event TBTEMP_QUICKDISPLAYRowDeleting As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ Public Event TBTEMP_QUICKDISPLAYRowDeleted As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ Public Overloads Sub AddTBTEMP_QUICKDISPLAYRow(ByVal row As TBTEMP_QUICKDISPLAYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBTEMP_QUICKDISPLAYRow(ByVal COL_NAME As String) As TBTEMP_QUICKDISPLAYRow Dim rowTBTEMP_QUICKDISPLAYRow As TBTEMP_QUICKDISPLAYRow = CType(Me.NewRow,TBTEMP_QUICKDISPLAYRow) Dim columnValuesArray() As Object = New Object() {Nothing, COL_NAME} rowTBTEMP_QUICKDISPLAYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBTEMP_QUICKDISPLAYRow) Return rowTBTEMP_QUICKDISPLAYRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBTEMP_QUICKDISPLAYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBTEMP_QUICKDISPLAYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBTEMP_QUICKDISPLAYDataTable = CType(MyBase.Clone,TBTEMP_QUICKDISPLAYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBTEMP_QUICKDISPLAYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCOL_NAME = MyBase.Columns("COL_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.columnCOL_NAME = New Global.System.Data.DataColumn("COL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOL_NAME) 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.columnCOL_NAME.AllowDBNull = false Me.columnCOL_NAME.MaxLength = 100 End Sub _ Public Function NewTBTEMP_QUICKDISPLAYRow() As TBTEMP_QUICKDISPLAYRow Return CType(Me.NewRow,TBTEMP_QUICKDISPLAYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBTEMP_QUICKDISPLAYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBTEMP_QUICKDISPLAYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBTEMP_QUICKDISPLAYRowChangedEvent) Is Nothing) Then RaiseEvent TBTEMP_QUICKDISPLAYRowChanged(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBTEMP_QUICKDISPLAYRowChangingEvent) Is Nothing) Then RaiseEvent TBTEMP_QUICKDISPLAYRowChanging(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBTEMP_QUICKDISPLAYRowDeletedEvent) Is Nothing) Then RaiseEvent TBTEMP_QUICKDISPLAYRowDeleted(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBTEMP_QUICKDISPLAYRowDeletingEvent) Is Nothing) Then RaiseEvent TBTEMP_QUICKDISPLAYRowDeleting(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub _ Public Sub RemoveTBTEMP_QUICKDISPLAYRow(ByVal row As TBTEMP_QUICKDISPLAYRow) 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 = "TBTEMP_QUICKDISPLAYDataTable" 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_LANGUAGE_OBJECTDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_LANGUAGE_OBJECTRow) Private columnGUID As Global.System.Data.DataColumn Private columnLANGUAGE_TYPE As Global.System.Data.DataColumn Private columnSCREEN_ID As Global.System.Data.DataColumn Private columnPMO_OBJECT_NAME As Global.System.Data.DataColumn Private columnCAPTION As Global.System.Data.DataColumn Private columnHINT 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_LANGUAGE_OBJECT" 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 LANGUAGE_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE_TYPE 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 PMO_OBJECT_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPMO_OBJECT_NAME End Get End Property _ Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCAPTION End Get End Property _ Public ReadOnly Property HINTColumn() As Global.System.Data.DataColumn Get Return Me.columnHINT 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_LANGUAGE_OBJECTRow Get Return CType(Me.Rows(index),TBPMO_LANGUAGE_OBJECTRow) End Get End Property _ Public Event TBPMO_LANGUAGE_OBJECTRowChanging As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ Public Event TBPMO_LANGUAGE_OBJECTRowChanged As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ Public Event TBPMO_LANGUAGE_OBJECTRowDeleting As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ Public Event TBPMO_LANGUAGE_OBJECTRowDeleted As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ Public Overloads Sub AddTBPMO_LANGUAGE_OBJECTRow(ByVal row As TBPMO_LANGUAGE_OBJECTRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_LANGUAGE_OBJECTRow(ByVal LANGUAGE_TYPE As String, ByVal SCREEN_ID As Integer, ByVal PMO_OBJECT_NAME As String, ByVal CAPTION As String, ByVal HINT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_LANGUAGE_OBJECTRow Dim rowTBPMO_LANGUAGE_OBJECTRow As TBPMO_LANGUAGE_OBJECTRow = CType(Me.NewRow,TBPMO_LANGUAGE_OBJECTRow) Dim columnValuesArray() As Object = New Object() {Nothing, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_LANGUAGE_OBJECTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_LANGUAGE_OBJECTRow) Return rowTBPMO_LANGUAGE_OBJECTRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_LANGUAGE_OBJECTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_LANGUAGE_OBJECTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_LANGUAGE_OBJECTDataTable = CType(MyBase.Clone,TBPMO_LANGUAGE_OBJECTDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_LANGUAGE_OBJECTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnLANGUAGE_TYPE = MyBase.Columns("LANGUAGE_TYPE") Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") Me.columnPMO_OBJECT_NAME = MyBase.Columns("PMO_OBJECT_NAME") Me.columnCAPTION = MyBase.Columns("CAPTION") Me.columnHINT = MyBase.Columns("HINT") 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.columnLANGUAGE_TYPE = New Global.System.Data.DataColumn("LANGUAGE_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE_TYPE) 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.columnPMO_OBJECT_NAME = New Global.System.Data.DataColumn("PMO_OBJECT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPMO_OBJECT_NAME) Me.columnCAPTION = New Global.System.Data.DataColumn("CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCAPTION) Me.columnHINT = New Global.System.Data.DataColumn("HINT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHINT) 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.columnLANGUAGE_TYPE.AllowDBNull = false Me.columnLANGUAGE_TYPE.MaxLength = 5 Me.columnSCREEN_ID.AllowDBNull = false Me.columnPMO_OBJECT_NAME.AllowDBNull = false Me.columnPMO_OBJECT_NAME.MaxLength = 100 Me.columnCAPTION.AllowDBNull = false Me.columnCAPTION.MaxLength = 100 Me.columnHINT.MaxLength = 500 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_LANGUAGE_OBJECTRow() As TBPMO_LANGUAGE_OBJECTRow Return CType(Me.NewRow,TBPMO_LANGUAGE_OBJECTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_LANGUAGE_OBJECTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_LANGUAGE_OBJECTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_LANGUAGE_OBJECTRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_LANGUAGE_OBJECTRowChanged(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_LANGUAGE_OBJECTRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_LANGUAGE_OBJECTRowChanging(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_LANGUAGE_OBJECTRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_LANGUAGE_OBJECTRowDeleted(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_LANGUAGE_OBJECTRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_LANGUAGE_OBJECTRowDeleting(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_LANGUAGE_OBJECTRow(ByVal row As TBPMO_LANGUAGE_OBJECTRow) 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_LANGUAGE_OBJECTDataTable" 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_CLIENTDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) Private columnGUID As Global.System.Data.DataColumn Private columnCLIENT_NAME As Global.System.Data.DataColumn Private columnSHORTNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_CLIENT" 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 CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_NAME End Get End Property _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow Get Return CType(Me.Rows(index),TBDD_CLIENTRow) End Get End Property _ Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler _ Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler _ Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler _ Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler _ Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_CLIENTRow(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_CLIENTRow Dim rowTBDD_CLIENTRow As TBDD_CLIENTRow = CType(Me.NewRow,TBDD_CLIENTRow) Dim columnValuesArray() As Object = New Object() {Nothing, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBDD_CLIENTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CLIENTRow) Return rowTBDD_CLIENTRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CLIENTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnCLIENT_NAME = New Global.System.Data.DataColumn("CLIENT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCLIENT_NAME) Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSHORTNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnCLIENT_NAME.AllowDBNull = false Me.columnCLIENT_NAME.MaxLength = 50 Me.columnSHORTNAME.MaxLength = 30 Me.columnCOMMENT.MaxLength = 200 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow Return CType(Me.NewRow,TBDD_CLIENTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CLIENTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CLIENTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) 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_CLIENTDataTable" 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_CONSTRUCTOR_USER_SQLDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_CONSTRUCTOR_USER_SQLRow) Private columnGUID As Global.System.Data.DataColumn Private columnSQL_COMMAND 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 columnCONSTR_DET_ID As Global.System.Data.DataColumn Private columnUSER_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_CONSTRUCTOR_USER_SQL" 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 SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND 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 CONSTR_DET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONSTR_DET_ID End Get End Property _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow Get Return CType(Me.Rows(index),TBPMO_CONSTRUCTOR_USER_SQLRow) End Get End Property _ Public Event TBPMO_CONSTRUCTOR_USER_SQLRowChanging As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ Public Event TBPMO_CONSTRUCTOR_USER_SQLRowChanged As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ Public Event TBPMO_CONSTRUCTOR_USER_SQLRowDeleting As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ Public Event TBPMO_CONSTRUCTOR_USER_SQLRowDeleted As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ Public Overloads Sub AddTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONSTR_DET_ID As Integer, ByVal USER_ID As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow Dim rowTBPMO_CONSTRUCTOR_USER_SQLRow As TBPMO_CONSTRUCTOR_USER_SQLRow = CType(Me.NewRow,TBPMO_CONSTRUCTOR_USER_SQLRow) Dim columnValuesArray() As Object = New Object() {Nothing, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CONSTR_DET_ID, USER_ID} rowTBPMO_CONSTRUCTOR_USER_SQLRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_CONSTRUCTOR_USER_SQLRow) Return rowTBPMO_CONSTRUCTOR_USER_SQLRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_CONSTRUCTOR_USER_SQLRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_CONSTRUCTOR_USER_SQLDataTable = CType(MyBase.Clone,TBPMO_CONSTRUCTOR_USER_SQLDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_CONSTRUCTOR_USER_SQLDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") 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.columnCONSTR_DET_ID = MyBase.Columns("CONSTR_DET_ID") Me.columnUSER_ID = MyBase.Columns("USER_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.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_COMMAND) 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.columnCONSTR_DET_ID = New Global.System.Data.DataColumn("CONSTR_DET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONSTR_DET_ID) Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_ID) Me.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.columnSQL_COMMAND.MaxLength = 4000 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCONSTR_DET_ID.AllowDBNull = false Me.columnUSER_ID.AllowDBNull = false End Sub _ Public Function NewTBPMO_CONSTRUCTOR_USER_SQLRow() As TBPMO_CONSTRUCTOR_USER_SQLRow Return CType(Me.NewRow,TBPMO_CONSTRUCTOR_USER_SQLRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_CONSTRUCTOR_USER_SQLRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_CONSTRUCTOR_USER_SQLRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowChanged(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowChanging(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowDeleted(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowDeleting(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow) 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_CONSTRUCTOR_USER_SQLDataTable" 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_IMPORT_PROFILEDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_IMPORT_PROFILERow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnWD_SEARCH As Global.System.Data.DataColumn Private columnUNIQUE_DOC_SQL As Global.System.Data.DataColumn Private columnNEW_OBJECTTYPE As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnSQL_DOCTYPE As Global.System.Data.DataColumn Private columnOLD_OBJECTTYPE As Global.System.Data.DataColumn Private columnIDX_FILE_WORKED As Global.System.Data.DataColumn Private columnSQL_PARENT_RECORD As Global.System.Data.DataColumn Private columnONLY_RECORD_CREATING As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WD_IMPORT_PROFILE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH End Get End Property _ Public ReadOnly Property UNIQUE_DOC_SQLColumn() As Global.System.Data.DataColumn Get Return Me.columnUNIQUE_DOC_SQL End Get End Property _ Public ReadOnly Property NEW_OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnNEW_OBJECTTYPE 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 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 ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property SQL_DOCTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_DOCTYPE End Get End Property _ Public ReadOnly Property OLD_OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOLD_OBJECTTYPE End Get End Property _ Public ReadOnly Property IDX_FILE_WORKEDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_FILE_WORKED End Get End Property _ Public ReadOnly Property SQL_PARENT_RECORDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PARENT_RECORD End Get End Property _ Public ReadOnly Property ONLY_RECORD_CREATINGColumn() As Global.System.Data.DataColumn Get Return Me.columnONLY_RECORD_CREATING 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_IMPORT_PROFILERow Get Return CType(Me.Rows(index),TBPMO_WD_IMPORT_PROFILERow) End Get End Property _ Public Event TBPMO_WD_IMPORT_PROFILERowChanging As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ Public Event TBPMO_WD_IMPORT_PROFILERowChanged As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ Public Event TBPMO_WD_IMPORT_PROFILERowDeleting As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ Public Event TBPMO_WD_IMPORT_PROFILERowDeleted As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ Public Overloads Sub AddTBPMO_WD_IMPORT_PROFILERow(ByVal row As TBPMO_WD_IMPORT_PROFILERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String, ByVal SQL_PARENT_RECORD As String, ByVal ONLY_RECORD_CREATING As Boolean) As TBPMO_WD_IMPORT_PROFILERow Dim rowTBPMO_WD_IMPORT_PROFILERow As TBPMO_WD_IMPORT_PROFILERow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY_RECORD_CREATING} rowTBPMO_WD_IMPORT_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILERow) Return rowTBPMO_WD_IMPORT_PROFILERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_IMPORT_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_IMPORT_PROFILERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WD_IMPORT_PROFILEDataTable = CType(MyBase.Clone,TBPMO_WD_IMPORT_PROFILEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WD_IMPORT_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") Me.columnUNIQUE_DOC_SQL = MyBase.Columns("UNIQUE_DOC_SQL") Me.columnNEW_OBJECTTYPE = MyBase.Columns("NEW_OBJECTTYPE") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnSQL_DOCTYPE = MyBase.Columns("SQL_DOCTYPE") Me.columnOLD_OBJECTTYPE = MyBase.Columns("OLD_OBJECTTYPE") Me.columnIDX_FILE_WORKED = MyBase.Columns("IDX_FILE_WORKED") Me.columnSQL_PARENT_RECORD = MyBase.Columns("SQL_PARENT_RECORD") Me.columnONLY_RECORD_CREATING = MyBase.Columns("ONLY_RECORD_CREATING") 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.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWD_SEARCH) Me.columnUNIQUE_DOC_SQL = New Global.System.Data.DataColumn("UNIQUE_DOC_SQL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUNIQUE_DOC_SQL) Me.columnNEW_OBJECTTYPE = New Global.System.Data.DataColumn("NEW_OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNEW_OBJECTTYPE) Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONNECTION_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.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnSQL_DOCTYPE = New Global.System.Data.DataColumn("SQL_DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_DOCTYPE) Me.columnOLD_OBJECTTYPE = New Global.System.Data.DataColumn("OLD_OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnOLD_OBJECTTYPE) Me.columnIDX_FILE_WORKED = New Global.System.Data.DataColumn("IDX_FILE_WORKED", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIDX_FILE_WORKED) Me.columnSQL_PARENT_RECORD = New Global.System.Data.DataColumn("SQL_PARENT_RECORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_PARENT_RECORD) Me.columnONLY_RECORD_CREATING = New Global.System.Data.DataColumn("ONLY_RECORD_CREATING", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnONLY_RECORD_CREATING) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 Me.columnWD_SEARCH.AllowDBNull = false Me.columnWD_SEARCH.MaxLength = 1000 Me.columnUNIQUE_DOC_SQL.MaxLength = 5000 Me.columnNEW_OBJECTTYPE.AllowDBNull = false Me.columnNEW_OBJECTTYPE.DefaultValue = CType("",String) Me.columnNEW_OBJECTTYPE.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnENTITY_ID.AllowDBNull = false Me.columnSQL_DOCTYPE.DefaultValue = CType("",String) Me.columnSQL_DOCTYPE.MaxLength = 5000 Me.columnOLD_OBJECTTYPE.AllowDBNull = false Me.columnOLD_OBJECTTYPE.DefaultValue = CType("",String) Me.columnOLD_OBJECTTYPE.MaxLength = 100 Me.columnIDX_FILE_WORKED.MaxLength = 100 Me.columnSQL_PARENT_RECORD.AllowDBNull = false Me.columnSQL_PARENT_RECORD.DefaultValue = CType("",String) Me.columnSQL_PARENT_RECORD.MaxLength = 5000 Me.columnONLY_RECORD_CREATING.AllowDBNull = false Me.columnONLY_RECORD_CREATING.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewTBPMO_WD_IMPORT_PROFILERow() As TBPMO_WD_IMPORT_PROFILERow Return CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WD_IMPORT_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WD_IMPORT_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WD_IMPORT_PROFILERowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILERowChanged(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), 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_IMPORT_PROFILERowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILERowChanging(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), 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_IMPORT_PROFILERowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILERowDeleted(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), 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_IMPORT_PROFILERowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILERowDeleting(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WD_IMPORT_PROFILERow(ByVal row As TBPMO_WD_IMPORT_PROFILERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As 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_IMPORT_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_IMPORT_PROFILE_IDXRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnSTRING1 As Global.System.Data.DataColumn Private columnSTRING2 As Global.System.Data.DataColumn Private columnSQL1 As Global.System.Data.DataColumn Private columnSQL2 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_IMPORT_PROFILE_IDX" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING1 End Get End Property _ Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING2 End Get End Property _ Public ReadOnly Property SQL1Column() As Global.System.Data.DataColumn Get Return Me.columnSQL1 End Get End Property _ Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL2 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_IMPORT_PROFILE_IDXRow Get Return CType(Me.Rows(index),TBPMO_WD_IMPORT_PROFILE_IDXRow) End Get End Property _ Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowChanging As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowChanged As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 As TBPMO_WD_IMPORT_PROFILERow, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 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_IMPORT_PROFILE_IDXRow Dim rowTBPMO_WD_IMPORT_PROFILE_IDXRow As TBPMO_WD_IMPORT_PROFILE_IDXRow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILE_IDXRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1) Is Nothing) Then columnValuesArray(1) = parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1(0) End If rowTBPMO_WD_IMPORT_PROFILE_IDXRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILE_IDXRow) Return rowTBPMO_WD_IMPORT_PROFILE_IDXRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_IMPORT_PROFILE_IDXRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_IMPORT_PROFILE_IDXRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WD_IMPORT_PROFILE_IDXDataTable = CType(MyBase.Clone,TBPMO_WD_IMPORT_PROFILE_IDXDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WD_IMPORT_PROFILE_IDXDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnSTRING1 = MyBase.Columns("STRING1") Me.columnSTRING2 = MyBase.Columns("STRING2") Me.columnSQL1 = MyBase.Columns("SQL1") Me.columnSQL2 = MyBase.Columns("SQL2") 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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTRING1) Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTRING2) Me.columnSQL1 = New Global.System.Data.DataColumn("SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL1) Me.columnSQL2 = New Global.System.Data.DataColumn("SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL2) 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.columnPROFILE_ID.AllowDBNull = false Me.columnSTRING1.AllowDBNull = false Me.columnSTRING1.MaxLength = 200 Me.columnSTRING2.AllowDBNull = false Me.columnSTRING2.MaxLength = 200 Me.columnSQL1.MaxLength = 5000 Me.columnSQL2.MaxLength = 5000 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_WD_IMPORT_PROFILE_IDXRow() As TBPMO_WD_IMPORT_PROFILE_IDXRow Return CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILE_IDXRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WD_IMPORT_PROFILE_IDXRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WD_IMPORT_PROFILE_IDXRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowChanged(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), 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_IMPORT_PROFILE_IDXRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowChanging(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), 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_IMPORT_PROFILE_IDXRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), 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_IMPORT_PROFILE_IDXRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow) 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_IMPORT_PROFILE_IDXDataTable" 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 columnWF_ID As Global.System.Data.DataColumn Private columnWF_TITLE As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnSTATE_ID As Global.System.Data.DataColumn Private columnSTATE_TITLE As Global.System.Data.DataColumn Private columnFORM_VIEW_ID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnENTITY_TITLE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnDUE_DATE 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 Private columnFINAL As Global.System.Data.DataColumn Private columnCOLOR As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnRECORD_DESCRIPTION As Global.System.Data.DataColumn Private columnDESCRIPTION As Global.System.Data.DataColumn Private columnExpr1 As Global.System.Data.DataColumn Private columnFINISHED As Global.System.Data.DataColumn Private columnMANUALLY As Global.System.Data.DataColumn Private columnCREATE_ON_REC_CREATE As Global.System.Data.DataColumn Private columnCREATE_ON_FOLL_UP 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 WF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_ID End Get End Property _ Public ReadOnly Property WF_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnWF_TITLE 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_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_TITLE End Get End Property _ Public ReadOnly Property FORM_VIEW_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_VIEW_ID End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_TITLE 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 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 FINALColumn() As Global.System.Data.DataColumn Get Return Me.columnFINAL End Get End Property _ Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property RECORD_DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnRECORD_DESCRIPTION End Get End Property _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION End Get End Property _ Public ReadOnly Property Expr1Column() As Global.System.Data.DataColumn Get Return Me.columnExpr1 End Get End Property _ Public ReadOnly Property FINISHEDColumn() As Global.System.Data.DataColumn Get Return Me.columnFINISHED End Get End Property _ Public ReadOnly Property MANUALLYColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUALLY End Get End Property _ Public ReadOnly Property CREATE_ON_REC_CREATEColumn() As Global.System.Data.DataColumn Get Return Me.columnCREATE_ON_REC_CREATE End Get End Property _ Public ReadOnly Property CREATE_ON_FOLL_UPColumn() As Global.System.Data.DataColumn Get Return Me.columnCREATE_ON_FOLL_UP 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 WF_ID As Integer, _ ByVal WF_TITLE As String, _ ByVal RECORD_ID As Integer, _ ByVal STATE_ID As Integer, _ ByVal STATE_TITLE As String, _ ByVal FORM_VIEW_ID As Integer, _ ByVal ENTITY_ID As Integer, _ ByVal ENTITY_TITLE As String, _ ByVal COMMENT As String, _ ByVal DUE_DATE As Date, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal TASK_DATE As Date, _ ByVal FINAL As Boolean, _ ByVal COLOR As String, _ ByVal USERNAME As String, _ ByVal RECORD_DESCRIPTION As String, _ ByVal DESCRIPTION As String, _ ByVal Expr1 As String, _ ByVal FINISHED As Boolean, _ ByVal MANUALLY As Boolean, _ ByVal CREATE_ON_REC_CREATE As Boolean, _ ByVal CREATE_ON_FOLL_UP As Boolean) 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, WF_ID, WF_TITLE, RECORD_ID, STATE_ID, STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, ENTITY_TITLE, COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, USERNAME, RECORD_DESCRIPTION, DESCRIPTION, Expr1, FINISHED, MANUALLY, CREATE_ON_REC_CREATE, CREATE_ON_FOLL_UP} rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_WF_ACTIVERow) Return rowVWPMO_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.columnWF_ID = MyBase.Columns("WF_ID") Me.columnWF_TITLE = MyBase.Columns("WF_TITLE") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnSTATE_ID = MyBase.Columns("STATE_ID") Me.columnSTATE_TITLE = MyBase.Columns("STATE_TITLE") Me.columnFORM_VIEW_ID = MyBase.Columns("FORM_VIEW_ID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") 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") Me.columnFINAL = MyBase.Columns("FINAL") Me.columnCOLOR = MyBase.Columns("COLOR") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnRECORD_DESCRIPTION = MyBase.Columns("RECORD_DESCRIPTION") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnExpr1 = MyBase.Columns("Expr1") Me.columnFINISHED = MyBase.Columns("FINISHED") Me.columnMANUALLY = MyBase.Columns("MANUALLY") Me.columnCREATE_ON_REC_CREATE = MyBase.Columns("CREATE_ON_REC_CREATE") Me.columnCREATE_ON_FOLL_UP = MyBase.Columns("CREATE_ON_FOLL_UP") 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.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_ID) Me.columnWF_TITLE = New Global.System.Data.DataColumn("WF_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_TITLE) 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_TITLE = New Global.System.Data.DataColumn("STATE_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_TITLE) Me.columnFORM_VIEW_ID = New Global.System.Data.DataColumn("FORM_VIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_VIEW_ID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_TITLE) 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.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.columnFINAL = New Global.System.Data.DataColumn("FINAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFINAL) Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLOR) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnRECORD_DESCRIPTION = New Global.System.Data.DataColumn("RECORD_DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_DESCRIPTION) Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDESCRIPTION) Me.columnExpr1 = New Global.System.Data.DataColumn("Expr1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnExpr1) Me.columnFINISHED = New Global.System.Data.DataColumn("FINISHED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFINISHED) Me.columnMANUALLY = New Global.System.Data.DataColumn("MANUALLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMANUALLY) Me.columnCREATE_ON_REC_CREATE = New Global.System.Data.DataColumn("CREATE_ON_REC_CREATE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCREATE_ON_REC_CREATE) Me.columnCREATE_ON_FOLL_UP = New Global.System.Data.DataColumn("CREATE_ON_FOLL_UP", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCREATE_ON_FOLL_UP) Me.columnWF_TASK_ID.AllowDBNull = false Me.columnWF_ID.AllowDBNull = false Me.columnWF_TITLE.ReadOnly = true Me.columnWF_TITLE.MaxLength = 100 Me.columnRECORD_ID.AllowDBNull = false Me.columnSTATE_ID.AllowDBNull = false Me.columnSTATE_TITLE.ReadOnly = true Me.columnSTATE_TITLE.MaxLength = 100 Me.columnFORM_VIEW_ID.AllowDBNull = false Me.columnENTITY_ID.AllowDBNull = false Me.columnENTITY_TITLE.ReadOnly = true Me.columnENTITY_TITLE.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnFINAL.AllowDBNull = false Me.columnCOLOR.MaxLength = 50 Me.columnUSERNAME.ReadOnly = true Me.columnUSERNAME.MaxLength = 1024 Me.columnRECORD_DESCRIPTION.ReadOnly = true Me.columnRECORD_DESCRIPTION.MaxLength = 2500 Me.columnDESCRIPTION.MaxLength = 250 Me.columnExpr1.ReadOnly = true Me.columnExpr1.MaxLength = 2500 Me.columnFINISHED.AllowDBNull = false Me.columnMANUALLY.AllowDBNull = false Me.columnCREATE_ON_REC_CREATE.AllowDBNull = false Me.columnCREATE_ON_FOLL_UP.AllowDBNull = false 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 TBPMO_RIGHT_GROUPDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_RIGHT_GROUPRow) Private columnGUID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnGROUP_ID As Global.System.Data.DataColumn Private columnEDIT_REC As Global.System.Data.DataColumn Private columnADD_REC As Global.System.Data.DataColumn Private columnDELETE_REC As Global.System.Data.DataColumn Private columnADD_DOC As Global.System.Data.DataColumn Private columnVIEW_DOC As Global.System.Data.DataColumn Private columnDELETE_DOC As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_RIGHT_GROUP" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID End Get End Property _ Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnEDIT_REC End Get End Property _ Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_REC End Get End Property _ Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_REC End Get End Property _ Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_DOC End Get End Property _ Public ReadOnly Property VIEW_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnVIEW_DOC End Get End Property _ Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_DOC End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RIGHT_GROUPRow Get Return CType(Me.Rows(index),TBPMO_RIGHT_GROUPRow) End Get End Property _ Public Event TBPMO_RIGHT_GROUPRowChanging As TBPMO_RIGHT_GROUPRowChangeEventHandler _ Public Event TBPMO_RIGHT_GROUPRowChanged As TBPMO_RIGHT_GROUPRowChangeEventHandler _ Public Event TBPMO_RIGHT_GROUPRowDeleting As TBPMO_RIGHT_GROUPRowChangeEventHandler _ Public Event TBPMO_RIGHT_GROUPRowDeleted As TBPMO_RIGHT_GROUPRowChangeEventHandler _ Public Overloads Sub AddTBPMO_RIGHT_GROUPRow(ByVal row As TBPMO_RIGHT_GROUPRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_RIGHT_GROUPRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID As TBPMO_FORMRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID As TBDD_USER_GROUPSRow, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RIGHT_GROUPRow Dim rowTBPMO_RIGHT_GROUPRow As TBPMO_RIGHT_GROUPRow = CType(Me.NewRow,TBPMO_RIGHT_GROUPRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID(0) End If If (Not (parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID) Is Nothing) Then columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID(0) End If rowTBPMO_RIGHT_GROUPRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_RIGHT_GROUPRow) Return rowTBPMO_RIGHT_GROUPRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RIGHT_GROUPRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RIGHT_GROUPRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_RIGHT_GROUPDataTable = CType(MyBase.Clone,TBPMO_RIGHT_GROUPDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_RIGHT_GROUPDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") Me.columnADD_REC = MyBase.Columns("ADD_REC") Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") Me.columnADD_DOC = MyBase.Columns("ADD_DOC") Me.columnVIEW_DOC = MyBase.Columns("VIEW_DOC") Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGROUP_ID) Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEDIT_REC) Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_REC) Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_REC) Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_DOC) Me.columnVIEW_DOC = New Global.System.Data.DataColumn("VIEW_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVIEW_DOC) Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_DOC) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = 1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnENTITY_ID.AllowDBNull = false Me.columnGROUP_ID.AllowDBNull = false Me.columnEDIT_REC.AllowDBNull = false Me.columnEDIT_REC.DefaultValue = CType(true,Boolean) Me.columnADD_REC.AllowDBNull = false Me.columnADD_REC.DefaultValue = CType(true,Boolean) Me.columnDELETE_REC.AllowDBNull = false Me.columnDELETE_REC.DefaultValue = CType(false,Boolean) Me.columnADD_DOC.AllowDBNull = false Me.columnADD_DOC.DefaultValue = CType(true,Boolean) Me.columnVIEW_DOC.AllowDBNull = false Me.columnVIEW_DOC.DefaultValue = CType(true,Boolean) Me.columnDELETE_DOC.AllowDBNull = false Me.columnDELETE_DOC.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_RIGHT_GROUPRow() As TBPMO_RIGHT_GROUPRow Return CType(Me.NewRow,TBPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_RIGHT_GROUPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_RIGHT_GROUPRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_GROUPRowChanged(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_RIGHT_GROUPRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_GROUPRowChanging(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_RIGHT_GROUPRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_GROUPRowDeleted(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_RIGHT_GROUPRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_GROUPRowDeleting(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_RIGHT_GROUPRow(ByVal row As TBPMO_RIGHT_GROUPRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_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_RIGHT_GROUPDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBPMO_WD_NAMECONVENTION_FORMATDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_NAMECONVENTION_FORMATRow) Private columnGUID As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn Private columnPATTERN As Global.System.Data.DataColumn Private columnFORMAT_RULE 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_NAMECONVENTION_FORMAT" 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 IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property PATTERNColumn() As Global.System.Data.DataColumn Get Return Me.columnPATTERN End Get End Property _ Public ReadOnly Property FORMAT_RULEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORMAT_RULE 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_NAMECONVENTION_FORMATRow Get Return CType(Me.Rows(index),TBPMO_WD_NAMECONVENTION_FORMATRow) End Get End Property _ Public Event TBPMO_WD_NAMECONVENTION_FORMATRowChanging As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler _ Public Event TBPMO_WD_NAMECONVENTION_FORMATRowChanged As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler _ Public Event TBPMO_WD_NAMECONVENTION_FORMATRowDeleting As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler _ Public Event TBPMO_WD_NAMECONVENTION_FORMATRowDeleted As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WD_NAMECONVENTION_FORMATRow(ByVal row As TBPMO_WD_NAMECONVENTION_FORMATRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WD_NAMECONVENTION_FORMATRow(ByVal ID As Integer, ByVal PATTERN As String, ByVal FORMAT_RULE 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_NAMECONVENTION_FORMATRow Dim rowTBPMO_WD_NAMECONVENTION_FORMATRow As TBPMO_WD_NAMECONVENTION_FORMATRow = CType(Me.NewRow,TBPMO_WD_NAMECONVENTION_FORMATRow) Dim columnValuesArray() As Object = New Object() {Nothing, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_WD_NAMECONVENTION_FORMATRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_NAMECONVENTION_FORMATRow) Return rowTBPMO_WD_NAMECONVENTION_FORMATRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_NAMECONVENTION_FORMATRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_NAMECONVENTION_FORMATRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WD_NAMECONVENTION_FORMATDataTable = CType(MyBase.Clone,TBPMO_WD_NAMECONVENTION_FORMATDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WD_NAMECONVENTION_FORMATDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnID = MyBase.Columns("ID") Me.columnPATTERN = MyBase.Columns("PATTERN") Me.columnFORMAT_RULE = MyBase.Columns("FORMAT_RULE") 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.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnPATTERN = New Global.System.Data.DataColumn("PATTERN", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATTERN) Me.columnFORMAT_RULE = New Global.System.Data.DataColumn("FORMAT_RULE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORMAT_RULE) 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.columnID.AllowDBNull = false Me.columnPATTERN.AllowDBNull = false Me.columnPATTERN.MaxLength = 50 Me.columnFORMAT_RULE.AllowDBNull = false Me.columnFORMAT_RULE.MaxLength = 100 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_WD_NAMECONVENTION_FORMATRow() As TBPMO_WD_NAMECONVENTION_FORMATRow Return CType(Me.NewRow,TBPMO_WD_NAMECONVENTION_FORMATRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WD_NAMECONVENTION_FORMATRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WD_NAMECONVENTION_FORMATRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WD_NAMECONVENTION_FORMATRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowChanged(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), 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_NAMECONVENTION_FORMATRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowChanging(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), 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_NAMECONVENTION_FORMATRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowDeleted(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), 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_NAMECONVENTION_FORMATRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowDeleting(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WD_NAMECONVENTION_FORMATRow(ByVal row As TBPMO_WD_NAMECONVENTION_FORMATRow) 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_NAMECONVENTION_FORMATDataTable" 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_STRUCTURE_NODES_CONFIGURATIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) Private columnGUID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnTYPE_NODE As Global.System.Data.DataColumn Private columnNODE_IMAGE As Global.System.Data.DataColumn Private columnCREATE_RECORD 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 columnNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnPARENT_NODE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_STRUCTURE_NODES_CONFIGURATION" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property TYPE_NODEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_NODE End Get End Property _ Public ReadOnly Property NODE_IMAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnNODE_IMAGE End Get End Property _ Public ReadOnly Property CREATE_RECORDColumn() As Global.System.Data.DataColumn Get Return Me.columnCREATE_RECORD 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 NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property PARENT_NODEColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_NODE 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_STRUCTURE_NODES_CONFIGURATIONRow Get Return CType(Me.Rows(index),TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) End Get End Property _ Public Event TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanging As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler _ Public Event TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanged As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler _ Public Event TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleting As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler _ Public Event TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleted As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler _ Public Overloads Sub AddTBPMO_STRUCTURE_NODES_CONFIGURATIONRow(ByVal row As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_STRUCTURE_NODES_CONFIGURATIONRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID As TBPMO_FORMRow, ByVal TYPE_NODE As Short, ByVal NODE_IMAGE() As Byte, ByVal CREATE_RECORD As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal NAME As String, ByVal COMMENT As String, ByVal PARENT_NODE As Integer) As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow Dim rowTBPMO_STRUCTURE_NODES_CONFIGURATIONRow As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow = CType(Me.NewRow,TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE} If (Not (parentTBPMO_FORMRowByFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID(0) End If rowTBPMO_STRUCTURE_NODES_CONFIGURATIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_STRUCTURE_NODES_CONFIGURATIONRow) Return rowTBPMO_STRUCTURE_NODES_CONFIGURATIONRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable = CType(MyBase.Clone,TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnTYPE_NODE = MyBase.Columns("TYPE_NODE") Me.columnNODE_IMAGE = MyBase.Columns("NODE_IMAGE") Me.columnCREATE_RECORD = MyBase.Columns("CREATE_RECORD") 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.columnNAME = MyBase.Columns("NAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnPARENT_NODE = MyBase.Columns("PARENT_NODE") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnTYPE_NODE = New Global.System.Data.DataColumn("TYPE_NODE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYPE_NODE) Me.columnNODE_IMAGE = New Global.System.Data.DataColumn("NODE_IMAGE", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNODE_IMAGE) Me.columnCREATE_RECORD = New Global.System.Data.DataColumn("CREATE_RECORD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCREATE_RECORD) 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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnPARENT_NODE = New Global.System.Data.DataColumn("PARENT_NODE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPARENT_NODE) 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.columnENTITY_ID.AllowDBNull = false Me.columnTYPE_NODE.AllowDBNull = false Me.columnCREATE_RECORD.AllowDBNull = false Me.columnCREATE_RECORD.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 50 Me.columnCOMMENT.MaxLength = 200 Me.columnPARENT_NODE.AllowDBNull = false Me.columnPARENT_NODE.DefaultValue = CType(0,Integer) End Sub _ Public Function NewTBPMO_STRUCTURE_NODES_CONFIGURATIONRow() As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow Return CType(Me.NewRow,TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_STRUCTURE_NODES_CONFIGURATIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanged(Me, New TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_STRUCTURE_NODES_CONFIGURATIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChanging(Me, New TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_STRUCTURE_NODES_CONFIGURATIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleted(Me, New TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_STRUCTURE_NODES_CONFIGURATIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_STRUCTURE_NODES_CONFIGURATIONRowDeleting(Me, New TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_STRUCTURE_NODES_CONFIGURATIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_STRUCTURE_NODES_CONFIGURATIONRow(ByVal row As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow) 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_STRUCTURE_NODES_CONFIGURATIONDataTable" 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_ENTITYDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_ENTITYRow) Private columnFORM_ID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_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 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 Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITYRow Get Return CType(Me.Rows(index),TBWH_ENTITYRow) End Get End Property _ Public Event TBWH_ENTITYRowChanging As TBWH_ENTITYRowChangeEventHandler _ Public Event TBWH_ENTITYRowChanged As TBWH_ENTITYRowChangeEventHandler _ Public Event TBWH_ENTITYRowDeleting As TBWH_ENTITYRowChangeEventHandler _ Public Event TBWH_ENTITYRowDeleted As TBWH_ENTITYRowChangeEventHandler _ Public Overloads Sub AddTBWH_ENTITYRow(ByVal row As TBWH_ENTITYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_ENTITYRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID1 As TBPMO_FORMRow, ByVal FORM_TITLE As String) As TBWH_ENTITYRow Dim rowTBWH_ENTITYRow As TBWH_ENTITYRow = CType(Me.NewRow,TBWH_ENTITYRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE} If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID1) Is Nothing) Then columnValuesArray(0) = parentTBPMO_FORMRowByFK_TBPMO_FORM_VIEW_FORM_ID1(0) End If rowTBWH_ENTITYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_ENTITYRow) Return rowTBWH_ENTITYRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_ENTITYDataTable = CType(MyBase.Clone,TBWH_ENTITYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_ENTITYDataTable() End Function _ Friend Sub InitVars() Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") End Sub _ Private Sub InitClass() 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.columnFORM_ID.AllowDBNull = false Me.columnFORM_TITLE.ReadOnly = true Me.columnFORM_TITLE.MaxLength = 100 End Sub _ Public Function NewTBWH_ENTITYRow() As TBWH_ENTITYRow Return CType(Me.NewRow,TBWH_ENTITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_ENTITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_ENTITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_ENTITYRowChangedEvent) Is Nothing) Then RaiseEvent TBWH_ENTITYRowChanged(Me, New TBWH_ENTITYRowChangeEvent(CType(e.Row,TBWH_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_ENTITYRowChangingEvent) Is Nothing) Then RaiseEvent TBWH_ENTITYRowChanging(Me, New TBWH_ENTITYRowChangeEvent(CType(e.Row,TBWH_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_ENTITYRowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_ENTITYRowDeleted(Me, New TBWH_ENTITYRowChangeEvent(CType(e.Row,TBWH_ENTITYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_ENTITYRowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_ENTITYRowDeleting(Me, New TBWH_ENTITYRowChangeEvent(CType(e.Row,TBWH_ENTITYRow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_ENTITYRow(ByVal row As TBWH_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 = "TBWH_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_WORKFLOW_TASK_HISTORYDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_TASK_HISTORYRow) Private columnGUID As Global.System.Data.DataColumn Private columnSTATE_DESC As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_WORKFLOW_TASK_HISTORY" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE_DESC End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property 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_HISTORYRow Get Return CType(Me.Rows(index),TBPMO_WORKFLOW_TASK_HISTORYRow) End Get End Property _ Public Event TBPMO_WORKFLOW_TASK_HISTORYRowChanging As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASK_HISTORYRowChanged As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASK_HISTORYRowDeleting As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler _ Public Event TBPMO_WORKFLOW_TASK_HISTORYRowDeleted As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler _ Public Overloads Sub AddTBPMO_WORKFLOW_TASK_HISTORYRow(ByVal row As TBPMO_WORKFLOW_TASK_HISTORYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_WORKFLOW_TASK_HISTORYRow(ByVal STATE_DESC As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPMO_WORKFLOW_TASK_HISTORYRow Dim rowTBPMO_WORKFLOW_TASK_HISTORYRow As TBPMO_WORKFLOW_TASK_HISTORYRow = CType(Me.NewRow,TBPMO_WORKFLOW_TASK_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, STATE_DESC, COMMENT, ADDED_WHO, ADDED_WHEN} rowTBPMO_WORKFLOW_TASK_HISTORYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WORKFLOW_TASK_HISTORYRow) Return rowTBPMO_WORKFLOW_TASK_HISTORYRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_TASK_HISTORYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_TASK_HISTORYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_WORKFLOW_TASK_HISTORYDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_TASK_HISTORYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_WORKFLOW_TASK_HISTORYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATE_DESC) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.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 = 500 Me.columnCOMMENT.AllowDBNull = false Me.columnCOMMENT.MaxLength = 1000 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 100 End Sub _ Public Function NewTBPMO_WORKFLOW_TASK_HISTORYRow() As TBPMO_WORKFLOW_TASK_HISTORYRow Return CType(Me.NewRow,TBPMO_WORKFLOW_TASK_HISTORYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_WORKFLOW_TASK_HISTORYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_WORKFLOW_TASK_HISTORYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_WORKFLOW_TASK_HISTORYRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_HISTORYRowChanged(Me, New TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_HISTORYRow), 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_HISTORYRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_HISTORYRowChanging(Me, New TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_HISTORYRow), 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_HISTORYRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_HISTORYRowDeleted(Me, New TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_HISTORYRow), 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_HISTORYRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_WORKFLOW_TASK_HISTORYRowDeleting(Me, New TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_TASK_HISTORYRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_WORKFLOW_TASK_HISTORYRow(ByVal row As TBPMO_WORKFLOW_TASK_HISTORYRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As DD_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_HISTORYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class VWPMO_RIGHTS_2B_WORKEDDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_RIGHTS_2B_WORKEDRow) Private columnGUID As Global.System.Data.DataColumn Private columnDOC_ID As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnRIGHT_MODIFY As Global.System.Data.DataColumn Private columnFILE_RIGHT As Global.System.Data.DataColumn Private columnWORKING 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_RIGHTS_2B_WORKED" 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 DOC_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOC_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 RIGHT_MODIFYColumn() As Global.System.Data.DataColumn Get Return Me.columnRIGHT_MODIFY End Get End Property _ Public ReadOnly Property FILE_RIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_RIGHT End Get End Property _ Public ReadOnly Property WORKINGColumn() As Global.System.Data.DataColumn Get Return Me.columnWORKING 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_RIGHTS_2B_WORKEDRow Get Return CType(Me.Rows(index),VWPMO_RIGHTS_2B_WORKEDRow) End Get End Property _ Public Event VWPMO_RIGHTS_2B_WORKEDRowChanging As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler _ Public Event VWPMO_RIGHTS_2B_WORKEDRowChanged As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler _ Public Event VWPMO_RIGHTS_2B_WORKEDRowDeleting As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler _ Public Event VWPMO_RIGHTS_2B_WORKEDRowDeleted As VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler _ Public Overloads Sub AddVWPMO_RIGHTS_2B_WORKEDRow(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_RIGHTS_2B_WORKEDRow(ByVal GUID As Integer, ByVal DOC_ID As Integer, ByVal USERNAME As String, ByVal RIGHT_MODIFY As String, ByVal FILE_RIGHT As String, ByVal WORKING As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As VWPMO_RIGHTS_2B_WORKEDRow Dim rowVWPMO_RIGHTS_2B_WORKEDRow As VWPMO_RIGHTS_2B_WORKEDRow = CType(Me.NewRow,VWPMO_RIGHTS_2B_WORKEDRow) Dim columnValuesArray() As Object = New Object() {GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WHO, ADDED_WHEN} rowVWPMO_RIGHTS_2B_WORKEDRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_RIGHTS_2B_WORKEDRow) Return rowVWPMO_RIGHTS_2B_WORKEDRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_RIGHTS_2B_WORKEDRow Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_RIGHTS_2B_WORKEDRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_RIGHTS_2B_WORKEDDataTable = CType(MyBase.Clone,VWPMO_RIGHTS_2B_WORKEDDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_RIGHTS_2B_WORKEDDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOC_ID = MyBase.Columns("DOC_ID") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnRIGHT_MODIFY = MyBase.Columns("RIGHT_MODIFY") Me.columnFILE_RIGHT = MyBase.Columns("FILE_RIGHT") Me.columnWORKING = MyBase.Columns("WORKING") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnDOC_ID = New Global.System.Data.DataColumn("DOC_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDOC_ID) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnRIGHT_MODIFY = New Global.System.Data.DataColumn("RIGHT_MODIFY", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRIGHT_MODIFY) Me.columnFILE_RIGHT = New Global.System.Data.DataColumn("FILE_RIGHT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFILE_RIGHT) Me.columnWORKING = New Global.System.Data.DataColumn("WORKING", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWORKING) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AllowDBNull = false Me.columnGUID.Unique = true Me.columnDOC_ID.AllowDBNull = false Me.columnUSERNAME.AllowDBNull = false Me.columnUSERNAME.MaxLength = 50 Me.columnRIGHT_MODIFY.AllowDBNull = false Me.columnRIGHT_MODIFY.MaxLength = 30 Me.columnFILE_RIGHT.ReadOnly = true Me.columnFILE_RIGHT.MaxLength = 100 Me.columnWORKING.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 End Sub _ Public Function NewVWPMO_RIGHTS_2B_WORKEDRow() As VWPMO_RIGHTS_2B_WORKEDRow Return CType(Me.NewRow,VWPMO_RIGHTS_2B_WORKEDRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_RIGHTS_2B_WORKEDRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_RIGHTS_2B_WORKEDRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowChanged(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowChanging(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowDeleted(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_RIGHTS_2B_WORKEDRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHTS_2B_WORKEDRowDeleting(Me, New VWPMO_RIGHTS_2B_WORKEDRowChangeEvent(CType(e.Row,VWPMO_RIGHTS_2B_WORKEDRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_RIGHTS_2B_WORKEDRow(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow) 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_RIGHTS_2B_WORKEDDataTable" 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_RIGHT_USERDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_RIGHT_USERRow) Private columnGUID As Global.System.Data.DataColumn Private columnUSER_ID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnEDIT_REC As Global.System.Data.DataColumn Private columnADD_REC As Global.System.Data.DataColumn Private columnDELETE_REC As Global.System.Data.DataColumn Private columnADD_DOC As Global.System.Data.DataColumn Private columnREAD_ONLY_DOC As Global.System.Data.DataColumn Private columnDELETE_DOC As Global.System.Data.DataColumn Private columnFILES_VISIBLE As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_RIGHT_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 ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnEDIT_REC End Get End Property _ Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_REC End Get End Property _ Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_REC End Get End Property _ Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_DOC End Get End Property _ Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY_DOC End Get End Property _ Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_DOC End Get End Property _ Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFILES_VISIBLE End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RIGHT_USERRow Get Return CType(Me.Rows(index),TBPMO_RIGHT_USERRow) End Get End Property _ Public Event TBPMO_RIGHT_USERRowChanging As TBPMO_RIGHT_USERRowChangeEventHandler _ Public Event TBPMO_RIGHT_USERRowChanged As TBPMO_RIGHT_USERRowChangeEventHandler _ Public Event TBPMO_RIGHT_USERRowDeleting As TBPMO_RIGHT_USERRowChangeEventHandler _ Public Event TBPMO_RIGHT_USERRowDeleted As TBPMO_RIGHT_USERRowChangeEventHandler _ Public Overloads Sub AddTBPMO_RIGHT_USERRow(ByVal row As TBPMO_RIGHT_USERRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_RIGHT_USERRow(ByVal USER_ID As Integer, ByVal ENTITY_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal READ_ONLY_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal FILES_VISIBLE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As TBPMO_RIGHT_USERRow Dim rowTBPMO_RIGHT_USERRow As TBPMO_RIGHT_USERRow = CType(Me.NewRow,TBPMO_RIGHT_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN} rowTBPMO_RIGHT_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_RIGHT_USERRow) Return rowTBPMO_RIGHT_USERRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RIGHT_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RIGHT_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_RIGHT_USERDataTable = CType(MyBase.Clone,TBPMO_RIGHT_USERDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_RIGHT_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") Me.columnADD_REC = MyBase.Columns("ADD_REC") Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") Me.columnADD_DOC = MyBase.Columns("ADD_DOC") Me.columnREAD_ONLY_DOC = MyBase.Columns("READ_ONLY_DOC") Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") Me.columnFILES_VISIBLE = MyBase.Columns("FILES_VISIBLE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_ID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEDIT_REC) Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_REC) Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_REC) Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_DOC) Me.columnREAD_ONLY_DOC = New Global.System.Data.DataColumn("READ_ONLY_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREAD_ONLY_DOC) Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_DOC) Me.columnFILES_VISIBLE = New Global.System.Data.DataColumn("FILES_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFILES_VISIBLE) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnUSER_ID.AllowDBNull = false Me.columnENTITY_ID.AllowDBNull = false Me.columnEDIT_REC.AllowDBNull = false Me.columnEDIT_REC.DefaultValue = CType(true,Boolean) Me.columnADD_REC.AllowDBNull = false Me.columnADD_REC.DefaultValue = CType(false,Boolean) Me.columnDELETE_REC.AllowDBNull = false Me.columnDELETE_REC.DefaultValue = CType(false,Boolean) Me.columnADD_DOC.AllowDBNull = false Me.columnADD_DOC.DefaultValue = CType(false,Boolean) Me.columnREAD_ONLY_DOC.AllowDBNull = false Me.columnREAD_ONLY_DOC.DefaultValue = CType(false,Boolean) Me.columnDELETE_DOC.AllowDBNull = false Me.columnDELETE_DOC.DefaultValue = CType(false,Boolean) Me.columnFILES_VISIBLE.AllowDBNull = false Me.columnFILES_VISIBLE.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewTBPMO_RIGHT_USERRow() As TBPMO_RIGHT_USERRow Return CType(Me.NewRow,TBPMO_RIGHT_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_RIGHT_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_RIGHT_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_RIGHT_USERRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_USERRowChanged(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_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_RIGHT_USERRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_USERRowChanging(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_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_RIGHT_USERRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_USERRowDeleted(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_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_RIGHT_USERRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_RIGHT_USERRowDeleting(Me, New TBPMO_RIGHT_USERRowChangeEvent(CType(e.Row,TBPMO_RIGHT_USERRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_RIGHT_USERRow(ByVal row As TBPMO_RIGHT_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_RIGHT_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_VARIANTDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORD_VARIANTRow) Private columnGUID As Global.System.Data.DataColumn Private columnRECORD_ID As Global.System.Data.DataColumn Private columnREASON_CODE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_RECORD_VARIANT" 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 REASON_CODEColumn() As Global.System.Data.DataColumn Get Return Me.columnREASON_CODE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RECORD_VARIANTRow Get Return CType(Me.Rows(index),TBPMO_RECORD_VARIANTRow) End Get End Property _ Public Event TBPMO_RECORD_VARIANTRowChanging As TBPMO_RECORD_VARIANTRowChangeEventHandler _ Public Event TBPMO_RECORD_VARIANTRowChanged As TBPMO_RECORD_VARIANTRowChangeEventHandler _ Public Event TBPMO_RECORD_VARIANTRowDeleting As TBPMO_RECORD_VARIANTRowChangeEventHandler _ Public Event TBPMO_RECORD_VARIANTRowDeleted As TBPMO_RECORD_VARIANTRowChangeEventHandler _ Public Overloads Sub AddTBPMO_RECORD_VARIANTRow(ByVal row As TBPMO_RECORD_VARIANTRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_RECORD_VARIANTRow(ByVal parentTBPMO_RECORDRowByFK_TBPMO_RECORD_VARIANT_RECORD_ID As TBPMO_RECORDRow, ByVal REASON_CODE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RECORD_VARIANTRow Dim rowTBPMO_RECORD_VARIANTRow As TBPMO_RECORD_VARIANTRow = CType(Me.NewRow,TBPMO_RECORD_VARIANTRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, REASON_CODE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_RECORDRowByFK_TBPMO_RECORD_VARIANT_RECORD_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_RECORDRowByFK_TBPMO_RECORD_VARIANT_RECORD_ID(0) End If rowTBPMO_RECORD_VARIANTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_RECORD_VARIANTRow) Return rowTBPMO_RECORD_VARIANTRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORD_VARIANTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORD_VARIANTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_RECORD_VARIANTDataTable = CType(MyBase.Clone,TBPMO_RECORD_VARIANTDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_RECORD_VARIANTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") Me.columnREASON_CODE = MyBase.Columns("REASON_CODE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRECORD_ID) Me.columnREASON_CODE = New Global.System.Data.DataColumn("REASON_CODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREASON_CODE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnRECORD_ID.AllowDBNull = false Me.columnREASON_CODE.AllowDBNull = false Me.columnREASON_CODE.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_RECORD_VARIANTRow() As TBPMO_RECORD_VARIANTRow Return CType(Me.NewRow,TBPMO_RECORD_VARIANTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_RECORD_VARIANTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_RECORD_VARIANTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_RECORD_VARIANTRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_VARIANTRowChanged(Me, New TBPMO_RECORD_VARIANTRowChangeEvent(CType(e.Row,TBPMO_RECORD_VARIANTRow), 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_VARIANTRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_VARIANTRowChanging(Me, New TBPMO_RECORD_VARIANTRowChangeEvent(CType(e.Row,TBPMO_RECORD_VARIANTRow), 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_VARIANTRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_VARIANTRowDeleted(Me, New TBPMO_RECORD_VARIANTRowChangeEvent(CType(e.Row,TBPMO_RECORD_VARIANTRow), 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_VARIANTRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_RECORD_VARIANTRowDeleting(Me, New TBPMO_RECORD_VARIANTRowChangeEvent(CType(e.Row,TBPMO_RECORD_VARIANTRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_RECORD_VARIANTRow(ByVal row As TBPMO_RECORD_VARIANTRow) 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_VARIANTDataTable" 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_APPOINTMENTSDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_APPOINTMENTSRow) Private columnUniqueID As Global.System.Data.DataColumn Private columnType As Global.System.Data.DataColumn Private columnStartDate As Global.System.Data.DataColumn Private columnEndDate As Global.System.Data.DataColumn Private columnAllDay As Global.System.Data.DataColumn Private columnSubject As Global.System.Data.DataColumn Private columnLocation As Global.System.Data.DataColumn Private columnDescription As Global.System.Data.DataColumn Private columnStatus As Global.System.Data.DataColumn Private columnLabel As Global.System.Data.DataColumn Private columnResourceID As Global.System.Data.DataColumn Private columnResourceIDs As Global.System.Data.DataColumn Private columnReminderInfo As Global.System.Data.DataColumn Private columnRecurrenceInfo As Global.System.Data.DataColumn Private columnCustomField1 As Global.System.Data.DataColumn Private columnCustomField2 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_APPOINTMENTS" 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 UniqueIDColumn() As Global.System.Data.DataColumn Get Return Me.columnUniqueID End Get End Property _ Public ReadOnly Property TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnType End Get End Property _ Public ReadOnly Property StartDateColumn() As Global.System.Data.DataColumn Get Return Me.columnStartDate End Get End Property _ Public ReadOnly Property EndDateColumn() As Global.System.Data.DataColumn Get Return Me.columnEndDate End Get End Property _ Public ReadOnly Property AllDayColumn() As Global.System.Data.DataColumn Get Return Me.columnAllDay End Get End Property _ Public ReadOnly Property SubjectColumn() As Global.System.Data.DataColumn Get Return Me.columnSubject End Get End Property _ Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn Get Return Me.columnLocation End Get End Property _ Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn Get Return Me.columnDescription End Get End Property _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus End Get End Property _ Public ReadOnly Property LabelColumn() As Global.System.Data.DataColumn Get Return Me.columnLabel End Get End Property _ Public ReadOnly Property ResourceIDColumn() As Global.System.Data.DataColumn Get Return Me.columnResourceID End Get End Property _ Public ReadOnly Property ResourceIDsColumn() As Global.System.Data.DataColumn Get Return Me.columnResourceIDs End Get End Property _ Public ReadOnly Property ReminderInfoColumn() As Global.System.Data.DataColumn Get Return Me.columnReminderInfo End Get End Property _ Public ReadOnly Property RecurrenceInfoColumn() As Global.System.Data.DataColumn Get Return Me.columnRecurrenceInfo End Get End Property _ Public ReadOnly Property CustomField1Column() As Global.System.Data.DataColumn Get Return Me.columnCustomField1 End Get End Property _ Public ReadOnly Property CustomField2Column() As Global.System.Data.DataColumn Get Return Me.columnCustomField2 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_APPOINTMENTSRow Get Return CType(Me.Rows(index),TBPMO_APPOINTMENTSRow) End Get End Property _ Public Event TBPMO_APPOINTMENTSRowChanging As TBPMO_APPOINTMENTSRowChangeEventHandler _ Public Event TBPMO_APPOINTMENTSRowChanged As TBPMO_APPOINTMENTSRowChangeEventHandler _ Public Event TBPMO_APPOINTMENTSRowDeleting As TBPMO_APPOINTMENTSRowChangeEventHandler _ Public Event TBPMO_APPOINTMENTSRowDeleted As TBPMO_APPOINTMENTSRowChangeEventHandler _ Public Overloads Sub AddTBPMO_APPOINTMENTSRow(ByVal row As TBPMO_APPOINTMENTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_APPOINTMENTSRow(ByVal Type As Integer, ByVal StartDate As Date, ByVal EndDate As Date, ByVal AllDay As Boolean, ByVal Subject As String, ByVal Location As String, ByVal Description As String, ByVal Status As Integer, ByVal Label As Integer, ByVal ResourceID As Integer, ByVal ResourceIDs As String, ByVal ReminderInfo As String, ByVal RecurrenceInfo As String, ByVal CustomField1 As String, ByVal CustomField2 As String) As TBPMO_APPOINTMENTSRow Dim rowTBPMO_APPOINTMENTSRow As TBPMO_APPOINTMENTSRow = CType(Me.NewRow,TBPMO_APPOINTMENTSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2} rowTBPMO_APPOINTMENTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_APPOINTMENTSRow) Return rowTBPMO_APPOINTMENTSRow End Function _ Public Function FindByUniqueID(ByVal UniqueID As Integer) As TBPMO_APPOINTMENTSRow Return CType(Me.Rows.Find(New Object() {UniqueID}),TBPMO_APPOINTMENTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_APPOINTMENTSDataTable = CType(MyBase.Clone,TBPMO_APPOINTMENTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_APPOINTMENTSDataTable() End Function _ Friend Sub InitVars() Me.columnUniqueID = MyBase.Columns("UniqueID") Me.columnType = MyBase.Columns("Type") Me.columnStartDate = MyBase.Columns("StartDate") Me.columnEndDate = MyBase.Columns("EndDate") Me.columnAllDay = MyBase.Columns("AllDay") Me.columnSubject = MyBase.Columns("Subject") Me.columnLocation = MyBase.Columns("Location") Me.columnDescription = MyBase.Columns("Description") Me.columnStatus = MyBase.Columns("Status") Me.columnLabel = MyBase.Columns("Label") Me.columnResourceID = MyBase.Columns("ResourceID") Me.columnResourceIDs = MyBase.Columns("ResourceIDs") Me.columnReminderInfo = MyBase.Columns("ReminderInfo") Me.columnRecurrenceInfo = MyBase.Columns("RecurrenceInfo") Me.columnCustomField1 = MyBase.Columns("CustomField1") Me.columnCustomField2 = MyBase.Columns("CustomField2") End Sub _ Private Sub InitClass() Me.columnUniqueID = New Global.System.Data.DataColumn("UniqueID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUniqueID) Me.columnType = New Global.System.Data.DataColumn("Type", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnType) Me.columnStartDate = New Global.System.Data.DataColumn("StartDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStartDate) Me.columnEndDate = New Global.System.Data.DataColumn("EndDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEndDate) Me.columnAllDay = New Global.System.Data.DataColumn("AllDay", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAllDay) Me.columnSubject = New Global.System.Data.DataColumn("Subject", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSubject) Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLocation) Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDescription) Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnStatus) Me.columnLabel = New Global.System.Data.DataColumn("Label", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLabel) Me.columnResourceID = New Global.System.Data.DataColumn("ResourceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnResourceID) Me.columnResourceIDs = New Global.System.Data.DataColumn("ResourceIDs", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnResourceIDs) Me.columnReminderInfo = New Global.System.Data.DataColumn("ReminderInfo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReminderInfo) Me.columnRecurrenceInfo = New Global.System.Data.DataColumn("RecurrenceInfo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRecurrenceInfo) Me.columnCustomField1 = New Global.System.Data.DataColumn("CustomField1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomField1) Me.columnCustomField2 = New Global.System.Data.DataColumn("CustomField2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomField2) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUniqueID}, true)) Me.columnUniqueID.AutoIncrement = true Me.columnUniqueID.AutoIncrementSeed = -1 Me.columnUniqueID.AutoIncrementStep = -1 Me.columnUniqueID.AllowDBNull = false Me.columnUniqueID.ReadOnly = true Me.columnUniqueID.Unique = true Me.columnSubject.MaxLength = 150 Me.columnLocation.MaxLength = 50 Me.columnDescription.MaxLength = 2147483647 Me.columnResourceIDs.MaxLength = 2147483647 Me.columnReminderInfo.MaxLength = 2147483647 Me.columnRecurrenceInfo.MaxLength = 2147483647 Me.columnCustomField1.MaxLength = 2147483647 Me.columnCustomField2.MaxLength = 2147483647 End Sub _ Public Function NewTBPMO_APPOINTMENTSRow() As TBPMO_APPOINTMENTSRow Return CType(Me.NewRow,TBPMO_APPOINTMENTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_APPOINTMENTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_APPOINTMENTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_APPOINTMENTSRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_APPOINTMENTSRowChanged(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row,TBPMO_APPOINTMENTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_APPOINTMENTSRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_APPOINTMENTSRowChanging(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row,TBPMO_APPOINTMENTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_APPOINTMENTSRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_APPOINTMENTSRowDeleted(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row,TBPMO_APPOINTMENTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_APPOINTMENTSRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_APPOINTMENTSRowDeleting(Me, New TBPMO_APPOINTMENTSRowChangeEvent(CType(e.Row,TBPMO_APPOINTMENTSRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_APPOINTMENTSRow(ByVal row As TBPMO_APPOINTMENTSRow) 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_APPOINTMENTSDataTable" 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 SINGLE_RECORD() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM.SINGLE_RECORDColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM.SINGLE_RECORDColumn) = 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_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 _ Public Function GetTBPMO_TEMPLATE_ENTITYRows() As TBPMO_TEMPLATE_ENTITYRow() If (Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID") Is Nothing) Then Return New TBPMO_TEMPLATE_ENTITYRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID")),TBPMO_TEMPLATE_ENTITYRow()) End If End Function _ Public Function GetTBPMO_RIGHT_GROUPRows() As TBPMO_RIGHT_GROUPRow() If (Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID") Is Nothing) Then Return New TBPMO_RIGHT_GROUPRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")),TBPMO_RIGHT_GROUPRow()) End If End Function _ Public Function GetTBPMO_STRUCTURE_NODES_CONFIGURATIONRows() As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow() If (Me.Table.ChildRelations("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID") Is Nothing) Then Return New TBPMO_STRUCTURE_NODES_CONFIGURATIONRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID")),TBPMO_STRUCTURE_NODES_CONFIGURATIONRow()) End If End Function _ Public Function GetTBWH_ENTITYRows() As TBWH_ENTITYRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID1") Is Nothing) Then Return New TBWH_ENTITYRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_VIEW_FORM_ID1")),TBWH_ENTITYRow()) 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 GetTBPMO_RECORD_VARIANTRows() As TBPMO_RECORD_VARIANTRow() If (Me.Table.ChildRelations("FK_TBPMO_RECORD_VARIANT_RECORD_ID") Is Nothing) Then Return New TBPMO_RECORD_VARIANTRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_RECORD_VARIANT_RECORD_ID")),TBPMO_RECORD_VARIANTRow()) 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 Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE_DESC in Tabelle TBPMO_WORKFLOW_TASK_STATE ist DBNull.", e) End Try 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 Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.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_TASK_STATE ist DBNull.", e) End Try 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 Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.LANGUAGEColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.LANGUAGEColumn) = value End Set End Property _ Public Function IsSTATE_DESCNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn) End Function _ Public Sub SetSTATE_DESCNull() Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.STATE_DESCColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ 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 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 Try Return CType(Me(Me.tableTBPMO_WORKFLOW.TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TITLE in Tabelle TBPMO_WORKFLOW ist DBNull.", e) End Try 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 IsTITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW.TITLEColumn) End Function _ Public Sub SetTITLENull() Me(Me.tableTBPMO_WORKFLOW.TITLEColumn) = Global.System.Convert.DBNull End Sub _ 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 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 Try Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try 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 Try Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBJEKTTYP in Tabelle TBDD_DOKUMENTART ist DBNull.", e) End Try 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 IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) End Function _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ 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 IsOBJEKTTYPNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) End Function _ Public Sub SetOBJEKTTYPNull() Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = 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 SQL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value End Set End Property _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn) = 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 Property LANGUAGE() As String Get Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) End Get Set Me(Me.tableTBDD_USER.LANGUAGEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.COMMENTColumn) = value End Set End Property _ Public Property SHORTNAME() As String Get Try Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value End Set End Property _ Public Property WAN_ENVIRONMENT() As Boolean Get Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean) End Get Set Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value End Set End Property _ Public Property DATE_FORMAT() As String Get Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) End Get Set Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value End Set End Property _ Public Property GENERAL_VIEWER() As String Get Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String) End Get Set Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = 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 IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_USER.SHORTNAMEColumn) = 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 Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = 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 IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = 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 _ Public Function GetTBPMO_RIGHT_GROUPRows() As TBPMO_RIGHT_GROUPRow() If (Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID") Is Nothing) Then Return New TBPMO_RIGHT_GROUPRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")),TBPMO_RIGHT_GROUPRow()) 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 COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = 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 _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = 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 Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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 ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value End Set End Property _ Public Property MENU_IMG() As Byte() Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value End Set End Property _ Public Property SHORT_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value End Set End Property _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value End Set End Property _ Public 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 IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = 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 Property IDXNAME_RECORDID() As String Get Try Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDXNAME_RECORDID in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn) = value End Set End Property _ Public Property IDXNAME_DOCTYPE() As String Get Try Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_DOCTYPEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDXNAME_DOCTYPE in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_DOCTYPEColumn) = value End Set End Property _ Public Property IDXNAME_RELATION() As String Get Try Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDXNAME_RELATION in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn) = 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 _ Public Function IsIDXNAME_RECORDIDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn) End Function _ Public Sub SetIDXNAME_RECORDIDNull() Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDXNAME_DOCTYPENull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_DOCTYPEColumn) End Function _ Public Sub SetIDXNAME_DOCTYPENull() Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_DOCTYPEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDXNAME_RELATIONNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn) End Function _ Public Sub SetIDXNAME_RELATIONNull() Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn) = 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 Property CONSTRUCTOR_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CONSTRUCTOR_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CONSTRUCTOR_IDColumn) = value End Set End Property _ Public Property CTRL_USER_DIRECT() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CTRL_USER_DIRECTColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CTRL_USER_DIRECTColumn) = value End Set End Property _ Public Property CTRL_GROUP_DIRECT() As Integer Get Return CType(Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CTRL_GROUP_DIRECTColumn),Integer) End Get Set Me(Me.tableTBPMO_FOLLOW_UP_EMAIL.CTRL_GROUP_DIRECTColumn) = value End Set End Property _ Public Property TBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID() As TBTEMP_QUICKDISPLAYRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID")),TBTEMP_QUICKDISPLAYRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID")) End Set End Property _ Public Property TBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID() As TBTEMP_QUICKDISPLAYRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID")),TBTEMP_QUICKDISPLAYRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID")) 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 Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_ID in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn) = value End Set End Property _ Public Property FORM_ID1() As Integer Get Try Return CType(Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_ID1 in Tabelle TBPMO_RECORD_LOG_CONFIG ist DBNull.", e) End Try 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 IsFORM_IDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn) End Function _ Public Sub SetFORM_IDNull() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsFORM_ID1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column) End Function _ Public Sub SetFORM_ID1Null() Me(Me.tableTBPMO_RECORD_LOG_CONFIG.FORM_ID1Column) = 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 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 Property PORT() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn),Integer) End Get Set Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn) = 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 TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) End Get Set Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ Public Property SQL_PROVIDER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ Public Property SERVER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ Public Property PASSWORD() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ Public Property DATENBANK() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ Public Property BEMERKUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) End Get Set Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) End Get Set Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) End Get Set Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class 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 Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value End Set End Property _ Public Property COLUMN_NAME1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value End Set End Property _ Public Property COLUMN_NAME2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value End Set End Property _ Public Property 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 LOAD_DIRECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value End Set End Property _ Public Property SQL_QUICK_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value End Set End Property _ Public Property CONTROL_DOCTYPE_MATCH() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value End Set End Property _ Public Property 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 IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ 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 ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWDDINDEX_AUTOMRow Inherits Global.System.Data.DataRow Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWDDINDEX_AUTOM = CType(Me.Table,VWDDINDEX_AUTOMDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn),Integer) End Get Set Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn) = value End Set End Property _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn),String) End Get Set Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = value End Set End Property _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn) = value End Set End Property _ Public Property DOKUMENTART() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn),String) End Get Set Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn) = value End Set End Property _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn),String) End Get Set Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn) = value End Set End Property _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn),Short) End Get Set Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn) = value End Set End Property _ Public Property CONNECTION() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = value End Set End Property _ Public Property SQL_PROVIDER() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = value End Set End Property _ Public Property SERVER() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = value End Set End Property _ Public Property DATENBANK() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = value End Set End Property _ Public Property PASSWORD() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = value End Set End Property _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn),String) End Get Set Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn) = value End Set End Property _ Public Property SQL_ACTIVE() As Boolean Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn),Boolean) End Get Set Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn) = value End Set End Property _ Public Property VALUE() As String Get Try Return CType(Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCONNECTIONNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) End Function _ Public Sub SetCONNECTIONNull() Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) End Function _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SERVERColumn) End Function _ Public Sub SetSERVERNull() Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) End Function _ Public Sub SetDATENBANKNull() Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) End Function _ Public Sub SetPASSWORDNull() Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.VALUEColumn) End Function _ Public Sub SetVALUENull() Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_TEMPLATERow Inherits Global.System.Data.DataRow Private tableTBPMO_TEMPLATE As TBPMO_TEMPLATEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_TEMPLATE = CType(Me.Table,TBPMO_TEMPLATEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_TEMPLATE.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_TEMPLATE.NAMEColumn) = value End Set End Property _ Public Property TEMPLATE_PATH() As String Get Return CType(Me(Me.tableTBPMO_TEMPLATE.TEMPLATE_PATHColumn),String) End Get Set Me(Me.tableTBPMO_TEMPLATE.TEMPLATE_PATHColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_TEMPLATE.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBPMO_TEMPLATE.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE.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_TEMPLATE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE.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_TEMPLATE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE.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_TEMPLATE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE.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_TEMPLATE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE.CHANGED_WHENColumn) = value End Set End Property _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE.DOCTYPE_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE.DOCTYPE_IDColumn) = value End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_TEMPLATE.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_TEMPLATE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_TEMPLATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_TEMPLATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_TEMPLATE_ENTITYRows() As TBPMO_TEMPLATE_ENTITYRow() If (Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID") Is Nothing) Then Return New TBPMO_TEMPLATE_ENTITYRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID")),TBPMO_TEMPLATE_ENTITYRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_TEMPLATE_ENTITYRow Inherits Global.System.Data.DataRow Private tableTBPMO_TEMPLATE_ENTITY As TBPMO_TEMPLATE_ENTITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_TEMPLATE_ENTITY = CType(Me.Table,TBPMO_TEMPLATE_ENTITYDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE_ENTITY.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE_ENTITY.GUIDColumn) = value End Set End Property _ Public Property TEMPLATE_ID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE_ENTITY.TEMPLATE_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE_ENTITY.TEMPLATE_IDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE_ENTITY.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE_ENTITY.ENTITY_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_ENTITY.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_ENTITY.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_ENTITY.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_FORMRow() As TBPMO_FORMRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID")) End Set End Property _ Public Property TBPMO_TEMPLATERow() As TBPMO_TEMPLATERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID")),TBPMO_TEMPLATERow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID")) End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_ENTITY.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_TEMPLATE_ENTITY.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_ENTITY.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_TEMPLATE_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_ENTITY.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_TEMPLATE_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_TEMPLATE_PATTERNRows() As TBPMO_TEMPLATE_PATTERNRow() If (Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID") Is Nothing) Then Return New TBPMO_TEMPLATE_PATTERNRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID")),TBPMO_TEMPLATE_PATTERNRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_TEMPLATE_PATTERNRow Inherits Global.System.Data.DataRow Private tableTBPMO_TEMPLATE_PATTERN As TBPMO_TEMPLATE_PATTERNDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_TEMPLATE_PATTERN = CType(Me.Table,TBPMO_TEMPLATE_PATTERNDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.GUIDColumn) = value End Set End Property _ Public Property NAME_PATTERN() As String Get Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.NAME_PATTERNColumn),String) End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.NAME_PATTERNColumn) = value End Set End Property _ Public Property FIXED_VALUE() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.FIXED_VALUEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FIXED_VALUE in Tabelle TBPMO_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.FIXED_VALUEColumn) = value End Set End Property _ Public Property CONNECTION_ID() As Integer Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.CONNECTION_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPMO_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.CONNECTION_IDColumn) = value End Set End Property _ Public Property SQL_COMMAND() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.SQL_COMMANDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBPMO_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.SQL_COMMANDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.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_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.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_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.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_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.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_TEMPLATE_PATTERN ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.CHANGED_WHENColumn) = value End Set End Property _ Public Property TEMPLATE_ENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_TEMPLATE_PATTERN.TEMPLATE_ENT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_TEMPLATE_PATTERN.TEMPLATE_ENT_IDColumn) = value End Set End Property _ Public Property TBPMO_TEMPLATE_ENTITYRow() As TBPMO_TEMPLATE_ENTITYRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID")),TBPMO_TEMPLATE_ENTITYRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID")) End Set End Property _ Public Function IsFIXED_VALUENull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.FIXED_VALUEColumn) End Function _ Public Sub SetFIXED_VALUENull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.FIXED_VALUEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.CONNECTION_IDColumn) End Function _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_COMMANDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.SQL_COMMANDColumn) End Function _ Public Sub SetSQL_COMMANDNull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.SQL_COMMANDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_TEMPLATE_PATTERN.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_TEMPLATE_PATTERN.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBTEMP_QUICKDISPLAYRow Inherits Global.System.Data.DataRow Private tableTBTEMP_QUICKDISPLAY As TBTEMP_QUICKDISPLAYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBTEMP_QUICKDISPLAY = CType(Me.Table,TBTEMP_QUICKDISPLAYDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBTEMP_QUICKDISPLAY.GUIDColumn),Integer) End Get Set Me(Me.tableTBTEMP_QUICKDISPLAY.GUIDColumn) = value End Set End Property _ Public Property COL_NAME() As String Get Return CType(Me(Me.tableTBTEMP_QUICKDISPLAY.COL_NAMEColumn),String) End Get Set Me(Me.tableTBTEMP_QUICKDISPLAY.COL_NAMEColumn) = value End Set End Property _ Public Function GetTBPMO_FOLLOW_UP_EMAILRowsByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID() As TBPMO_FOLLOW_UP_EMAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID") Is Nothing) Then Return New TBPMO_FOLLOW_UP_EMAILRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID")),TBPMO_FOLLOW_UP_EMAILRow()) End If End Function _ Public Function GetTBPMO_FOLLOW_UP_EMAILRowsByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID() As TBPMO_FOLLOW_UP_EMAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID") Is Nothing) Then Return New TBPMO_FOLLOW_UP_EMAILRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID")),TBPMO_FOLLOW_UP_EMAILRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_LANGUAGE_OBJECTRow Inherits Global.System.Data.DataRow Private tableTBPMO_LANGUAGE_OBJECT As TBPMO_LANGUAGE_OBJECTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_LANGUAGE_OBJECT = CType(Me.Table,TBPMO_LANGUAGE_OBJECTDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.GUIDColumn) = value End Set End Property _ Public Property LANGUAGE_TYPE() As String Get Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.LANGUAGE_TYPEColumn),String) End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.LANGUAGE_TYPEColumn) = value End Set End Property _ Public Property SCREEN_ID() As Integer Get Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.SCREEN_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.SCREEN_IDColumn) = value End Set End Property _ Public Property PMO_OBJECT_NAME() As String Get Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.PMO_OBJECT_NAMEColumn),String) End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.PMO_OBJECT_NAMEColumn) = value End Set End Property _ Public Property CAPTION() As String Get Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.CAPTIONColumn),String) End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.CAPTIONColumn) = value End Set End Property _ Public Property HINT() As String Get Try Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.HINTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HINT in Tabelle TBPMO_LANGUAGE_OBJECT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.HINTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.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_LANGUAGE_OBJECT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.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_LANGUAGE_OBJECT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_LANGUAGE_OBJECT.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_LANGUAGE_OBJECT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_LANGUAGE_OBJECT.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsHINTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LANGUAGE_OBJECT.HINTColumn) End Function _ Public Sub SetHINTNull() Me(Me.tableTBPMO_LANGUAGE_OBJECT.HINTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LANGUAGE_OBJECT.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_LANGUAGE_OBJECT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_LANGUAGE_OBJECT.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_LANGUAGE_OBJECT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LANGUAGE_OBJECT.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_LANGUAGE_OBJECT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_CLIENTRow Inherits Global.System.Data.DataRow Private tableTBDD_CLIENT As TBDD_CLIENTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CLIENT = CType(Me.Table,TBDD_CLIENTDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_CLIENT.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_CLIENT.GUIDColumn) = value End Set End Property _ Public Property CLIENT_NAME() As String Get Return CType(Me(Me.tableTBDD_CLIENT.CLIENT_NAMEColumn),String) End Get Set Me(Me.tableTBDD_CLIENT.CLIENT_NAMEColumn) = value End Set End Property _ Public Property SHORTNAME() As String Get Try Return CType(Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_CLIENT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_CLIENT.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_CLIENT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CLIENT.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_CLIENT.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_CLIENT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CLIENT.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_CLIENT.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_CLIENT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_CLIENT.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_CLIENT ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.SHORTNAMEColumn) End Function _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_CLIENT.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_CLIENT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_CONSTRUCTOR_USER_SQLRow Inherits Global.System.Data.DataRow Private tableTBPMO_CONSTRUCTOR_USER_SQL As TBPMO_CONSTRUCTOR_USER_SQLDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_CONSTRUCTOR_USER_SQL = CType(Me.Table,TBPMO_CONSTRUCTOR_USER_SQLDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.GUIDColumn) = value End Set End Property _ Public Property SQL_COMMAND() As String Get Try Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.SQL_COMMANDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBPMO_CONSTRUCTOR_USER_SQL ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.SQL_COMMANDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.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_CONSTRUCTOR_USER_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.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_CONSTRUCTOR_USER_SQL ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.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_CONSTRUCTOR_USER_SQL ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.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_CONSTRUCTOR_USER_SQL ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CHANGED_WHENColumn) = value End Set End Property _ Public Property CONSTR_DET_ID() As Integer Get Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CONSTR_DET_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CONSTR_DET_IDColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.USER_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.USER_IDColumn) = value End Set End Property _ Public Function IsSQL_COMMANDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.SQL_COMMANDColumn) End Function _ Public Sub SetSQL_COMMANDNull() Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.SQL_COMMANDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_CONSTRUCTOR_USER_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WD_IMPORT_PROFILERow Inherits Global.System.Data.DataRow Private tableTBPMO_WD_IMPORT_PROFILE As TBPMO_WD_IMPORT_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WD_IMPORT_PROFILE = CType(Me.Table,TBPMO_WD_IMPORT_PROFILEDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.NAMEColumn) = value End Set End Property _ Public Property WD_SEARCH() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.WD_SEARCHColumn),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.WD_SEARCHColumn) = value End Set End Property _ Public Property UNIQUE_DOC_SQL() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.UNIQUE_DOC_SQLColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte UNIQUE_DOC_SQL in Tabelle TBPMO_WD_IMPORT_PROFILE ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.UNIQUE_DOC_SQLColumn) = value End Set End Property _ Public Property NEW_OBJECTTYPE() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.NEW_OBJECTTYPEColumn),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.NEW_OBJECTTYPEColumn) = value End Set End Property _ Public Property CONNECTION_ID() As Integer Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CONNECTION_IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPMO_WD_IMPORT_PROFILE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CONNECTION_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.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_WD_IMPORT_PROFILE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_IMPORT_PROFILE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.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_IMPORT_PROFILE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.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_IMPORT_PROFILE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CHANGED_WHENColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ENTITY_IDColumn) = value End Set End Property _ Public Property SQL_DOCTYPE() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_DOCTYPEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_DOCTYPE in Tabelle TBPMO_WD_IMPORT_PROFILE ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_DOCTYPEColumn) = value End Set End Property _ Public Property OLD_OBJECTTYPE() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.OLD_OBJECTTYPEColumn),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.OLD_OBJECTTYPEColumn) = value End Set End Property _ Public Property IDX_FILE_WORKED() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.IDX_FILE_WORKEDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDX_FILE_WORKED in Tabelle TBPMO_WD_IMPORT_PROFILE ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.IDX_FILE_WORKEDColumn) = value End Set End Property _ Public Property SQL_PARENT_RECORD() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_PARENT_RECORDColumn),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_PARENT_RECORDColumn) = value End Set End Property _ Public Property ONLY_RECORD_CREATING() As Boolean Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ONLY_RECORD_CREATINGColumn),Boolean) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ONLY_RECORD_CREATINGColumn) = value End Set End Property _ Public Function IsUNIQUE_DOC_SQLNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.UNIQUE_DOC_SQLColumn) End Function _ Public Sub SetUNIQUE_DOC_SQLNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.UNIQUE_DOC_SQLColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.CONNECTION_IDColumn) End Function _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_DOCTYPENull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_DOCTYPEColumn) End Function _ Public Sub SetSQL_DOCTYPENull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_DOCTYPEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDX_FILE_WORKEDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE.IDX_FILE_WORKEDColumn) End Function _ Public Sub SetIDX_FILE_WORKEDNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE.IDX_FILE_WORKEDColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_WD_IMPORT_PROFILE_IDXRows() As TBPMO_WD_IMPORT_PROFILE_IDXRow() If (Me.Table.ChildRelations("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1") Is Nothing) Then Return New TBPMO_WD_IMPORT_PROFILE_IDXRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1")),TBPMO_WD_IMPORT_PROFILE_IDXRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXRow Inherits Global.System.Data.DataRow Private tableTBPMO_WD_IMPORT_PROFILE_IDX As TBPMO_WD_IMPORT_PROFILE_IDXDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WD_IMPORT_PROFILE_IDX = CType(Me.Table,TBPMO_WD_IMPORT_PROFILE_IDXDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.GUIDColumn) = value End Set End Property _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.PROFILE_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.PROFILE_IDColumn) = value End Set End Property _ Public Property STRING1() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.STRING1Column),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.STRING1Column) = value End Set End Property _ Public Property STRING2() As String Get Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.STRING2Column),String) End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.STRING2Column) = value End Set End Property _ Public Property SQL1() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL1 in Tabelle TBPMO_WD_IMPORT_PROFILE_IDX ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL1Column) = value End Set End Property _ Public Property SQL2() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL2 in Tabelle TBPMO_WD_IMPORT_PROFILE_IDX ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL2Column) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.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_WD_IMPORT_PROFILE_IDX ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.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_IMPORT_PROFILE_IDX ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.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_IMPORT_PROFILE_IDX ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.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_IMPORT_PROFILE_IDX ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_WD_IMPORT_PROFILERow() As TBPMO_WD_IMPORT_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1")),TBPMO_WD_IMPORT_PROFILERow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1")) End Set End Property _ Public Function IsSQL1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL1Column) End Function _ Public Sub SetSQL1Null() Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL2Column) End Function _ Public Sub SetSQL2Null() Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.SQL2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.CHANGED_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 WF_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.WF_IDColumn) = value End Set End Property _ Public Property WF_TITLE() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WF_TITLE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.WF_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_TITLE() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE_TITLE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn) = value End Set End Property _ Public Property FORM_VIEW_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.FORM_VIEW_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.FORM_VIEW_IDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_IDColumn) = value End Set End Property _ Public Property ENTITY_TITLE() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ENTITY_TITLE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn) = 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 ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.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_WF_ACTIVE ist DBNull.", e) End Try 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 Property FINAL() As Boolean Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.FINALColumn),Boolean) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.FINALColumn) = 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 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 RECORD_DESCRIPTION() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RECORD_DESCRIPTION in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn) = value End Set End Property _ Public Property DESCRIPTION() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.DESCRIPTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.DESCRIPTIONColumn) = value End Set End Property _ Public Property Expr1() As String Get Try Return CType(Me(Me.tableVWPMO_WF_ACTIVE.Expr1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Expr1 in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_WF_ACTIVE.Expr1Column) = value End Set End Property _ Public Property FINISHED() As Boolean Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.FINISHEDColumn),Boolean) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.FINISHEDColumn) = value End Set End Property _ Public Property MANUALLY() As Boolean Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.MANUALLYColumn),Boolean) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.MANUALLYColumn) = value End Set End Property _ Public Property CREATE_ON_REC_CREATE() As Boolean Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CREATE_ON_REC_CREATEColumn),Boolean) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.CREATE_ON_REC_CREATEColumn) = value End Set End Property _ Public Property CREATE_ON_FOLL_UP() As Boolean Get Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CREATE_ON_FOLL_UPColumn),Boolean) End Get Set Me(Me.tableVWPMO_WF_ACTIVE.CREATE_ON_FOLL_UPColumn) = value End Set End Property _ Public Function IsWF_TITLENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn) End Function _ Public Sub SetWF_TITLENull() Me(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSTATE_TITLENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn) End Function _ Public Sub SetSTATE_TITLENull() Me(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsENTITY_TITLENull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn) End Function _ Public Sub SetENTITY_TITLENull() Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn) = 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 IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = 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 _ 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 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 IsRECORD_DESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn) End Function _ Public Sub SetRECORD_DESCRIPTIONNull() Me(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.DESCRIPTIONColumn) End Function _ Public Sub SetDESCRIPTIONNull() Me(Me.tableVWPMO_WF_ACTIVE.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsExpr1Null() As Boolean Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.Expr1Column) End Function _ Public Sub SetExpr1Null() Me(Me.tableVWPMO_WF_ACTIVE.Expr1Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_RIGHT_GROUPRow Inherits Global.System.Data.DataRow Private tableTBPMO_RIGHT_GROUP As TBPMO_RIGHT_GROUPDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_RIGHT_GROUP = CType(Me.Table,TBPMO_RIGHT_GROUPDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.GUIDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn) = value End Set End Property _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.GROUP_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.GROUP_IDColumn) = value End Set End Property _ Public Property EDIT_REC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.EDIT_RECColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.EDIT_RECColumn) = value End Set End Property _ Public Property ADD_REC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ADD_RECColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.ADD_RECColumn) = value End Set End Property _ Public Property DELETE_REC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_RECColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_RECColumn) = value End Set End Property _ Public Property ADD_DOC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ADD_DOCColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.ADD_DOCColumn) = value End Set End Property _ Public Property VIEW_DOC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.VIEW_DOCColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.VIEW_DOCColumn) = value End Set End Property _ Public Property DELETE_DOC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_DOCColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_DOCColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_FORMRow() As TBPMO_FORMRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")) End Set End Property _ Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")),TBDD_USER_GROUPSRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")) End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WD_NAMECONVENTION_FORMATRow Inherits Global.System.Data.DataRow Private tableTBPMO_WD_NAMECONVENTION_FORMAT As TBPMO_WD_NAMECONVENTION_FORMATDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WD_NAMECONVENTION_FORMAT = CType(Me.Table,TBPMO_WD_NAMECONVENTION_FORMATDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.GUIDColumn) = value End Set End Property _ Public Property ID() As Integer Get Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.IDColumn),Integer) End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.IDColumn) = value End Set End Property _ Public Property PATTERN() As String Get Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.PATTERNColumn),String) End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.PATTERNColumn) = value End Set End Property _ Public Property FORMAT_RULE() As String Get Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.FORMAT_RULEColumn),String) End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.FORMAT_RULEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.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_WD_NAMECONVENTION_FORMAT ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.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_NAMECONVENTION_FORMAT ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.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_NAMECONVENTION_FORMAT ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.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_NAMECONVENTION_FORMAT ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_STRUCTURE_NODES_CONFIGURATIONRow Inherits Global.System.Data.DataRow Private tableTBPMO_STRUCTURE_NODES_CONFIGURATION As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION = CType(Me.Table,TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.GUIDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ENTITY_IDColumn) = value End Set End Property _ Public Property TYPE_NODE() As Short Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.TYPE_NODEColumn),Short) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.TYPE_NODEColumn) = value End Set End Property _ Public Property NODE_IMAGE() As Byte() Get Try Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.NODE_IMAGEColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NODE_IMAGE in Tabelle TBPMO_STRUCTURE_NODES_CONFIGURATION ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.NODE_IMAGEColumn) = value End Set End Property _ Public Property CREATE_RECORD() As Boolean Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CREATE_RECORDColumn),Boolean) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CREATE_RECORDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.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_STRUCTURE_NODES_CONFIGURATION ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.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_STRUCTURE_NODES_CONFIGURATION is"& _ "t DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.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_STRUCTURE_NODES_CONFIGURATION i"& _ "st DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CHANGED_WHENColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.NAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_STRUCTURE_NODES_CONFIGURATION ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.COMMENTColumn) = value End Set End Property _ Public Property PARENT_NODE() As Integer Get Return CType(Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.PARENT_NODEColumn),Integer) End Get Set Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.PARENT_NODEColumn) = value End Set End Property _ Public Property TBPMO_FORMRow() As TBPMO_FORMRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID")) End Set End Property _ Public Function IsNODE_IMAGENull() As Boolean Return Me.IsNull(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.NODE_IMAGEColumn) End Function _ Public Sub SetNODE_IMAGENull() Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.NODE_IMAGEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.COMMENTColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_ENTITYRow Inherits Global.System.Data.DataRow Private tableTBWH_ENTITY As TBWH_ENTITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_ENTITY = CType(Me.Table,TBWH_ENTITYDataTable) End Sub _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBWH_ENTITY.FORM_IDColumn),Integer) End Get Set Me(Me.tableTBWH_ENTITY.FORM_IDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Try Return CType(Me(Me.tableTBWH_ENTITY.FORM_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBWH_ENTITY ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_ENTITY.FORM_TITLEColumn) = 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_ID1")),TBPMO_FORMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_VIEW_FORM_ID1")) End Set End Property _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableTBWH_ENTITY.FORM_TITLEColumn) End Function _ Public Sub SetFORM_TITLENull() Me(Me.tableTBWH_ENTITY.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_WORKFLOW_TASK_HISTORYRow Inherits Global.System.Data.DataRow Private tableTBPMO_WORKFLOW_TASK_HISTORY As TBPMO_WORKFLOW_TASK_HISTORYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_WORKFLOW_TASK_HISTORY = CType(Me.Table,TBPMO_WORKFLOW_TASK_HISTORYDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.GUIDColumn) = value End Set End Property _ Public Property STATE_DESC() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.STATE_DESCColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.STATE_DESCColumn) = value End Set End Property _ Public Property COMMENT() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.COMMENTColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.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_TASK_HISTORY ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.ADDED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_WORKFLOW_TASK_HISTORY.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_RIGHTS_2B_WORKEDRow Inherits Global.System.Data.DataRow Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_RIGHTS_2B_WORKED = CType(Me.Table,VWPMO_RIGHTS_2B_WORKEDDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.GUIDColumn),Integer) End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.GUIDColumn) = value End Set End Property _ Public Property DOC_ID() As Integer Get Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.DOC_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.DOC_IDColumn) = value End Set End Property _ Public Property USERNAME() As String Get Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.USERNAMEColumn),String) End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.USERNAMEColumn) = value End Set End Property _ Public Property RIGHT_MODIFY() As String Get Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.RIGHT_MODIFYColumn),String) End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.RIGHT_MODIFYColumn) = value End Set End Property _ Public Property FILE_RIGHT() As String Get Try Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_RIGHT in Tabelle VWPMO_RIGHTS_2B_WORKED ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) = value End Set End Property _ Public Property WORKING() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.WORKINGColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.WORKINGColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHOColumn),String) End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_RIGHTS_2B_WORKED.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_RIGHTS_2B_WORKED ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) = value End Set End Property _ Public Function IsFILE_RIGHTNull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) End Function _ Public Sub SetFILE_RIGHTNull() Me(Me.tableVWPMO_RIGHTS_2B_WORKED.FILE_RIGHTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableVWPMO_RIGHTS_2B_WORKED.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_RIGHT_USERRow Inherits Global.System.Data.DataRow Private tableTBPMO_RIGHT_USER As TBPMO_RIGHT_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_RIGHT_USER = CType(Me.Table,TBPMO_RIGHT_USERDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_RIGHT_USER.GUIDColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.USER_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RIGHT_USER.USER_IDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RIGHT_USER.ENTITY_IDColumn) = value End Set End Property _ Public Property EDIT_REC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.EDIT_RECColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.EDIT_RECColumn) = value End Set End Property _ Public Property ADD_REC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.ADD_RECColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.ADD_RECColumn) = value End Set End Property _ Public Property DELETE_REC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.DELETE_RECColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.DELETE_RECColumn) = value End Set End Property _ Public Property ADD_DOC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.ADD_DOCColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.ADD_DOCColumn) = value End Set End Property _ Public Property READ_ONLY_DOC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.READ_ONLY_DOCColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.READ_ONLY_DOCColumn) = value End Set End Property _ Public Property DELETE_DOC() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.DELETE_DOCColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.DELETE_DOCColumn) = value End Set End Property _ Public Property FILES_VISIBLE() As Boolean Get Return CType(Me(Me.tableTBPMO_RIGHT_USER.FILES_VISIBLEColumn),Boolean) End Get Set Me(Me.tableTBPMO_RIGHT_USER.FILES_VISIBLEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RIGHT_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_RIGHT_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RIGHT_USER.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RIGHT_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_RIGHT_USER ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RIGHT_USER.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RIGHT_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_RIGHT_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RIGHT_USER.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_RIGHT_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_RECORD_VARIANTRow Inherits Global.System.Data.DataRow Private tableTBPMO_RECORD_VARIANT As TBPMO_RECORD_VARIANTDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_RECORD_VARIANT = CType(Me.Table,TBPMO_RECORD_VARIANTDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.GUIDColumn) = value End Set End Property _ Public Property RECORD_ID() As Integer Get Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.RECORD_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.RECORD_IDColumn) = value End Set End Property _ Public Property REASON_CODE() As String Get Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.REASON_CODEColumn),String) End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.REASON_CODEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_RECORD_VARIANT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.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_VARIANT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.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_VARIANT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_RECORD_VARIANT.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_VARIANT ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_RECORD_VARIANT.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_RECORD_VARIANT_RECORD_ID")),TBPMO_RECORDRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_RECORD_VARIANT_RECORD_ID")) End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_VARIANT.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_RECORD_VARIANT.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_VARIANT.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_RECORD_VARIANT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_VARIANT.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_RECORD_VARIANT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RECORD_VARIANT.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_RECORD_VARIANT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_APPOINTMENTSRow Inherits Global.System.Data.DataRow Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_APPOINTMENTS = CType(Me.Table,TBPMO_APPOINTMENTSDataTable) End Sub _ Public Property UniqueID() As Integer Get Return CType(Me(Me.tableTBPMO_APPOINTMENTS.UniqueIDColumn),Integer) End Get Set Me(Me.tableTBPMO_APPOINTMENTS.UniqueIDColumn) = value End Set End Property _ Public Property Type() As Integer Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.TypeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Type in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.TypeColumn) = value End Set End Property _ Public Property StartDate() As Date Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.StartDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartDate in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.StartDateColumn) = value End Set End Property _ Public Property EndDate() As Date Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.EndDateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EndDate in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.EndDateColumn) = value End Set End Property _ Public Property AllDay() As Boolean Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.AllDayColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AllDay in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.AllDayColumn) = value End Set End Property _ Public Property Subject() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.SubjectColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Subject in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.SubjectColumn) = value End Set End Property _ Public Property Location() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.LocationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Location in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.LocationColumn) = value End Set End Property _ Public Property Description() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn) = value End Set End Property _ Public Property Status() As Integer Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.StatusColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Status in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.StatusColumn) = value End Set End Property _ Public Property Label() As Integer Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.LabelColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Label in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.LabelColumn) = value End Set End Property _ Public Property ResourceID() As Integer Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ResourceID in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn) = value End Set End Property _ Public Property ResourceIDs() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ResourceIDs in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn) = value End Set End Property _ Public Property ReminderInfo() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ReminderInfo in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn) = value End Set End Property _ Public Property RecurrenceInfo() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RecurrenceInfo in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn) = value End Set End Property _ Public Property CustomField1() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.CustomField1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomField1 in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.CustomField1Column) = value End Set End Property _ Public Property CustomField2() As String Get Try Return CType(Me(Me.tableTBPMO_APPOINTMENTS.CustomField2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomField2 in Tabelle TBPMO_APPOINTMENTS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_APPOINTMENTS.CustomField2Column) = value End Set End Property _ Public Function IsTypeNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.TypeColumn) End Function _ Public Sub SetTypeNull() Me(Me.tableTBPMO_APPOINTMENTS.TypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStartDateNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.StartDateColumn) End Function _ Public Sub SetStartDateNull() Me(Me.tableTBPMO_APPOINTMENTS.StartDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEndDateNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.EndDateColumn) End Function _ Public Sub SetEndDateNull() Me(Me.tableTBPMO_APPOINTMENTS.EndDateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAllDayNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.AllDayColumn) End Function _ Public Sub SetAllDayNull() Me(Me.tableTBPMO_APPOINTMENTS.AllDayColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSubjectNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.SubjectColumn) End Function _ Public Sub SetSubjectNull() Me(Me.tableTBPMO_APPOINTMENTS.SubjectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLocationNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.LocationColumn) End Function _ Public Sub SetLocationNull() Me(Me.tableTBPMO_APPOINTMENTS.LocationColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDescriptionNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn) End Function _ Public Sub SetDescriptionNull() Me(Me.tableTBPMO_APPOINTMENTS.DescriptionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsStatusNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.StatusColumn) End Function _ Public Sub SetStatusNull() Me(Me.tableTBPMO_APPOINTMENTS.StatusColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLabelNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.LabelColumn) End Function _ Public Sub SetLabelNull() Me(Me.tableTBPMO_APPOINTMENTS.LabelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsResourceIDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn) End Function _ Public Sub SetResourceIDNull() Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsResourceIDsNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn) End Function _ Public Sub SetResourceIDsNull() Me(Me.tableTBPMO_APPOINTMENTS.ResourceIDsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsReminderInfoNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn) End Function _ Public Sub SetReminderInfoNull() Me(Me.tableTBPMO_APPOINTMENTS.ReminderInfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsRecurrenceInfoNull() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn) End Function _ Public Sub SetRecurrenceInfoNull() Me(Me.tableTBPMO_APPOINTMENTS.RecurrenceInfoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomField1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.CustomField1Column) End Function _ Public Sub SetCustomField1Null() Me(Me.tableTBPMO_APPOINTMENTS.CustomField1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsCustomField2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_APPOINTMENTS.CustomField2Column) End Function _ Public Sub SetCustomField2Null() Me(Me.tableTBPMO_APPOINTMENTS.CustomField2Column) = 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 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_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 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 TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_CONNECTIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWDDINDEX_AUTOMRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWDDINDEX_AUTOMRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWDDINDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWDDINDEX_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_TEMPLATERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_TEMPLATERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_TEMPLATERow 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_TEMPLATE_ENTITYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_TEMPLATE_ENTITYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_TEMPLATE_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_TEMPLATE_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_TEMPLATE_PATTERNRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_TEMPLATE_PATTERNRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_TEMPLATE_PATTERNRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_TEMPLATE_PATTERNRow 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 TBTEMP_QUICKDISPLAYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBTEMP_QUICKDISPLAYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBTEMP_QUICKDISPLAYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBTEMP_QUICKDISPLAYRow 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_LANGUAGE_OBJECTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_LANGUAGE_OBJECTRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_LANGUAGE_OBJECTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_LANGUAGE_OBJECTRow 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_CLIENTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_CLIENTRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_CLIENTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_CLIENTRow 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_CONSTRUCTOR_USER_SQLRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_CONSTRUCTOR_USER_SQLRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_CONSTRUCTOR_USER_SQLRow 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_IMPORT_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WD_IMPORT_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WD_IMPORT_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WD_IMPORT_PROFILERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WD_IMPORT_PROFILE_IDXRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WD_IMPORT_PROFILE_IDXRow 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 TBPMO_RIGHT_GROUPRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_RIGHT_GROUPRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_RIGHT_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_RIGHT_GROUPRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WD_NAMECONVENTION_FORMATRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WD_NAMECONVENTION_FORMATRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_WD_NAMECONVENTION_FORMATRow 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_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_STRUCTURE_NODES_CONFIGURATIONRow 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_ENTITYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_ENTITYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_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_WORKFLOW_TASK_HISTORYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_WORKFLOW_TASK_HISTORYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_WORKFLOW_TASK_HISTORYRow, 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_HISTORYRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_RIGHTS_2B_WORKEDRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_RIGHTS_2B_WORKEDRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_RIGHTS_2B_WORKEDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_RIGHTS_2B_WORKEDRow 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_RIGHT_USERRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_RIGHT_USERRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_RIGHT_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_RIGHT_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_VARIANTRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_RECORD_VARIANTRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_RECORD_VARIANTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_RECORD_VARIANTRow 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_APPOINTMENTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_APPOINTMENTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_APPOINTMENTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_APPOINTMENTSRow 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") tableMapping.ColumnMappings.Add("SINGLE_RECORD", "SINGLE_RECORD") 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, SINGLE_RECORD)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID"& _ ",@NAME,@LEVEL,@ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID,@SINGLE_RECORD); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ "D_WHEN FROM TBPMO_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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SINGLE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SINGLE_RECORD", 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, FORM_TYPE_ID = @FORM_TYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SINGLE_RECORD "& _ "= @SINGLE_RECORD"&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_FOR"& _ "M 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("@SINGLE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SINGLE_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(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, SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ "BPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (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, SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ "BPMO_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), ByVal SINGLE_RECORD As Boolean) 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 Me.Adapter.InsertCommand.Parameters(6).Value = CType(SINGLE_RECORD,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 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 SINGLE_RECORD As Boolean, 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(SINGLE_RECORD,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT 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_Organizer.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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organizer.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 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, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).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)& _ "ORDER BY DOKUMENTTYPE" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).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 (FORM_ID = @ENTITY_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DOKUMENTTYPE" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_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_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 _ Public Overloads Overridable Function FillBy(ByVal dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable) 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.VWPMO_DOKUMENTTYPESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable = New DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByENTITY_ID(ByVal dataTable As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable, ByVal ENTITY_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(2) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetDataByENTITY_ID(ByVal ENTITY_ID As Integer) As DD_DMSDataSet.VWPMO_DOKUMENTTYPESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(2) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organizer.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") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") 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"&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_TASK_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (STATE_DESC, ADDE"& _ "D_WHO, COLOR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@STATE_DESC,@ADDED_WHO,@COLOR); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STA"& _ "TE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR FROM TBPMO_WORK"& _ "FLOW_TASK_STATE WHERE (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, 50, 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, 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("@COLOR", Global.System.Data.SqlDbType.VarChar, 50, 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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET STATE_DESC = @STATE_DE"& _ "SC, CHANGED_WHO = @CHANGED_WHO, COLOR = @COLOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_G"& _ "UID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ "N, COLOR 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, 50, 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("@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("@COLOR", Global.System.Data.SqlDbType.VarChar, 50, 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, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONV"& _ "ERT(VARCHAR(5), GUID), 1) AS STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ "NGED_WHEN, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WOR"& _ "KFLOW_TASK_STATE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONV"& _ "ERT(VARCHAR(5), GUID), 1) AS STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ "NGED_WHEN, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WOR"& _ "KFLOW_TASK_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT "& _ " STATE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_WORKFLOW_ENT"& _ "ITY_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_ID = @WF_ID) AND (ENT"& _ "ITY_ID = @ENT_ID)))" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, 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("@ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable, ByVal LANGUAGE As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String) As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If 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 FillBy(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable, ByVal LANGUAGE As String, ByVal WF_ID As Integer, ByVal ENT_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(WF_ID,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(ENT_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 GetDataBy(ByVal LANGUAGE As String, ByVal WF_ID As Integer, ByVal ENT_ID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(WF_ID,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(ENT_ID,Integer) 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) 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 STATE_DESC As String, ByVal ADDED_WHO As String, 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 If (COLOR Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).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 CHANGED_WHO As String, ByVal COLOR As String, ByVal Original_GUID As Integer, 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 (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 If (COLOR Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLOR,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 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITLE' + CONVERT("& _ "VARCHAR(5), GUID), 1) AS TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOWDataTable, ByVal LANGUAGE As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String) As DD_DMSDataSet.TBPMO_WORKFLOWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If 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 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT 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, ERSTELLTWER, OBJEKTTYP)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@ER"& _ "STELLTWER,@OBJEKTTYP); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, Z"& _ "IEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEAND"& _ "ERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART 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, 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("@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)&" GEANDERTWE"& _ "R = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP"&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, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG,"& _ " AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN F"& _ "ROM 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("@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_Organizer.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, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _ "RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _ "SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _ "ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _ "T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _ "RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _ "SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _ "ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _ "T"&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 Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If 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, ByVal LANGUAGE As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,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 GetDataByPMO(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If 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 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 (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ERSTELLTWER,String) End If If (OBJEKTTYP Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).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 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 (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEANDERTWER,String) End If If (OBJEKTTYP Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(OBJEKTTYP,String) End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, 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") tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_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 TBDD_INDEX_AUTOM"&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_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_ACTIVE, SQL_RESULT, ENTITY_I"& _ "D)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE"& _ ",@ADDED_WHO,@SQL_ACTIVE,@SQL_RESULT,@ENTITY_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, IND"& _ "EXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _ "O, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOP"& _ "E_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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_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 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, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "SQL_ACTIVE = @SQL_ACTIVE, SQL_RESULT = @SQL_RESULT, ENTITY_ID = @ENTITY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ "E (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, "& _ "CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ ", SQL_ACTIVE, SQL_RESULT 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("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT, ENTIT"& _ "Y_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&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) 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 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, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String, ByVal ENTITY_ID As Integer) 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 Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_ACTIVE,Boolean) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_RESULT,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(ENTITY_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal 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 SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String, ByVal ENTITY_ID As Integer, 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(SQL_ACTIVE,Boolean) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_RESULT,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ENTITY_ID,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) 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 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_Organizer.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_Organizer.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") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT") tableMapping.ColumnMappings.Add("DATE_FORMAT", "DATE_FORMAT") tableMapping.ColumnMappings.Add("GENERAL_VIEWER", "GENERAL_VIEWER") 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, LANGUAGE, SHORTNAME, COMM"& _ "ENT, WAN_ENVIRONMENT, DATE_FORMAT, GENERAL_VIEWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAM"& _ "E,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN"& _ "_ENVIRONMENT,@DATE_FORMAT,@GENERAL_VIEWER); "&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 ="& _ " 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHORTNAME = @SHORTN"& _ "AME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT, DATE_FORMAT = @DATE"& _ "_FORMAT, GENERAL_VIEWER = @GENERAL_VIEWER"&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, LO"& _ "G_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ "ED_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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, 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)&" LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT,"& _ " DATE_FORMAT, GENERAL_VIEWER"&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_RE"& _ "CORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY USERNAME" 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, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal GENERAL_VIEWER 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 If (LANGUAG Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAG") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG,String) End If If (SHORTNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean) If (DATE_FORMAT Is Nothing) Then Throw New Global.System.ArgumentNullException("DATE_FORMAT") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(DATE_FORMAT,String) End If If (GENERAL_VIEWER Is Nothing) Then Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(GENERAL_VIEWER,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 LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal DATE_FORMAT As String, ByVal GENERAL_VIEWER 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 If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE,String) End If If (SHORTNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORTNAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean) If (DATE_FORMAT Is Nothing) Then Throw New Global.System.ArgumentNullException("DATE_FORMAT") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DATE_FORMAT,String) End If If (GENERAL_VIEWER Is Nothing) Then Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GENERAL_VIEWER,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(13).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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_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") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") 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, COMMENT)"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, AD"& _ "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_ID"& _ "ENTITY())" 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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, COMMENT = @COMMENT"&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 G"& _ "UID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUP"& _ "S 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMME"& _ "NT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_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, ByVal COMMENT 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 If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,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 COMMENT 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 If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,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 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT 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") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") 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"&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_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ "WHO, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO,@COMMENT); "&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 T"& _ "BDD_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, 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("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, 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, 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ "@GROUP_ID, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"&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, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGE"& _ "D_WHO, CHANGED_WHEN 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, 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("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, 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("@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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ "D_WHEN, COMMENT"&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) 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 GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal COMMENT As String) 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 (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,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 GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal COMMENT 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(GROUP_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 If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,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 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_Organizer.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") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _ "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_TITLE,@SEQUENCE_"& _ "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MEN"& _ "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM "& _ "TBPMO_FORM_CONSTRUCTOR 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, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _ " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _ "G, SHORT_TITLE = @SHORT_TITLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE = @LANGUAGE"&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_TITLE, SEQUENCE_MENU,"& _ " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TB"& _ "PMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER"& _ "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_"& _ "WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, MENU_IMG, SHORT_TITL"& _ "E, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT DISTINCT CONSTRUCT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBPMO_CLIENT_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "WHERE (CLIENT_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT CLIENT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBDD_CLIENT_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (USER_ID = @USER_ID)))))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) 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) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) 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 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(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_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") tableMapping.ColumnMappings.Add("IDXNAME_RECORDID", "IDXNAME_RECORDID") tableMapping.ColumnMappings.Add("IDXNAME_DOCTYPE", "IDXNAME_DOCTYPE") tableMapping.ColumnMappings.Add("IDXNAME_RELATION", "IDXNAME_RELATION") 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, IDXNAME_DOCTYPE, IDXNAME_RECORDID, IDXNAME"& _ "_RELATION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TYPE,@IDXNAME_ENTITYID,@IDXNAME_PARENTID,@ADD"& _ "ED_WHO,@IDXNAME_DOCTYPE,@IDXNAME_RECORDID,@IDXNAME_RELATION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, O"& _ "BJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ "HO, 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RELATION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RELATION", 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)&" IDXNAME_RECORDID = @IDXNAME_R"& _ "ECORDID, IDXNAME_DOCTYPE = @IDXNAME_DOCTYPE, IDXNAME_RELATION = @IDXNAME_RELATIO"& _ "N"&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, OBJECT_TYPE, IDXNAME_E"& _ "NTITYID, 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("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RELATION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RELATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_RECORDID, IDXNAME_DOCTYPE, IDXNAME"& _ "_RELATION"&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, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_RELATION 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 If (IDXNAME_DOCTYPE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDXNAME_DOCTYPE,String) End If If (IDXNAME_RECORDID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDXNAME_RECORDID,String) End If If (IDXNAME_RELATION Is Nothing) Then Throw New Global.System.ArgumentNullException("IDXNAME_RELATION") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(IDXNAME_RELATION,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 IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION 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 If (IDXNAME_RECORDID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDXNAME_RECORDID,String) End If If (IDXNAME_DOCTYPE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDXNAME_DOCTYPE,String) End If If (IDXNAME_RELATION Is Nothing) Then Throw New Global.System.ArgumentNullException("IDXNAME_RELATION") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(IDXNAME_RELATION,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_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") tableMapping.ColumnMappings.Add("CONSTRUCTOR_ID", "CONSTRUCTOR_ID") tableMapping.ColumnMappings.Add("CTRL_USER_DIRECT", "CTRL_USER_DIRECT") tableMapping.ColumnMappings.Add("CTRL_GROUP_DIRECT", "CTRL_GROUP_DIRECT") 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, CONSTRUCTOR_ID, CTRL_USER_DIRECT, CTRL_GROU"& _ "P_DIRECT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FOLLOW_UP_SEQUENCE,@FOLLOW_UP_DAYS,@FOLLOW_UP_TIME_SP"& _ "AN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT_DONE_CTRL_ID,@PARENT_ID,@TIME_UNITY,@TIME_"& _ "SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROCESS_SELECT1,@PROCESS_SELECT2,@PROCESS_SELEC"& _ "T3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WHO,@TIME_DIST,@NAME,@CONSTRUCTOR_ID,@CTRL_US"& _ "ER_DIRECT,@CTRL_GROUP_DIRECT); "&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_ID, DEPENDENT_DONE_CTRL_ID, PAREN"& _ "T_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS"& _ "_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ "ED_WHO, CHANGED_WHEN FROM TBPMO_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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCTOR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCTOR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_USER_DIRECT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_USER_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_GROUP_DIRECT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_GROUP_DIRECT", 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, CONSTRUCTOR_ID = @CONSTRUCTOR_ID, CTRL_USER_DIRECT = "& _ "@CTRL_USER_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRL_GROUP_DIRECT = @CTRL_GROUP_DI"& _ "RECT"&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_SEQUENC"& _ "E, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_C"& _ "TRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SEL"& _ "ECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDE"& _ "D_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("@CONSTRUCTOR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCTOR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_USER_DIRECT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_USER_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_GROUP_DIRECT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_GROUP_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, 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, CONSTRUCTOR_ID, CTRL_USER_DIRECT, CTRL_GROUP_DIRECT"&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, _ ByVal CONSTRUCTOR_ID As Integer, _ ByVal CTRL_USER_DIRECT As Integer, _ ByVal CTRL_GROUP_DIRECT As Integer) 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 Me.Adapter.InsertCommand.Parameters(18).Value = CType(CONSTRUCTOR_ID,Integer) Me.Adapter.InsertCommand.Parameters(19).Value = CType(CTRL_USER_DIRECT,Integer) Me.Adapter.InsertCommand.Parameters(20).Value = CType(CTRL_GROUP_DIRECT,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal 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 CONSTRUCTOR_ID As Integer, _ ByVal CTRL_USER_DIRECT As Integer, _ ByVal CTRL_GROUP_DIRECT As Integer, _ 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(CONSTRUCTOR_ID,Integer) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(CTRL_USER_DIRECT,Integer) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(CTRL_GROUP_DIRECT,Integer) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(28).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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID 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 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") tableMapping.ColumnMappings.Add("PORT", "PORT") 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, PORT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMA"& _ "IL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO,@PORT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ "UID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDE"& _ "D_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_ID"& _ "ENTITY())" 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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", 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)&" PO"& _ "RT = @PORT"&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, EMAIL_FR"& _ "OM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ ", CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT 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("@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("@PORT", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACT"& _ "IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAI"& _ "L_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, ByVal PORT As Integer) 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 Me.Adapter.InsertCommand.Parameters(7).Value = CType(PORT,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal 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 PORT As Integer, 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(PORT,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") tableMapping.ColumnMappings.Add("SERVER", "SERVER") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESC"& _ "RIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION"& _ ")) 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 [P"& _ "ASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = "& _ "1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Or"& _ "iginal_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Orig"& _ "inal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([C"& _ "HANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGE"& _ "D_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 [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ " [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @"& _ "DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN"& _ ", @GEANDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER"& _ ", DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _ "ANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_"& _ "PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [P"& _ "ASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @A"& _ "DDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHE"& _ "N] = @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] = @Origin"& _ "al_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = "& _ "@Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATAB"& _ "ASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) O"& _ "R ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] I"& _ "S NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COM"& _ "MENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKT"& _ "IVE) 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)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION"& _ ", SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_W"& _ "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CONNECTION WHERE (GUID = @GU"& _ "ID)" 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FR"& _ "OM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable = New DD_DMSDataSet.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_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, "TBDD_CONNECTION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, 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 BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If If (SERVER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) End If If (DATENBANK Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) End If If (USERNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) End If If (PASSWORD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) End If Me.Adapter.InsertCommand.Parameters(9).Value = CType(ERSTELLTWANN,Date) If (GEANDERTWER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(GEANDERTWER,String) End If If (GEAENDERTWANN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal 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") tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") tableMapping.ColumnMappings.Add("CONTROL_DOCTYPE_MATCH", "CONTROL_DOCTYPE_MATCH") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ "CH_PATTERN5, CONTROL_DOCTYPE_MATCH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARE"& _ "NT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,"& _ "@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@"& _ "SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ "LECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT"& _ "_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CO"& _ "LUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEA"& _ "RCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAI"& _ "L WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, 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, 50, 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, 50, 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, 50, 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, 50, 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, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_"& _ "VIEW = @SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH = @CONTROL_DOCTYPE_MATCH"&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, 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, S"& _ "EARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTER"& _ "N5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, 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, 50, 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, 50, 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, 50, 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, 50, 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, 50, 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("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_QUICK_VIEW", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_QUICK_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} 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, LOAD_DIRECT, SQL_QUICK_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONTROL_DOCTYPE_MATCH"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COL"& _ "UMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN"& _ "1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4,"& _ " SEARCH_PATTERN5, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARC"& _ "H, LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO"& _ "_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(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 FillByID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) 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 GetDataByID(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(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) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal CONSTRUCT_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal 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 CONTROL_DOCTYPE_MATCH As Integer) 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 If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CONSTRUCT_ID As Integer, _ ByVal FORM_ID As Integer, _ ByVal PARENT_ID As Integer, _ ByVal LEVEL1_SELECT As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal CHANGED_WHO As String, _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal 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 LOAD_DIRECT As Boolean, _ ByVal SQL_QUICK_VIEW As String, _ ByVal CONTROL_DOCTYPE_MATCH As Integer, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then 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 (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) End If If (WINDREAM_SEARCH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) End If If (SEARCH_PATTERN1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) End If If (SEARCH_PATTERN2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) End If If (SEARCH_PATTERN3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) End If If (SEARCH_PATTERN4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) End If If (SEARCH_PATTERN5 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT,Boolean) If (SQL_QUICK_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_QUICK_VIEW") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_QUICK_VIEW,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) 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 End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWDDINDEX_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 = "VWDDINDEX_AUTOM" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") tableMapping.ColumnMappings.Add("SERVER", "SERVER") tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") tableMapping.ColumnMappings.Add("VALUE", "VALUE") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ "SULT, SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AU"& _ "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).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, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_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 DOCTYPE_ID As Integer) As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) Dim dataTable As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable = New DD_DMSDataSet.VWDDINDEX_AUTOMDataTable() 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_TEMPLATETableAdapter 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_TEMPLATE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("TEMPLATE_PATH", "TEMPLATE_PATH") 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("DOCTYPE_ID", "DOCTYPE_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_TEMPLATE"&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_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TEMPLATE_PATH, DOCTYP"& _ "E_ID, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TEMPLATE_PATH,@DOCTYPE_ID,@ACTIV"& _ "E,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TEMPLATE_PATH, DOCTYPE_ID, ACTIVE, ADDED_WHO"& _ ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE WHERE (GUID = SCOPE_"& _ "IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@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 TBPMO_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TEMPLATE_PATH = @TE"& _ "MPLATE_PATH, DOCTYPE_ID = @DOCTYPE_ID, ACTIVE = @ACTIVE, 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, NAME, TEMPLATE_PATH, D"& _ "OCTYPE_ID, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_T"& _ "EMPLATE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) 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("@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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, TEMPLATE_PATH, DOCTYPE_ID, ACTIVE, ADDED_WHO, ADDED_WHE"& _ "N, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_TEMPLATE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable) 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_TEMPLATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable = New DD_DMSDataSet.TBPMO_TEMPLATEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable) 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_TEMPLATE") 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 TEMPLATE_PATH As String, ByVal DOCTYPE_ID As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If If (TEMPLATE_PATH Is Nothing) Then Throw New Global.System.ArgumentNullException("TEMPLATE_PATH") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(TEMPLATE_PATH,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(DOCTYPE_ID,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).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 TEMPLATE_PATH As String, ByVal DOCTYPE_ID As Integer, 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 Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (TEMPLATE_PATH Is Nothing) Then Throw New Global.System.ArgumentNullException("TEMPLATE_PATH") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TEMPLATE_PATH,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DOCTYPE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_TEMPLATE_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 = "TBPMO_TEMPLATE_ENTITY" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("TEMPLATE_ID", "TEMPLATE_ID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") 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_TEMPLATE_ENTITY"&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_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TEMPLATE_ID, ENTITY_"& _ "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TEMPLATE_ID,@ENTITY_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ "D, TEMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_TEMPLA"& _ "TE_ENTITY WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TEMPLATE_ID = @TEMPLATE_ID"& _ ", ENTITY_ID = @ENTITY_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, T"& _ "EMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_TEMPLATE_E"& _ "NTITY WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, TEMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "FROM TBPMO_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TEMPLATE_ID = @TEMPL_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable, ByVal TEMPL_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_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 TEMPL_ID As Integer) As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable = New DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable) 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_TEMPLATE_ENTITY") 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 TEMPLATE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEMPLATE_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value 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 TEMPLATE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TEMPLATE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_TEMPLATE_PATTERNTableAdapter 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_TEMPLATE_PATTERN" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME_PATTERN", "NAME_PATTERN") tableMapping.ColumnMappings.Add("FIXED_VALUE", "FIXED_VALUE") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") 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("TEMPLATE_ENT_ID", "TEMPLATE_ENT_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_TEMPLATE_PATTERN"&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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TEMPLATE_ENT_ID, NA"& _ "ME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _ "@TEMPLATE_ENT_ID,@NAME_PATTERN,@FIXED_VALUE,@CONNECTION_ID,@SQL_COMMAND,@ADDED_W"& _ "HO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TEMPLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, S"& _ "QL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE"& _ "_PATTERN WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_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.Int, 4, 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("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TEMPLATE_ENT_ID = @TEMPLA"& _ "TE_ENT_ID, NAME_PATTERN = @NAME_PATTERN, FIXED_VALUE = @FIXED_VALUE, CONNECTION_"& _ "ID = @CONNECTION_ID, SQL_COMMAND = @SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 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, TEM"& _ "PLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO, "& _ "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE_PATTERN WHERE (GUID = "& _ "@GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_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.Int, 4, 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("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_Organizer.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, TEMPLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQ"& _ "L_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBP"& _ "MO_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TEMPLATE_ENT_ID = @TEMPL_ENT_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPL_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME_PATTERN, ADDED"& _ "_WHO, TEMPLATE_ENT_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME_PATTERN,@ADDED_WHO,@TEMPLATE_ENT_ID"& _ ")" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", 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(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable, ByVal TEMPL_ENT_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ENT_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 TEMPL_ENT_ID As Integer) As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ENT_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable = New DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable) 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_TEMPLATE_PATTERN") 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 TEMPLATE_ENT_ID As Integer, ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Integer), ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEMPLATE_ENT_ID,Integer) If (NAME_PATTERN Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME_PATTERN") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME_PATTERN,String) End If If (FIXED_VALUE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(FIXED_VALUE,String) End If If (CONNECTION_ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (SQL_COMMAND Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SQL_COMMAND,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value 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 TEMPLATE_ENT_ID As Integer, ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Integer), ByVal SQL_COMMAND As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TEMPLATE_ENT_ID,Integer) If (NAME_PATTERN Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME_PATTERN") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME_PATTERN,String) End If If (FIXED_VALUE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FIXED_VALUE,String) End If If (CONNECTION_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (SQL_COMMAND Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SQL_COMMAND,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If 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 _ Public Overloads Overridable Function cmdInsertBasics(ByVal NAME_PATTERN As String, ByVal ADDED_WHO As String, ByVal TEMPLATE_ENT_ID As Integer) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (NAME_PATTERN Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME_PATTERN") Else command.Parameters(0).Value = CType(NAME_PATTERN,String) End If If (ADDED_WHO Is Nothing) Then command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(ADDED_WHO,String) End If command.Parameters(2).Value = CType(TEMPLATE_ENT_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 Object Try returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then Return Nothing Else Return CType(returnValue,Object) End If End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBTEMP_QUICKDISPLAYTableAdapter 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 = "TBTEMP_QUICKDISPLAY" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("COL_NAME", "COL_NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL "& _ "T1 WHERE T.CONTROL_ID = T1.GUID AND T.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.TBTEMP_QUICKDISPLAYDataTable, 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.TBTEMP_QUICKDISPLAYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Dim dataTable As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable = New DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable() 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_LANGUAGE_OBJECTTableAdapter 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_LANGUAGE_OBJECT" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("LANGUAGE_TYPE", "LANGUAGE_TYPE") tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") tableMapping.ColumnMappings.Add("PMO_OBJECT_NAME", "PMO_OBJECT_NAME") tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") tableMapping.ColumnMappings.Add("HINT", "HINT") 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_LANGUAGE_OBJECT] WHERE (([GUID] = @Original_GUID) AND ([LANGUA"& _ "GE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND "& _ "([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTI"& _ "ON) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND"& _ " ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHE"& _ "N] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO "& _ "= 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ("& _ "(@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Orig"& _ "inal_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_LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HINT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_LANGUAGE_OBJECT] ([LANGUAGE_TYPE], [SCREEN_ID], [PMO_OBJECT_NA"& _ "ME], [CAPTION], [HINT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]"& _ ") VALUES (@LANGUAGE_TYPE, @SCREEN_ID, @PMO_OBJECT_NAME, @CAPTION, @HINT, @ADDED_"& _ "WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANGUAGE_TYPE, SCR"& _ "EEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ "GED_WHEN FROM TBPMO_LANGUAGE_OBJECT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, 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("@PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", 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_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] "& _ "= @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT]"& _ " = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = "& _ "@CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AN"& _ "D ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREE"& _ "N_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Orig"& _ "inal_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_"& _ "HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND "& _ "[ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CH"& _ "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ "N] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJE"& _ "CT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ "PMO_LANGUAGE_OBJECT WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, 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("@PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", 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_LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HINT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_LANGUAGE_OBJECT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_LANGUAGE_OBJECT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable) 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_LANGUAGE_OBJECTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable = New DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable) 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_LANGUAGE_OBJECT") 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_LANGUAGE_TYPE As String, ByVal Original_SCREEN_ID As Integer, ByVal Original_PMO_OBJECT_NAME As String, ByVal Original_CAPTION As String, ByVal Original_HINT 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_LANGUAGE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE_TYPE") Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LANGUAGE_TYPE,String) End If Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SCREEN_ID,Integer) If (Original_PMO_OBJECT_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_PMO_OBJECT_NAME") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PMO_OBJECT_NAME,String) End If If (Original_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CAPTION") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CAPTION,String) End If If (Original_HINT 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_HINT,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If 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 LANGUAGE_TYPE As String, ByVal SCREEN_ID As Integer, ByVal PMO_OBJECT_NAME As String, ByVal CAPTION As String, ByVal HINT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (LANGUAGE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE_TYPE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(LANGUAGE_TYPE,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) If (PMO_OBJECT_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PMO_OBJECT_NAME") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(PMO_OBJECT_NAME,String) End If If (CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("CAPTION") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(CAPTION,String) End If If (HINT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(HINT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal LANGUAGE_TYPE As String, _ ByVal SCREEN_ID As Integer, _ ByVal PMO_OBJECT_NAME As String, _ ByVal CAPTION As String, _ ByVal HINT As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_LANGUAGE_TYPE As String, _ ByVal Original_SCREEN_ID As Integer, _ ByVal Original_PMO_OBJECT_NAME As String, _ ByVal Original_CAPTION As String, _ ByVal Original_HINT As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer If (LANGUAGE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE_TYPE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LANGUAGE_TYPE,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) If (PMO_OBJECT_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PMO_OBJECT_NAME") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PMO_OBJECT_NAME,String) End If If (CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("CAPTION") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CAPTION,String) End If If (HINT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HINT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) If (Original_LANGUAGE_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE_TYPE") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_LANGUAGE_TYPE,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SCREEN_ID,Integer) If (Original_PMO_OBJECT_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_PMO_OBJECT_NAME") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PMO_OBJECT_NAME,String) End If If (Original_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_CAPTION") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CAPTION,String) End If If (Original_HINT 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_HINT,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(23).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 LANGUAGE_TYPE As String, _ ByVal SCREEN_ID As Integer, _ ByVal PMO_OBJECT_NAME As String, _ ByVal CAPTION As String, _ ByVal HINT As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_LANGUAGE_TYPE As String, _ ByVal Original_SCREEN_ID As Integer, _ ByVal Original_PMO_OBJECT_NAME As String, _ ByVal Original_CAPTION As String, _ ByVal Original_HINT As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_LANGUAGE_TYPE, Original_SCREEN_ID, Original_PMO_OBJECT_NAME, Original_CAPTION, Original_HINT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_CLIENTTableAdapter 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_CLIENT" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CLIENT"&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_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CLIENT_NAME, SHORTNAME, COMMEN"& _ "T, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CLIENT_NAME,@SHORTNAME,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ "LECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, "& _ "CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 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_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CLIENT_NAME = @CLIENT_NAME, SHORTNAM"& _ "E = @SHORTNAME, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GU"& _ "ID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO,"& _ " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, 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("@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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANG"& _ "ED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable) 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_CLIENTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable = New DD_DMSDataSet.TBDD_CLIENTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable) 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_CLIENT") 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 CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer If (CLIENT_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("CLIENT_NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_NAME,String) End If If (SHORTNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORTNAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If 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 CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (CLIENT_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("CLIENT_NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_NAME,String) End If If (SHORTNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORTNAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,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_CONSTRUCTOR_USER_SQLTableAdapter 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_CONSTRUCTOR_USER_SQL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") 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("CONSTR_DET_ID", "CONSTR_DET_ID") tableMapping.ColumnMappings.Add("USER_ID", "USER_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_CONSTRUCTOR_USER_SQL"&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_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTR_DET_ID, "& _ "USER_ID, SQL_COMMAND, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTR_DET_ID,@USER_ID,@SQL_CO"& _ "MMAND,@ADDED_WHO)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTR_DET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTR_DET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SQL_COMMAND = @SQL_CO"& _ "MMAND, 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)&"SELEC"& _ "T GUID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO"& _ "_CONSTRUCTOR_USER_SQL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ ", CONSTR_DET_ID, USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (CONSTR_DET_ID = @CONSTR_DET_ID) AND (USER_ID = @USERID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTR_DET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTR_DET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable, ByVal CONSTR_DET_ID As Integer, ByVal USERID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERID,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 CONSTR_DET_ID As Integer, ByVal USERID As Integer) As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable = New DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable) 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_CONSTRUCTOR_USER_SQL") 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 CONSTR_DET_ID As Integer, ByVal USER_ID As Integer, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) If (SQL_COMMAND Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value 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 SQL_COMMAND As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (SQL_COMMAND Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SQL_COMMAND,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 TBPMO_WD_IMPORT_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WD_IMPORT_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") tableMapping.ColumnMappings.Add("UNIQUE_DOC_SQL", "UNIQUE_DOC_SQL") tableMapping.ColumnMappings.Add("NEW_OBJECTTYPE", "NEW_OBJECTTYPE") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("SQL_DOCTYPE", "SQL_DOCTYPE") tableMapping.ColumnMappings.Add("OLD_OBJECTTYPE", "OLD_OBJECTTYPE") tableMapping.ColumnMappings.Add("IDX_FILE_WORKED", "IDX_FILE_WORKED") tableMapping.ColumnMappings.Add("SQL_PARENT_RECORD", "SQL_PARENT_RECORD") tableMapping.ColumnMappings.Add("ONLY_RECORD_CREATING", "ONLY_RECORD_CREATING") 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_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, WD_SEARCH, U"& _ "NIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE,"& _ " OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "ONLY_RECORD_CREATING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJE"& _ "CTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FI"& _ "LE_WORKED,@SQL_PARENT_RECORD,@ONLY_RECORD_CREATING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, "& _ "WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN,"& _ " CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDEN"& _ "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UNIQUE_DOC_SQL", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "UNIQUE_DOC_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NEW_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, 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("@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("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PARENT_RECORD", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PARENT_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONLY_RECORD_CREATING", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONLY_RECORD_CREATING", 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_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, WD_SEARCH "& _ "= @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE"& _ ", CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHAN"& _ "GED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @O"& _ "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQ"& _ "L_PARENT_RECORD = @SQL_PARENT_RECORD, ONLY_RECORD_CREATING = @ONLY_RECORD_CREATI"& _ "NG"&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, WD_SEARCH, "& _ "UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _ "O, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UNIQUE_DOC_SQL", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "UNIQUE_DOC_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NEW_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, 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("@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("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PARENT_RECORD", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PARENT_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONLY_RECORD_CREATING", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONLY_RECORD_CREATING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_I"& _ "D, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD"& _ "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY"& _ "_RECORD_CREATING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_IMPORT_PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable = New DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable) 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_IMPORT_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter 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_IMPORT_PROFILE_IDX" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") tableMapping.ColumnMappings.Add("STRING1", "STRING1") tableMapping.ColumnMappings.Add("STRING2", "STRING2") tableMapping.ColumnMappings.Add("SQL1", "SQL1") tableMapping.ColumnMappings.Add("SQL2", "SQL2") 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_IMPORT_PROFILE_IDX"&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_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, ST"& _ "RING1, STRING2, SQL1, SQL2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@STRING1,@STR"& _ "ING2,@SQL1,@SQL2,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1,"& _ " SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PRO"& _ "FILE_IDX WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL1", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", 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_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFIL"& _ "E_ID, STRING1 = @STRING1, STRING2 = @STRING2, SQL1 = @SQL1, SQL2 = @SQL2, CHANGE"& _ "D_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, PROFI"& _ "LE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ "_WHEN FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL1", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_IMPORT_PROFILE_IDX.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_IMPORT_PROF"& _ "ILE_IDX where PROFILE_ID = @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, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable, 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_WD_IMPORT_PROFILE_IDXDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable = New DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable) 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_IMPORT_PROFILE_IDX") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 As String, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (STRING1 Is Nothing) Then Throw New Global.System.ArgumentNullException("STRING1") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(STRING1,String) End If If (STRING2 Is Nothing) Then Throw New Global.System.ArgumentNullException("STRING2") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(STRING2,String) End If If (SQL1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(SQL1,String) End If If (SQL2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SQL2,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value 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 PROFILE_ID As Integer, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (STRING1 Is Nothing) Then Throw New Global.System.ArgumentNullException("STRING1") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(STRING1,String) End If If (STRING2 Is Nothing) Then Throw New Global.System.ArgumentNullException("STRING2") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(STRING2,String) End If If (SQL1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SQL1,String) End If If (SQL2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SQL2,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If 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_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("WF_ID", "WF_ID") tableMapping.ColumnMappings.Add("WF_TITLE", "WF_TITLE") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") tableMapping.ColumnMappings.Add("STATE_TITLE", "STATE_TITLE") tableMapping.ColumnMappings.Add("FORM_VIEW_ID", "FORM_VIEW_ID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") 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") tableMapping.ColumnMappings.Add("FINAL", "FINAL") tableMapping.ColumnMappings.Add("COLOR", "COLOR") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("RECORD_DESCRIPTION", "RECORD_DESCRIPTION") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") tableMapping.ColumnMappings.Add("Expr1", "Expr1") tableMapping.ColumnMappings.Add("FINISHED", "FINISHED") tableMapping.ColumnMappings.Add("MANUALLY", "MANUALLY") tableMapping.ColumnMappings.Add("CREATE_ON_REC_CREATE", "CREATE_ON_REC_CREATE") tableMapping.ColumnMappings.Add("CREATE_ON_FOLL_UP", "CREATE_ON_FOLL_UP") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITL"& _ "E' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVER"& _ "T(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_G"& _ "ETOBJECTCAPTION(@LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 'FORMVIEW_TITLE' + CONVERT"& _ "(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN,"& _ " CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "@USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESC"& _ "RIPTION, DESCRIPTION, RECORD_DESCRIPTION AS Expr1, FINISHED, MANUALLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " CREATE_ON_REC_CREATE, CREATE_ON_FOLL_UP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO"& _ "_WF_ACTIVE AS T"&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_W"& _ "F_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 VWPMO_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (UPPER(USERNAME) = UPPER"& _ "(@USER))))))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITL"& _ "E' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVER"& _ "T(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_G"& _ "ETOBJECTCAPTION(@LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 'FORMVIEW_TITLE' + CONVERT"& _ "(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN,"& _ " CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "@USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESC"& _ "RIPTION, DESCRIPTION, RECORD_DESCRIPTION AS Expr1, FINISHED, MANUALLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " CREATE_ON_REC_CREATE, CREATE_ON_FOLL_UP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO"& _ "_WF_ACTIVE AS T"&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_W"& _ "F_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 VWPMO_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (UPPER(USERNAME) = UPPER"& _ "(@USER)))))) AND (RECORD_ID = @RECORD_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(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_ACTIVEDataTable, ByVal LANGUAGE As String, ByVal USER As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(1).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 LANGUAGE As String, ByVal USER As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,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 LANGUAGE As String, ByVal USER As String, ByVal RECORD_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,String) End If Me.Adapter.SelectCommand.Parameters(2).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 GetDataByRecord(ByVal LANGUAGE As String, ByVal USER As String, ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If If (USER Is Nothing) Then Throw New Global.System.ArgumentNullException("USER") Else Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,String) End If Me.Adapter.SelectCommand.Parameters(2).Value = CType(RECORD_ID,Integer) 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 TBPMO_RIGHT_GROUPTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_RIGHT_GROUP" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") tableMapping.ColumnMappings.Add("VIEW_DOC", "VIEW_DOC") tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_RIGHT_GROUP"&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_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ENTITY_ID, GROUP_ID, EDI"& _ "T_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@ENTITY_ID,@GROUP_ID,@EDIT_REC,@ADD_REC,@DELETE_REC,@ADD_DOC,@VIEW_DOC,@DE"& _ "LETE_DOC,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DEL"& _ "ETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ "GED_WHEN FROM TBPMO_RIGHT_GROUP WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, 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("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", 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_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ENTITY_ID = @ENTITY_ID, GROUP_"& _ "ID = @GROUP_ID, EDIT_REC = @EDIT_REC, ADD_REC = @ADD_REC, DELETE_REC = @DELETE_R"& _ "EC, ADD_DOC = @ADD_DOC, VIEW_DOC = @VIEW_DOC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DELETE_"& _ "DOC = @DELETE_DOC, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC,"& _ " VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBP"& _ "MO_RIGHT_GROUP WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, 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("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_RIGHT_GROUP.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RIGHT_GROUP" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable = New DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) 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_RIGHT_GROUP") 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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADD_REC,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(VIEW_DOC,Boolean) Me.Adapter.InsertCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADD_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(VIEW_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If 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 TBPMO_WD_NAMECONVENTION_FORMATTableAdapter 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_NAMECONVENTION_FORMAT" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("PATTERN", "PATTERN") tableMapping.ColumnMappings.Add("FORMAT_RULE", "FORMAT_RULE") 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_NAMECONVENTION_FORMAT"&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_NAMECONVENTION_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ID, PATTERN"& _ ", FORMAT_RULE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@ID,@PATTERN,@FORMAT_RULE,@ADDED_WHO);"& _ " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ "ANGED_WHEN FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMAT_RULE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMAT_RULE", 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_NAMECONVENTION_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ID = @ID, PATTERN"& _ " = @PATTERN, FORMAT_RULE = @FORMAT_RULE, 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, ID, PATTERN, FORMAT_RULE, ADDED_WHO, A"& _ "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ("& _ "GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMAT_RULE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMAT_RULE", 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_NAMECONVENTION_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (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, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable, 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_NAMECONVENTION_FORMATDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable = New DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable) 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_NAMECONVENTION_FORMAT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter 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_STRUCTURE_NODES_CONFIGURATION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("TYPE_NODE", "TYPE_NODE") tableMapping.ColumnMappings.Add("NODE_IMAGE", "NODE_IMAGE") tableMapping.ColumnMappings.Add("CREATE_RECORD", "CREATE_RECORD") 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("NAME", "NAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("PARENT_NODE", "PARENT_NODE") 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_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_G"& _ "UID)" 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_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ENTITY"& _ "_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, NAME, COMMENT, PARENT_NODE"& _ ")"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@ENTITY_ID,@TYPE_NODE,@NODE_IMAGE,@CREATE_RECORD,@ADDED_WHO,@N"& _ "AME,@COMMENT,@PARENT_NODE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, C"& _ "REATE_RECORD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_STRUCT"& _ "URE_NODES_CONFIGURATION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_NODE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_NODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NODE_IMAGE", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "NODE_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_RECORD", 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("@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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 300, 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("@PARENT_NODE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_NODE", 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_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ENTITY_ID = "& _ "@ENTITY_ID, TYPE_NODE = @TYPE_NODE, NODE_IMAGE = @NODE_IMAGE, CREATE_RECORD = @C"& _ "REATE_RECORD, CHANGED_WHO = @CHANGED_WHO, NAME = @NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " COMMENT = @COMMENT, PARENT_NODE = @PARENT_NODE"&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, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED"& _ "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_STRUCTURE_NODES_CONFIGURA"& _ "TION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_NODE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_NODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NODE_IMAGE", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "NODE_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_RECORD", 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("@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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 300, 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("@PARENT_NODE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_NODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, A"& _ "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBPMO_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ENTITY_ID = @ENTITY_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OR"& _ "DER BY ENTITY_ID, TYPE_NODE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_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 = "SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, A"& _ "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBPMO_STRUCTURE_NODES_CONFIGURATION where GUID = @GUID" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable, ByVal ENTITY_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal ENTITY_ID As Integer) As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) 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 GetDataByID(ByVal GUID As Integer) As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable) 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_STRUCTURE_NODES_CONFIGURATION") 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 ENTITY_ID As Integer, ByVal TYPE_NODE As Short, ByVal NODE_IMAGE() As Byte, ByVal CREATE_RECORD As Boolean, ByVal ADDED_WHO As String, ByVal NAME As String, ByVal COMMENT As String, ByVal PARENT_NODE As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYPE_NODE,Short) If (NODE_IMAGE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(NODE_IMAGE,Byte()) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(CREATE_RECORD,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(NAME,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(PARENT_NODE,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal ENTITY_ID As Integer, ByVal TYPE_NODE As Short, ByVal NODE_IMAGE() As Byte, ByVal CREATE_RECORD As Boolean, ByVal CHANGED_WHO As String, ByVal NAME As String, ByVal COMMENT As String, ByVal PARENT_NODE As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYPE_NODE,Short) If (NODE_IMAGE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(NODE_IMAGE,Byte()) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CREATE_RECORD,Boolean) 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 (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(NAME,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(PARENT_NODE,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBWH_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 = "TBWH_ENTITY" tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "select T1.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION](@USER_LANG,'FORMVIEW_TITLE' + C"& _ "ONVERT(VARCHAR(5), T1.GUID), 1) AS 'FORM_TITLE' FROM TBPMO_FORM_VIEW T1 WHERE T1"& _ ".SCREEN_ID = 1 ORDER BY T1.FORM_TITLE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_LANG", 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.TBWH_ENTITYDataTable, ByVal USER_LANG As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER_LANG Is Nothing) Then Throw New Global.System.ArgumentNullException("USER_LANG") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANG,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_LANG As String) As DD_DMSDataSet.TBWH_ENTITYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (USER_LANG Is Nothing) Then Throw New Global.System.ArgumentNullException("USER_LANG") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANG,String) End If Dim dataTable As DD_DMSDataSet.TBWH_ENTITYDataTable = New DD_DMSDataSet.TBWH_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_WORKFLOW_TASK_HISTORYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK_HISTORY" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW_TASK_HISTORY] WHERE (([GUID] = @Original_GUID))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_WORKFLOW_TASK_HISTORY] SET [STATE_DESC] = @STATE_DESC, [COMMENT] = "& _ "@COMMENT, [ADDED_WHO] = @ADDED_WHO WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ "ID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHER"& _ "E (WF_TASK_ID = @WFT_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WFT_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.TBPMO_WORKFLOW_TASK_HISTORYDataTable, ByVal WFT_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(WFT_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 WFT_ID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(WFT_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORYDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORYDataTable) 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_HISTORY") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_RIGHTS_2B_WORKEDTableAdapter 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_RIGHTS_2B_WORKED" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("DOC_ID", "DOC_ID") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("RIGHT_MODIFY", "RIGHT_MODIFY") tableMapping.ColumnMappings.Add("FILE_RIGHT", "FILE_RIGHT") tableMapping.ColumnMappings.Add("WORKING", "WORKING") 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_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, DOC_ID, USERNAME, RIGHT_MODIFY, FILE_RIGHT, WORKING, ADDED_WH"& _ "O, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_RIGHTS_2B_WORKED" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RIGHTS_2B_WORKEDDataTable) 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_RIGHTS_2B_WORKEDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.VWPMO_RIGHTS_2B_WORKEDDataTable = New DD_DMSDataSet.VWPMO_RIGHTS_2B_WORKEDDataTable() 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_RIGHT_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_RIGHT_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") tableMapping.ColumnMappings.Add("READ_ONLY_DOC", "READ_ONLY_DOC") tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") tableMapping.ColumnMappings.Add("FILES_VISIBLE", "FILES_VISIBLE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_RIGHT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ "@Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Or"& _ "iginal_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Origin"& _ "al_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Origi"& _ "nal_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE"& _ "] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ "LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) 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_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_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_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_RIGHT_USER] ([USER_ID], [ENTITY_ID], [EDIT_REC], [ADD_REC], [D"& _ "ELETE_REC], [ADD_DOC], [READ_ONLY_DOC], [DELETE_DOC], [FILES_VISIBLE], [ADDED_WH"& _ "EN], [CHANGED_WHEN]) VALUES (@USER_ID, @ENTITY_ID, @EDIT_REC, @ADD_REC, @DELETE_"& _ "REC, @ADD_DOC, @READ_ONLY_DOC, @DELETE_DOC, @FILES_VISIBLE, @ADDED_WHEN, @CHANGE"& _ "D_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DO"& _ "C, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO"& _ "_RIGHT_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("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_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_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [ED"& _ "IT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC]"& _ " = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILE"& _ "S_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANG"& _ "ED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND"& _ " ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ("& _ "[ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([A"& _ "DD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND"& _ " ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VI"& _ "SIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] ="& _ " @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, ENTITY"& _ "_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VI"& _ "SIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_RIGHT_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("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_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_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDIT_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_REC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADD_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_DOC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILES_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILES_VISIBLE", 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_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_RIGHT_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RIGHT_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_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_RIGHT_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_RIGHT_USERDataTable = New DD_DMSDataSet.TBPMO_RIGHT_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_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_RIGHT_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_ENTITY_ID As Integer, ByVal Original_EDIT_REC As Boolean, ByVal Original_ADD_REC As Boolean, ByVal Original_DELETE_REC As Boolean, ByVal Original_ADD_DOC As Boolean, ByVal Original_READ_ONLY_DOC As Boolean, ByVal Original_DELETE_DOC As Boolean, ByVal Original_FILES_VISIBLE As Boolean, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), 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_ENTITY_ID,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_EDIT_REC,Boolean) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADD_REC,Boolean) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_DELETE_REC,Boolean) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADD_DOC,Boolean) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_READ_ONLY_DOC,Boolean) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DELETE_DOC,Boolean) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FILES_VISIBLE,Boolean) If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If 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 ENTITY_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal READ_ONLY_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal FILES_VISIBLE As Boolean, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), 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(ENTITY_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADD_REC,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) Me.Adapter.InsertCommand.Parameters(6).Value = CType(READ_ONLY_DOC,Boolean) Me.Adapter.InsertCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) Me.Adapter.InsertCommand.Parameters(8).Value = CType(FILES_VISIBLE,Boolean) If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value 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 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 ENTITY_ID As Integer, _ ByVal EDIT_REC As Boolean, _ ByVal ADD_REC As Boolean, _ ByVal DELETE_REC As Boolean, _ ByVal ADD_DOC As Boolean, _ ByVal READ_ONLY_DOC As Boolean, _ ByVal DELETE_DOC As Boolean, _ ByVal FILES_VISIBLE As Boolean, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_USER_ID As Integer, _ ByVal Original_ENTITY_ID As Integer, _ ByVal Original_EDIT_REC As Boolean, _ ByVal Original_ADD_REC As Boolean, _ ByVal Original_DELETE_REC As Boolean, _ ByVal Original_ADD_DOC As Boolean, _ ByVal Original_READ_ONLY_DOC As Boolean, _ ByVal Original_DELETE_DOC As Boolean, _ ByVal Original_FILES_VISIBLE As Boolean, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ 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(ENTITY_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADD_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(READ_ONLY_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FILES_VISIBLE,Boolean) If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value 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 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_USER_ID,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ENTITY_ID,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_EDIT_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADD_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_DELETE_REC,Boolean) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADD_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_READ_ONLY_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_DELETE_DOC,Boolean) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_FILES_VISIBLE,Boolean) If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If 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 _ Public Overloads Overridable Function Update( _ ByVal USER_ID As Integer, _ ByVal ENTITY_ID As Integer, _ ByVal EDIT_REC As Boolean, _ ByVal ADD_REC As Boolean, _ ByVal DELETE_REC As Boolean, _ ByVal ADD_DOC As Boolean, _ ByVal READ_ONLY_DOC As Boolean, _ ByVal DELETE_DOC As Boolean, _ ByVal FILES_VISIBLE As Boolean, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_USER_ID As Integer, _ ByVal Original_ENTITY_ID As Integer, _ ByVal Original_EDIT_REC As Boolean, _ ByVal Original_ADD_REC As Boolean, _ ByVal Original_DELETE_REC As Boolean, _ ByVal Original_ADD_DOC As Boolean, _ ByVal Original_READ_ONLY_DOC As Boolean, _ ByVal Original_DELETE_DOC As Boolean, _ ByVal Original_FILES_VISIBLE As Boolean, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_ENTITY_ID, Original_EDIT_REC, Original_ADD_REC, Original_DELETE_REC, Original_ADD_DOC, Original_READ_ONLY_DOC, Original_DELETE_DOC, Original_FILES_VISIBLE, Original_ADDED_WHEN, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_RECORD_VARIANTTableAdapter 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_VARIANT" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") tableMapping.ColumnMappings.Add("REASON_CODE", "REASON_CODE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, RECORD_ID, REASON_CODE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANG"& _ "ED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RECORD_VARIANT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD"& _ "_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBPMO_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ " (RECORD_ENTITY_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT RECORD_ENTITY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBPMO_RECORD AS TBPMO_RECORD_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WHERE (GUID = @RECORD"& _ "_ID))) AND (FORM_ID = @ENTITY_ID) AND (GUID <> @RECORD_ID)))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", 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, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_VARIANTDataTable, ByVal ENTITY_ID As Integer, ByVal RECORD_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) 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 GetData(ByVal ENTITY_ID As Integer, ByVal RECORD_ID As Integer) As DD_DMSDataSet.TBPMO_RECORD_VARIANTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD_ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_VARIANTDataTable = New DD_DMSDataSet.TBPMO_RECORD_VARIANTDataTable() 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_APPOINTMENTSTableAdapter 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_APPOINTMENTS" tableMapping.ColumnMappings.Add("UniqueID", "UniqueID") tableMapping.ColumnMappings.Add("Type", "Type") tableMapping.ColumnMappings.Add("StartDate", "StartDate") tableMapping.ColumnMappings.Add("EndDate", "EndDate") tableMapping.ColumnMappings.Add("AllDay", "AllDay") tableMapping.ColumnMappings.Add("Subject", "Subject") tableMapping.ColumnMappings.Add("Location", "Location") tableMapping.ColumnMappings.Add("Description", "Description") tableMapping.ColumnMappings.Add("Status", "Status") tableMapping.ColumnMappings.Add("Label", "Label") tableMapping.ColumnMappings.Add("ResourceID", "ResourceID") tableMapping.ColumnMappings.Add("ResourceIDs", "ResourceIDs") tableMapping.ColumnMappings.Add("ReminderInfo", "ReminderInfo") tableMapping.ColumnMappings.Add("RecurrenceInfo", "RecurrenceInfo") tableMapping.ColumnMappings.Add("CustomField1", "CustomField1") tableMapping.ColumnMappings.Add("CustomField2", "CustomField2") 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_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@"& _ "IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_"& _ "StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) A"& _ "ND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDat"& _ "e)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllD"& _ "ay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_"& _ "Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @O"& _ "riginal_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] ="& _ " @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @"& _ "Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([Res"& _ "ourceID] = @Original_ResourceID)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UniqueID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_StartDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EndDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AllDay", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Subject", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", 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_APPOINTMENTS] ([Type], [StartDate], [EndDate], [AllDay], [Subj"& _ "ect], [Location], [Description], [Status], [Label], [ResourceID], [ResourceIDs],"& _ " [ReminderInfo], [RecurrenceInfo], [CustomField1], [CustomField2]) VALUES (@Type"& _ ", @StartDate, @EndDate, @AllDay, @Subject, @Location, @Description, @Status, @La"& _ "bel, @ResourceID, @ResourceIDs, @ReminderInfo, @RecurrenceInfo, @CustomField1, @"& _ "CustomField2);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Loca"& _ "tion, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, Recurre"& _ "nceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = SC"& _ "OPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 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("@Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceIDs", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceIDs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReminderInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReminderInfo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RecurrenceInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RecurrenceInfo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField2", 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_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDat"& _ "e] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location,"& _ " [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID"& _ "] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, ["& _ "RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2"& _ "] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = "& _ "1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 "& _ "AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_E"& _ "ndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsN"& _ "ull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@Is"& _ "Null_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND "& _ "((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Locati"& _ "on)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Sta"& _ "tus)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label"& _ ")) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Or"& _ "iginal_ResourceID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subjec"& _ "t, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, "& _ "RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (Unique"& _ "ID = @UniqueID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 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("@Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ResourceIDs", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceIDs", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReminderInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReminderInfo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RecurrenceInfo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RecurrenceInfo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomField2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomField2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UniqueID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Type", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Type", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_StartDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StartDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StartDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EndDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EndDate", Global.System.Data.SqlDbType.SmallDateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EndDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AllDay", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AllDay", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AllDay", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Subject", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Subject", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Subject", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Location", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Location", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Location", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Label", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Label", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UniqueID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT T.UniqueID, T.Type, T.StartDate, T.EndDate, T.AllDay, T.Subject, T."& _ "Location, T.Description, T.Status, T.Label, T.ResourceID, T.ResourceIDs, T.Remin"& _ "derInfo, T.RecurrenceInfo, T.CustomField1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.CustomFi"& _ "eld2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_APPOINTMENTS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBPMO_RECORD AS T1 ON T.CustomField1 = T1.GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_APPOINTMENTSDataTable) 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_APPOINTMENTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSet.TBPMO_APPOINTMENTSDataTable = New DD_DMSDataSet.TBPMO_APPOINTMENTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_APPOINTMENTSDataTable) 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_APPOINTMENTS") 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_UniqueID As Integer, ByVal Original_Type As Global.System.Nullable(Of Integer), ByVal Original_StartDate As Global.System.Nullable(Of Date), ByVal Original_EndDate As Global.System.Nullable(Of Date), ByVal Original_AllDay As Global.System.Nullable(Of Boolean), ByVal Original_Subject As String, ByVal Original_Location As String, ByVal Original_Status As Global.System.Nullable(Of Integer), ByVal Original_Label As Global.System.Nullable(Of Integer), ByVal Original_ResourceID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UniqueID,Integer) If (Original_Type.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Type.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_StartDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_StartDate.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_EndDate.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_EndDate.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_AllDay.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_AllDay.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_Subject 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_Subject,String) End If If (Original_Location 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_Location,String) End If If (Original_Status.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Status.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_Label.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_Label.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_ResourceID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ResourceID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).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 Type As Global.System.Nullable(Of Integer), ByVal StartDate As Global.System.Nullable(Of Date), ByVal EndDate As Global.System.Nullable(Of Date), ByVal AllDay As Global.System.Nullable(Of Boolean), ByVal Subject As String, ByVal Location As String, ByVal Description As String, ByVal Status As Global.System.Nullable(Of Integer), ByVal Label As Global.System.Nullable(Of Integer), ByVal ResourceID As Global.System.Nullable(Of Integer), ByVal ResourceIDs As String, ByVal ReminderInfo As String, ByVal RecurrenceInfo As String, ByVal CustomField1 As String, ByVal CustomField2 As String) As Integer If (Type.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(Type.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (StartDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(StartDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(EndDate.Value,Date) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (AllDay.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(AllDay.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Subject Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(Subject,String) End If If (Location Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(Location,String) End If If (Description Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Description,String) End If If (Status.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(Status.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Label.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(Label.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ResourceID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(ResourceID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (ResourceIDs Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(ResourceIDs,String) End If If (ReminderInfo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ReminderInfo,String) End If If (RecurrenceInfo Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(RecurrenceInfo,String) End If If (CustomField1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(CustomField1,String) End If If (CustomField2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(CustomField2,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 Type As Global.System.Nullable(Of Integer), _ ByVal StartDate As Global.System.Nullable(Of Date), _ ByVal EndDate As Global.System.Nullable(Of Date), _ ByVal AllDay As Global.System.Nullable(Of Boolean), _ ByVal Subject As String, _ ByVal Location As String, _ ByVal Description As String, _ ByVal Status As Global.System.Nullable(Of Integer), _ ByVal Label As Global.System.Nullable(Of Integer), _ ByVal ResourceID As Global.System.Nullable(Of Integer), _ ByVal ResourceIDs As String, _ ByVal ReminderInfo As String, _ ByVal RecurrenceInfo As String, _ ByVal CustomField1 As String, _ ByVal CustomField2 As String, _ ByVal Original_UniqueID As Integer, _ ByVal Original_Type As Global.System.Nullable(Of Integer), _ ByVal Original_StartDate As Global.System.Nullable(Of Date), _ ByVal Original_EndDate As Global.System.Nullable(Of Date), _ ByVal Original_AllDay As Global.System.Nullable(Of Boolean), _ ByVal Original_Subject As String, _ ByVal Original_Location As String, _ ByVal Original_Status As Global.System.Nullable(Of Integer), _ ByVal Original_Label As Global.System.Nullable(Of Integer), _ ByVal Original_ResourceID As Global.System.Nullable(Of Integer), _ ByVal UniqueID As Integer) As Integer If (Type.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Type.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (StartDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(StartDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (EndDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EndDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (AllDay.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(AllDay.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Subject Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Subject,String) End If If (Location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Location,String) End If If (Description Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Description,String) End If If (Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Label.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Label.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (ResourceID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ResourceID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (ResourceIDs Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ResourceIDs,String) End If If (ReminderInfo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ReminderInfo,String) End If If (RecurrenceInfo Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(RecurrenceInfo,String) End If If (CustomField1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CustomField1,String) End If If (CustomField2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CustomField2,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_UniqueID,Integer) If (Original_Type.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Type.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_StartDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_StartDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_EndDate.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_EndDate.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_AllDay.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_AllDay.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_Subject Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Subject,String) End If If (Original_Location Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_Location,String) End If If (Original_Status.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_Status.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_Label.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_Label.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_ResourceID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ResourceID.Value,Integer) 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(UniqueID,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 Type As Global.System.Nullable(Of Integer), _ ByVal StartDate As Global.System.Nullable(Of Date), _ ByVal EndDate As Global.System.Nullable(Of Date), _ ByVal AllDay As Global.System.Nullable(Of Boolean), _ ByVal Subject As String, _ ByVal Location As String, _ ByVal Description As String, _ ByVal Status As Global.System.Nullable(Of Integer), _ ByVal Label As Global.System.Nullable(Of Integer), _ ByVal ResourceID As Global.System.Nullable(Of Integer), _ ByVal ResourceIDs As String, _ ByVal ReminderInfo As String, _ ByVal RecurrenceInfo As String, _ ByVal CustomField1 As String, _ ByVal CustomField2 As String, _ ByVal Original_UniqueID As Integer, _ ByVal Original_Type As Global.System.Nullable(Of Integer), _ ByVal Original_StartDate As Global.System.Nullable(Of Date), _ ByVal Original_EndDate As Global.System.Nullable(Of Date), _ ByVal Original_AllDay As Global.System.Nullable(Of Boolean), _ ByVal Original_Subject As String, _ ByVal Original_Location As String, _ ByVal Original_Status As Global.System.Nullable(Of Integer), _ ByVal Original_Label As Global.System.Nullable(Of Integer), _ ByVal Original_ResourceID As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2, Original_UniqueID, Original_Type, Original_StartDate, Original_EndDate, Original_AllDay, Original_Subject, Original_Location, Original_Status, Original_Label, Original_ResourceID, Original_UniqueID) 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 _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_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 _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Private _tBPMO_TEMPLATETableAdapter As TBPMO_TEMPLATETableAdapter Private _tBPMO_TEMPLATE_ENTITYTableAdapter As TBPMO_TEMPLATE_ENTITYTableAdapter Private _tBPMO_TEMPLATE_PATTERNTableAdapter As TBPMO_TEMPLATE_PATTERNTableAdapter Private _tBPMO_LANGUAGE_OBJECTTableAdapter As TBPMO_LANGUAGE_OBJECTTableAdapter Private _tBDD_CLIENTTableAdapter As TBDD_CLIENTTableAdapter Private _tBPMO_CONSTRUCTOR_USER_SQLTableAdapter As TBPMO_CONSTRUCTOR_USER_SQLTableAdapter Private _tBPMO_WD_IMPORT_PROFILETableAdapter As TBPMO_WD_IMPORT_PROFILETableAdapter Private _tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter As TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter Private _tBPMO_RIGHT_GROUPTableAdapter As TBPMO_RIGHT_GROUPTableAdapter Private _tBPMO_WD_NAMECONVENTION_FORMATTableAdapter As TBPMO_WD_NAMECONVENTION_FORMATTableAdapter Private _tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter As TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter Private _tBPMO_WORKFLOW_TASK_HISTORYTableAdapter As TBPMO_WORKFLOW_TASK_HISTORYTableAdapter Private _tBPMO_RIGHT_USERTableAdapter As TBPMO_RIGHT_USERTableAdapter Private _tBPMO_APPOINTMENTSTableAdapter As TBPMO_APPOINTMENTSTableAdapter 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 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_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 TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter Get Return Me._tBDD_CONNECTIONTableAdapter End Get Set Me._tBDD_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 TBPMO_TEMPLATETableAdapter() As TBPMO_TEMPLATETableAdapter Get Return Me._tBPMO_TEMPLATETableAdapter End Get Set Me._tBPMO_TEMPLATETableAdapter = value End Set End Property _ Public Property TBPMO_TEMPLATE_ENTITYTableAdapter() As TBPMO_TEMPLATE_ENTITYTableAdapter Get Return Me._tBPMO_TEMPLATE_ENTITYTableAdapter End Get Set Me._tBPMO_TEMPLATE_ENTITYTableAdapter = value End Set End Property _ Public Property TBPMO_TEMPLATE_PATTERNTableAdapter() As TBPMO_TEMPLATE_PATTERNTableAdapter Get Return Me._tBPMO_TEMPLATE_PATTERNTableAdapter End Get Set Me._tBPMO_TEMPLATE_PATTERNTableAdapter = value End Set End Property _ Public Property TBPMO_LANGUAGE_OBJECTTableAdapter() As TBPMO_LANGUAGE_OBJECTTableAdapter Get Return Me._tBPMO_LANGUAGE_OBJECTTableAdapter End Get Set Me._tBPMO_LANGUAGE_OBJECTTableAdapter = value End Set End Property _ Public Property TBDD_CLIENTTableAdapter() As TBDD_CLIENTTableAdapter Get Return Me._tBDD_CLIENTTableAdapter End Get Set Me._tBDD_CLIENTTableAdapter = value End Set End Property _ Public Property TBPMO_CONSTRUCTOR_USER_SQLTableAdapter() As TBPMO_CONSTRUCTOR_USER_SQLTableAdapter Get Return Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter End Get Set Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter = value End Set End Property _ Public Property TBPMO_WD_IMPORT_PROFILETableAdapter() As TBPMO_WD_IMPORT_PROFILETableAdapter Get Return Me._tBPMO_WD_IMPORT_PROFILETableAdapter End Get Set Me._tBPMO_WD_IMPORT_PROFILETableAdapter = value End Set End Property _ Public Property TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter() As TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter Get Return Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter End Get Set Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = value End Set End Property _ Public Property TBPMO_RIGHT_GROUPTableAdapter() As TBPMO_RIGHT_GROUPTableAdapter Get Return Me._tBPMO_RIGHT_GROUPTableAdapter End Get Set Me._tBPMO_RIGHT_GROUPTableAdapter = value End Set End Property _ Public Property TBPMO_WD_NAMECONVENTION_FORMATTableAdapter() As TBPMO_WD_NAMECONVENTION_FORMATTableAdapter Get Return Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter End Get Set Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter = value End Set End Property _ Public Property TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter() As TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter Get Return Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter End Get Set Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = value End Set End Property _ Public Property TBPMO_WORKFLOW_TASK_HISTORYTableAdapter() As TBPMO_WORKFLOW_TASK_HISTORYTableAdapter Get Return Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter End Get Set Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter = value End Set End Property _ Public Property TBPMO_RIGHT_USERTableAdapter() As TBPMO_RIGHT_USERTableAdapter Get Return Me._tBPMO_RIGHT_USERTableAdapter End Get Set Me._tBPMO_RIGHT_USERTableAdapter = value End Set End Property _ Public Property TBPMO_APPOINTMENTSTableAdapter() As TBPMO_APPOINTMENTSTableAdapter Get Return Me._tBPMO_APPOINTMENTSTableAdapter End Get Set Me._tBPMO_APPOINTMENTSTableAdapter = 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._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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_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 If ((Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_TEMPLATETableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_TEMPLATETableAdapter.Connection End If If ((Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Connection End If If ((Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Connection End If If ((Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Connection End If If ((Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CLIENTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CLIENTTableAdapter.Connection End If If ((Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection End If If ((Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Connection End If If ((Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection End If If ((Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_RIGHT_GROUPTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_RIGHT_GROUPTableAdapter.Connection End If If ((Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection End If If ((Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection End If If ((Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection End If If ((Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_RIGHT_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_RIGHT_USERTableAdapter.Connection End If If ((Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_APPOINTMENTSTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_APPOINTMENTSTableAdapter.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._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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) 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._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._tBPMO_TEMPLATETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.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_TEMPLATETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If 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_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITYTableAdapter.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._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._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._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.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_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_RIGHT_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_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_RIGHT_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.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_TEMPLATE_PATTERNTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.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_HISTORYTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.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_IMPORT_PROFILE_IDXTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.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_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION.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_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_NAMECONVENTION_FORMAT.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_NAMECONVENTION_FORMATTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.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_CONSTRUCTOR_USER_SQLTableAdapter.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 If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.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_RIGHT_GROUPTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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_CLIENTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_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_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_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_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_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_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_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._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._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_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_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_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_APPOINTMENTSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.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_APPOINTMENTSTableAdapter.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._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._tBPMO_TEMPLATETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_TEMPLATETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If 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_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_TEMPLATE_ENTITYTableAdapter.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._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._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._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.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_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_RIGHT_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_RIGHT_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_NAMECONVENTION_FORMAT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.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 If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CLIENTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_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_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_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_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_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_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_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._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._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_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_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_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_APPOINTMENTSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.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_APPOINTMENTSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.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_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_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._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._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_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._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._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_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._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_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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_CLIENTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If 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_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_NAMECONVENTION_FORMAT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_STRUCTURE_NODES_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_HISTORY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_RIGHT_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._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._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.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._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_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._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_TEMPLATE_ENTITYTableAdapter.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 If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_TEMPLATETableAdapter.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 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._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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_TEMPLATETableAdapter.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_TEMPLATE_ENTITYTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_TEMPLATE_ENTITYTableAdapter.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_TEMPLATE_PATTERNTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_TEMPLATE_PATTERNTableAdapter.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_LANGUAGE_OBJECTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_LANGUAGE_OBJECTTableAdapter.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_CLIENTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CLIENTTableAdapter.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_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.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_IMPORT_PROFILETableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.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_RIGHT_GROUPTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RIGHT_GROUPTableAdapter.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_NAMECONVENTION_FORMATTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.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_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.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_HISTORYTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.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_RIGHT_USERTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RIGHT_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_APPOINTMENTSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_APPOINTMENTSTableAdapter.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._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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_TEMPLATETableAdapter, Me._tBPMO_TEMPLATETableAdapter.Connection) Me._tBPMO_TEMPLATETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_TEMPLATETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_TEMPLATETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_TEMPLATETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_TEMPLATETableAdapter.Adapter) End If End If If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_TEMPLATE_ENTITYTableAdapter, Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Connection) Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_TEMPLATE_PATTERNTableAdapter, Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Connection) Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_LANGUAGE_OBJECTTableAdapter, Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Connection) Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Adapter) End If End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CLIENTTableAdapter, Me._tBDD_CLIENTTableAdapter.Connection) Me._tBDD_CLIENTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CLIENTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_CLIENTTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_CLIENTTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CLIENTTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter, Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection) Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WD_IMPORT_PROFILETableAdapter, Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Connection) Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter, Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection) Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_RIGHT_GROUPTableAdapter, Me._tBPMO_RIGHT_GROUPTableAdapter.Connection) Me._tBPMO_RIGHT_GROUPTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RIGHT_GROUPTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter, Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection) Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter, Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection) Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter, Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection) Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_RIGHT_USERTableAdapter, Me._tBPMO_RIGHT_USERTableAdapter.Connection) Me._tBPMO_RIGHT_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RIGHT_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_RIGHT_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_RIGHT_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RIGHT_USERTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_APPOINTMENTSTableAdapter, Me._tBPMO_APPOINTMENTSTableAdapter.Connection) Me._tBPMO_APPOINTMENTSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_APPOINTMENTSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_APPOINTMENTSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_APPOINTMENTSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_APPOINTMENTSTableAdapter.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._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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then Me._tBPMO_TEMPLATETableAdapter.Connection = CType(revertConnections(Me._tBPMO_TEMPLATETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_TEMPLATETableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Connection = CType(revertConnections(Me._tBPMO_TEMPLATE_ENTITYTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_TEMPLATE_ENTITYTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Connection = CType(revertConnections(Me._tBPMO_TEMPLATE_PATTERNTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Connection = CType(revertConnections(Me._tBPMO_LANGUAGE_OBJECTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then Me._tBDD_CLIENTTableAdapter.Connection = CType(revertConnections(Me._tBDD_CLIENTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CLIENTTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection = CType(revertConnections(Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_IMPORT_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then Me._tBPMO_RIGHT_GROUPTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RIGHT_GROUPTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RIGHT_GROUPTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter) Is Nothing) Then Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection = CType(revertConnections(Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter) Is Nothing) Then Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_RIGHT_USERTableAdapter) Is Nothing) Then Me._tBPMO_RIGHT_USERTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RIGHT_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RIGHT_USERTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) Then Me._tBPMO_APPOINTMENTSTableAdapter.Connection = CType(revertConnections(Me._tBPMO_APPOINTMENTSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_APPOINTMENTSTableAdapter.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