diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb_old b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb_old deleted file mode 100644 index f7ce268..0000000 --- a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb_old +++ /dev/null @@ -1,55682 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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 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 - 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 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 - 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.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.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 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) - - ''' - '''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 - - _ - 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 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) 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} - 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") - 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.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.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 - 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 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 - Try - Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.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_OBJECTTYPE ist DBNull.", e) - End Try - 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 Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPMO_WD_OBJECTTYPE.ADDED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - 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 - 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 - - ''' - '''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 -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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT CONTROL_ID, CONTROL_NAME, CONTROL_REQUIRED, CONTROL_DEF_VALUE, CONT"& _ - "ROL_READ_ONLY, CTRLTYPE_ID, CTRLTYPE_NAME, FORM_ID, FORM_NAME, FORM_LEVEL, SCREE"& _ - "N_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SCREEN_NAME, CTRLSCR_ID, CTRLSCR_CAPTION, CTRLS"& _ - "CR_X_LOC, CTRLSCR_Y_LOC, CTRLSCR_HEIGHT, CTRLSCR_WIDTH, CTRLSCR_FONT_FAMILY, CTR"& _ - "LSCR_FONT_COLOR, CTRLSCR_FONT_SIZE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRLSCR_FONT_STYL"& _ - "E, CTRLSCR_TAB_INDEX, CTRLSCR_TAB_STOP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_CONTROL_SCREEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ - "ERE (FORM_ID = @ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable = New DD_DMSDataSet.VWPMO_CONTROL_SCREENDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_FORM_VIEWTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_FORM_VIEW" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") - tableMapping.ColumnMappings.Add("HEIGHT", "HEIGHT") - tableMapping.ColumnMappings.Add("DIALOG", "DIALOG") - tableMapping.ColumnMappings.Add("MAXIMIZABLE", "MAXIMIZABLE") - tableMapping.ColumnMappings.Add("MINIMIZABLE", "MINIMIZABLE") - tableMapping.ColumnMappings.Add("MAX_WIDTH", "MAX_WIDTH") - tableMapping.ColumnMappings.Add("MIN_WIDTH", "MIN_WIDTH") - tableMapping.ColumnMappings.Add("MAX_HEIGHT", "MAX_HEIGHT") - tableMapping.ColumnMappings.Add("MIN_HEIGHT", "MIN_HEIGHT") - tableMapping.ColumnMappings.Add("X_LOC", "X_LOC") - tableMapping.ColumnMappings.Add("Y_LOC", "Y_LOC") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("IS_MDI_CHILD", "IS_MDI_CHILD") - tableMapping.ColumnMappings.Add("DOCUMENT_VIEW", "DOCUMENT_VIEW") - tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") - tableMapping.ColumnMappings.Add("ALLOW_DROP", "ALLOW_DROP") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SCREEN_ID, FORM_ID, FORM_T"& _ - "ITLE, DESCRIPTION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, M"& _ - "IN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@SCRE"& _ - "EN_ID,@FORM_ID,@FORM_TITLE,@DESCRIPTION,@WIDTH,@HEIGHT,@DIALOG,@MAXIMIZABLE,@MIN"& _ - "IMIZABLE,@MAX_WIDTH,@MIN_WIDTH,@MAX_HEIGHT,@MIN_HEIGHT,@X_LOC,@Y_LOC,@ADDED_WHO)"& _ - "; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, WIDTH, HEIGHT, DIA"& _ - "LOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN_HEIGHT, X_L"& _ - "OC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_VIEW"& _ - " WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SCREEN_ID = @SCREEN_ID, FORM_ID "& _ - "= @FORM_ID, FORM_TITLE = @FORM_TITLE, DESCRIPTION = @DESCRIPTION, WIDTH = @WIDTH"& _ - ", HEIGHT = @HEIGHT, DIALOG = @DIALOG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MAXIMIZABLE = @"& _ - "MAXIMIZABLE, MINIMIZABLE = @MINIMIZABLE, MAX_WIDTH = @MAX_WIDTH, MIN_WIDTH = @MI"& _ - "N_WIDTH, MAX_HEIGHT = @MAX_HEIGHT, MIN_HEIGHT = @MIN_HEIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " X_LOC = @X_LOC, Y_LOC = @Y_LOC, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIP"& _ - "TION, WIDTH, HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX"& _ - "_HEIGHT, MIN_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ - "HEN FROM TBPMO_FORM_VIEW WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DIALOG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DIALOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAXIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MAXIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MINIMIZABLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MINIMIZABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MAX_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MAX_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MIN_HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "MIN_HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ - "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ - " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ - " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ - "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ - "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY FORM_TITLE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID, SCREEN_ID, FORM_ID, FORM_TITLE, DESCRIPTION, IS_MDI_CHILD, DO"& _ - "CUMENT_VIEW, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3,"& _ - " SEARCH_PATTERN4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN5, ALLOW_DROP, WIDTH,"& _ - " HEIGHT, DIALOG, MAXIMIZABLE, MINIMIZABLE, MAX_WIDTH, MIN_WIDTH, MAX_HEIGHT, MIN"& _ - "_HEIGHT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED"& _ - "_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and "& _ - "SCREEN_ID = 1" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByFORMID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable, ByVal FORMID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataBy(ByVal FORMID As Integer) As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORMID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable = New DD_DMSDataSet.TBPMO_FORM_VIEWDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_VIEWDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_FORM_VIEW") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal SCREEN_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal FORM_TITLE As String, _ - ByVal DESCRIPTION As String, _ - ByVal WIDTH As Global.System.Nullable(Of Short), _ - ByVal HEIGHT As Global.System.Nullable(Of Short), _ - ByVal DIALOG As Boolean, _ - ByVal MAXIMIZABLE As Boolean, _ - ByVal MINIMIZABLE As Boolean, _ - ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ - ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ - ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ - ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ - ByVal X_LOC As Global.System.Nullable(Of Double), _ - ByVal Y_LOC As Global.System.Nullable(Of Double), _ - ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) - If (FORM_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FORM_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(FORM_TITLE,String) - End If - If (DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("DESCRIPTION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) - End If - If (WIDTH.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - If (HEIGHT.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(DIALOG,Boolean) - Me.Adapter.InsertCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) - Me.Adapter.InsertCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) - If (MAX_WIDTH.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (MIN_WIDTH.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - If (MAX_HEIGHT.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (MIN_HEIGHT.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value - End If - If (X_LOC.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(13).Value = CType(X_LOC.Value,Double) - Else - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value - End If - If (Y_LOC.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) - Else - Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal SCREEN_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal FORM_TITLE As String, _ - ByVal DESCRIPTION As String, _ - ByVal WIDTH As Global.System.Nullable(Of Short), _ - ByVal HEIGHT As Global.System.Nullable(Of Short), _ - ByVal DIALOG As Boolean, _ - ByVal MAXIMIZABLE As Boolean, _ - ByVal MINIMIZABLE As Boolean, _ - ByVal MAX_WIDTH As Global.System.Nullable(Of Short), _ - ByVal MIN_WIDTH As Global.System.Nullable(Of Short), _ - ByVal MAX_HEIGHT As Global.System.Nullable(Of Short), _ - ByVal MIN_HEIGHT As Global.System.Nullable(Of Short), _ - ByVal X_LOC As Global.System.Nullable(Of Double), _ - ByVal Y_LOC As Global.System.Nullable(Of Double), _ - ByVal CHANGED_WHO As String, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SCREEN_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) - If (FORM_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FORM_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FORM_TITLE,String) - End If - If (DESCRIPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("DESCRIPTION") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) - End If - If (WIDTH.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - If (HEIGHT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(HEIGHT.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DIALOG,Boolean) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(MAXIMIZABLE,Boolean) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(MINIMIZABLE,Boolean) - If (MAX_WIDTH.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(MAX_WIDTH.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (MIN_WIDTH.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MIN_WIDTH.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - If (MAX_HEIGHT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(MAX_HEIGHT.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (MIN_HEIGHT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(MIN_HEIGHT.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - End If - If (X_LOC.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(X_LOC.Value,Double) - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - End If - If (Y_LOC.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Y_LOC.Value,Double) - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_RECORDTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_RECORD" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @O"& _ - "riginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANG"& _ - "ED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)"& _ - ") AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] "& _ - "= @Original_CHANGED_WHEN)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_RECORD] ([ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WH"& _ - "EN]) VALUES (@ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID"& _ - " = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ - "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Or"& _ - "iginal_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Origin"& _ - "al_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHA"& _ - "NGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_"& _ - "WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ADD"& _ - "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @G"& _ - "UID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @RECORD_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable, ByVal RECORD_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.TBPMO_RECORDDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable = New DD_DMSDataSet.TBPMO_RECORDDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORDDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_RECORD") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWPMO_DOKUMENTTYPESTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWPMO_DOKUMENTTYPES" - tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("DOKUMENTTYPE_ID", "DOKUMENTTYPE_ID") - tableMapping.ColumnMappings.Add("DOKUMENTTYPE", "DOKUMENTTYPE") - tableMapping.ColumnMappings.Add("PATH", "PATH") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") - tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") - tableMapping.ColumnMappings.Add("FW_DOCTYPE_ID", "FW_DOCTYPE_ID") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_FVIEW_DT_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (FW_DOCTYPE_ID = @ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FW_DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable = New DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FVIEW_DT_INDEXDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_WD_FVIEW_DT_INDEX") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FW_DOCTYPE_ID,Integer) - If (Original_INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_INDEXNAME") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String) - End If - If (Original_INDEX_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_INDEX_VALUE,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (INDEX_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEX_VALUE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEX_VALUE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal FW_DOCTYPE_ID As Integer, _ - ByVal INDEXNAME As String, _ - ByVal INDEX_VALUE As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_FW_DOCTYPE_ID As Integer, _ - ByVal Original_INDEXNAME As String, _ - ByVal Original_INDEX_VALUE As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FW_DOCTYPE_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (INDEX_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEX_VALUE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEX_VALUE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_FW_DOCTYPE_ID,Integer) - If (Original_INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_INDEXNAME") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_INDEXNAME,String) - End If - If (Original_INDEX_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_INDEX_VALUE") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_INDEX_VALUE,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal FW_DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal INDEX_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_FW_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_INDEX_VALUE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_FW_DOCTYPE_ID, Original_INDEXNAME, Original_INDEX_VALUE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_WORKFLOW_TASKTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") - tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") - tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TOP (1) TBPMO_WORKFLOW_TASK.GUID, TBPMO_WORKFLOW_TASK.RECORD_ID, TB"& _ - "PMO_WORKFLOW_TASK.WF_ID, TBPMO_WORKFLOW_TASK.COMMENT, TBPMO_WORKFLOW_TASK.DUE_DA"& _ - "TE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORKFLOW_TASK.STATE_ID, TBPMO_WORKFLOW_TASK"& _ - ".ACTIVE, TBPMO_WORKFLOW_TASK.ADDED_WHEN, TBPMO_WORKFLOW_TASK.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPMO_WORKFLOW_TASK.CHANGED_WHEN, TBPMO_WORKFLOW.TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ - "M TBPMO_WORKFLOW_TASK INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORK"& _ - "FLOW ON TBPMO_WORKFLOW_TASK.WF_ID = TBPMO_WORKFLOW.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WOR"& _ - "KFLOW_TASK.RECORD_ID = @RECID) AND (TBPMO_WORKFLOW_TASK.ACTIVE = 1) AND (TBPMO_W"& _ - "ORKFLOW_TASK.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WORKFL"& _ - "OW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KONFIGURAT"& _ - "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1)))" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ACTIVE = 1, CHANGED_WHO = @C"& _ - "HANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "UPDATE TBPMO_WORKFLOW_TASK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET COMMENT = @COMMENT, DUE_DATE"& _ - " = @DUE_DATE, STATE_ID = @STATE_ID, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"& _ - ", TASK_DATE = @TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUE_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "DUE_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "STATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TASK_DATE", Global.System.Data.SqlDbType.[Date], 3, Global.System.Data.ParameterDirection.Input, 0, 0, "TASK_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable, ByVal RECID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal RECID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_TASKDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function cmdsetActive(ByVal CHANGED_WHO As String, ByVal RECORD_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (CHANGED_WHO Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(CHANGED_WHO,String) - End If - command.Parameters(1).Value = CType(RECORD_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function cmdUpdate(ByVal COMMENT As String, ByVal DUE_DATE As String, ByVal STATE_ID As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal TASK_DATE As String, ByVal Original_GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - If (COMMENT Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(COMMENT,String) - End If - If (DUE_DATE Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value - Else - command.Parameters(1).Value = CType(DUE_DATE,String) - End If - command.Parameters(2).Value = CType(STATE_ID,Integer) - command.Parameters(3).Value = CType(ACTIVE,Boolean) - If (CHANGED_WHO Is Nothing) Then - command.Parameters(4).Value = Global.System.DBNull.Value - Else - command.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - If (TASK_DATE Is Nothing) Then - command.Parameters(5).Value = Global.System.DBNull.Value - Else - command.Parameters(5).Value = CType(TASK_DATE,String) - End If - command.Parameters(6).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_WORKFLOW_TASK_STATETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_WORKFLOW_TASK_STATE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COLOR", "COLOR") - 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT ID, Name, Title"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_GUI_ENTITY" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable = New DD_DMSDataSet.VWPMO_GUI_ENTITYDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_WORKFLOWTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_WORKFLOW" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Ori"& _ - "ginal_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCR"& _ - "IPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (["& _ - "ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ - "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ - "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ - "))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, DESCRIPTION, ADDED_W"& _ - "HO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@DESCRIPTION,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, DESCR"& _ - "IPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW WHE"& _ - "RE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WORKFLOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, DESCRIPTION = @DE"& _ - "SCRIPTION, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ - "ELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ - " FROM TBPMO_WORKFLOW WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT WF_ID, RECORD_ID, STATE, STATE_ID, Authority, String, COLOR, CHANGE"& _ - "D_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_OVERVIEW_AUTHORITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ - "RECORD_ID = @RECORDID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORDID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable, ByVal RECORDID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal RECORDID As Integer) As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) - Dim dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable = New DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_DOKUMENTARTTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_DOKUMENTART" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") - tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") - tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") - tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ - "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDER"& _ - "TWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable = New DD_DMSDataSet.TBDD_EINGANGSARTENDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) - End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Byte) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) - End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERSTELLTWER,String) - End If - If (ERSTELLTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERSTELLTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) - End If - If (GEAENDERTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Byte) - If (Original_BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_BEZEICHNUNG,String) - End If - If (Original_BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_BESCHREIBUNG,String) - End If - If (Original_ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERSTELLTWER,String) - End If - If (Original_ERSTELLTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ERSTELLTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (Original_GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GEANDERTWER,String) - End If - If (Original_GEAENDERTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_BESCHREIBUNG, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_INDEX_AUTOMTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ - " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIE"& _ - "W_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADD"& _ - "ED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGE"& _ - "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO"& _ - "_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNE"& _ - "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES."& _ - "DOCTYPE_ID = TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOC"& _ - "TYPE_ID = @DOC_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORMVIEW_ID, DO"& _ - "CTYPE_ID, OBJECT_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJE"& _ - "CT_TYPE,@ADDED_WHO)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMVIEW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable, ByVal DOC_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal DOC_ID As Integer) As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable = New DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function cmdInsert(ByVal FORMVIEW_ID As Integer, ByVal DOCTYPE_ID As Integer, ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(FORMVIEW_ID,Integer) - command.Parameters(1).Value = CType(DOCTYPE_ID,Integer) - If (OBJECT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECT_TYPE") - Else - command.Parameters(2).Value = CType(OBJECT_TYPE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - command.Parameters(3).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function DeleteQuery(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_KONFIGURATIONTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_KONFIGURATION" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") - tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") - tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") - tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") - tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") - tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") - tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") - tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") - tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SQL_RECORD_SQL1", "SQL_RECORD_SQL1") - tableMapping.ColumnMappings.Add("SQL_RECORD_SQL2", "SQL_RECORD_SQL2") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE1", "WORKFLOW_FINAL_STATE1") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE2", "WORKFLOW_FINAL_STATE2") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE3", "WORKFLOW_FINAL_STATE3") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE4", "WORKFLOW_FINAL_STATE4") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE5", "WORKFLOW_FINAL_STATE5") - tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") - tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") - tableMapping.ColumnMappings.Add("WD_UNICODE", "WD_UNICODE") - tableMapping.ColumnMappings.Add("FOLLOW_UP_LOG_ERR_ONLY", "FOLLOW_UP_LOG_ERR_ONLY") - tableMapping.ColumnMappings.Add("FOLLOW_UP_EMAIL_PROFILE", "FOLLOW_UP_EMAIL_PROFILE") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE, VEKTOR_D"& _ - "ELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_"& _ - "FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL"& _ - "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RE"& _ - "CORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STAT"& _ - "E2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW"& _ - "_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, "& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UN"& _ - "ICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Or"& _ - "iginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FRO"& _ - "M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTE"& _ - "R, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ - "QL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, W"& _ - "ORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELI"& _ - "MITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_SECURITY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_SECURITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL1", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL2", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE1", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE2", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE3", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE4", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE5", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_UNICODE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_UNICODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ - "TP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW"& _ - ", ADMIN_SECURITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ - " CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW"& _ - "_FINAL_STATE2, WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WORKFLOW_FINAL_"& _ - "STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FO"& _ - "LLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_KONFIGURATI"& _ - "ON" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_KONFIGURATION") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal LICENSE As String, _ - ByVal VEKTOR_DELIMITER As String, _ - ByVal EMAIL_ACTIVE As Boolean, _ - ByVal EMAIL_FROM As String, _ - ByVal EMAIL_SMTP As String, _ - ByVal EMAIL_USER As String, _ - ByVal EMAIL_PW As String, _ - ByVal EMAIL_REMINDER_HEADER As String, _ - ByVal EMAIL_REMINDER_FOOTER As String, _ - ByVal ADMIN_PW As String, _ - ByVal ADMIN_SECURITY As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal SQL_RECORD_SQL1 As String, _ - ByVal SQL_RECORD_SQL2 As String, _ - ByVal WORKFLOW_FINAL_STATE1 As Integer, _ - ByVal WORKFLOW_FINAL_STATE2 As Global.System.Nullable(Of Integer), _ - ByVal WORKFLOW_FINAL_STATE3 As Global.System.Nullable(Of Integer), _ - ByVal WORKFLOW_FINAL_STATE4 As Global.System.Nullable(Of Integer), _ - ByVal WORKFLOW_FINAL_STATE5 As Global.System.Nullable(Of Integer), _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal WD_UNICODE As Boolean, _ - ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ - ByVal FOLLOW_UP_EMAIL_PROFILE As Integer, _ - ByVal Original_GUID As Byte, _ - ByVal GUID As Byte) As Integer - If (LICENSE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LICENSE,String) - End If - If (VEKTOR_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VEKTOR_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VEKTOR_DELIMITER,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_ACTIVE,Boolean) - If (EMAIL_FROM Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_FROM,String) - End If - If (EMAIL_SMTP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_SMTP,String) - End If - If (EMAIL_USER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_USER,String) - End If - If (EMAIL_PW Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_PW,String) - End If - If (EMAIL_REMINDER_HEADER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_REMINDER_HEADER,String) - End If - If (EMAIL_REMINDER_FOOTER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_REMINDER_FOOTER,String) - End If - If (ADMIN_PW Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADMIN_PW") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADMIN_PW,String) - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADMIN_SECURITY,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) - End If - If (SQL_RECORD_SQL1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL1") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RECORD_SQL1,String) - End If - If (SQL_RECORD_SQL2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL2") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RECORD_SQL2,String) - End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WORKFLOW_FINAL_STATE1,Integer) - If (WORKFLOW_FINAL_STATE2.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WORKFLOW_FINAL_STATE2.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - End If - If (WORKFLOW_FINAL_STATE3.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORKFLOW_FINAL_STATE3.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - End If - If (WORKFLOW_FINAL_STATE4.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WORKFLOW_FINAL_STATE4.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value - End If - If (WORKFLOW_FINAL_STATE5.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WORKFLOW_FINAL_STATE5.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - If (VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(VERSION_DELIMITER,String) - End If - If (FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILE_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FILE_DELIMITER,String) - End If - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WD_UNICODE,Boolean) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FOLLOW_UP_LOG_ERR_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FOLLOW_UP_EMAIL_PROFILE,Integer) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Byte) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function cmdSetLicense(ByVal LICENSE As String, ByVal Original_GUID As Byte) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (LICENSE Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(LICENSE,String) - End If - command.Parameters(1).Value = CType(Original_GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_USERTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") - tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") - tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") - tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("RECORD_ADMIN", "RECORD_ADMIN") - 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ - "IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ - "_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_TYPE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable = New DD_DMSDataSet.TBPMO_FORM_TYPEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_FORM_TYPE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TYPE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_FORM_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FORM_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FORM_TYPE,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String) As Integer - If (FORM_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FORM_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TYPE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal FORM_TYPE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (FORM_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FORM_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TYPE,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_USER_GROUPSTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER_GROUPS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT VWPMO_USERS_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_USERS_GROUPS" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable = New DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_GROUPS_USERTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS_USER" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ - "DD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE ON T"& _ - "BDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.G"& _ - "UID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_DOKUMENTART.GUID = @DokID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOKART_ID, MODULE_"& _ - "ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID, 0)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable, ByVal DokID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal DokID As Integer) As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) - Dim dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable = New DD_DMSDataSet.TBWH_DOKART_MODULEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function InsertDokartModule(ByVal DOK_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(DOK_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") - tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") - 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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") - 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)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES"& _ - " (@OBJECT_TYPE,@IDXNAME_ENTITYID,@IDXNAME_PARENTID,@ADDED_WHO,@IDXNAME_DO"& _ - "CTYPE,@IDXNAME_RECORDID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME"& _ - "_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECT"& _ - "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("@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.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"&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_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ - "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUI"& _ - "D)" - 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ - "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_RECORDID, IDXNAME_DOCTYPE"&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) 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 - 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 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 - 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_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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPE"& _ - "NDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, TI"& _ - "ME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, "& _ - "PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, PROCESS_SELECT5, PROCESS_SELE"& _ - "CT6, PROCESS_SELECT7, PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROCESS_SELECT"& _ - "9, PROCESS_SELECT10, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, N"& _ - "AME, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_FOLLUPEMAIL_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLUPEMAIL_USER" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable = New DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_FOLLUPEMAIL_USER") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPMO_RECORD_LOG_CONFIGTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPMO_RECORD_LOG_CONFIG" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") - tableMapping.ColumnMappings.Add("LOG_DELETE", "LOG_DELETE") - tableMapping.ColumnMappings.Add("LOG_UPDATE", "LOG_UPDATE") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("FORM_ID1", "FORM_ID1") - tableMapping.ColumnMappings.Add("String", "String") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, LOG_DE"& _ - "LETE, LOG_UPDATE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ - " GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ - " FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID"& _ - ", LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, CHANGED_WHO = @CHANGED_WHO"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, LOG_DELETE, "& _ - "LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG W"& _ - "HERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_RECORD_LOG_CONFIG.GUID, TBPMO_RECORD_LOG_CONFIG.CONTROL_ID, T"& _ - "BPMO_RECORD_LOG_CONFIG.LOG_DELETE, TBPMO_RECORD_LOG_CONFIG.LOG_UPDATE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPMO_RECORD_LOG_CONFIG.ADDED_WHEN, TBPMO_RECORD_LOG_CONFIG.CH"& _ - "ANGED_WHO, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHEN, TBPMO_CONTROL.FORM_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPMO_FORM.GUID AS FORM_ID, TBPMO_FORM.NAME, TBPMO_FORM.NAME "& _ - "+ ' - ' + TBPMO_CONTROL.NAME AS String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RECORD_LOG_CONFIG "& _ - "INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_CONTROL ON TBPMO_RECORD_LOG_CONFIG.CO"& _ - "NTROL_ID = TBPMO_CONTROL.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM ON"& _ - " TBPMO_CONTROL.FORM_ID = TBPMO_FORM.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBPMO_FORM.NAME, TBPMO_CONTRO"& _ - "L.NAME" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable = New DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_RECORD_LOG_CONFIG") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWPMO_RECORD_CHANGESTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWPMO_RECORD_CHANGES" - tableMapping.ColumnMappings.Add("ID", "ID") - tableMapping.ColumnMappings.Add("Control-Name", "Control-Name") - tableMapping.ColumnMappings.Add("Log-Description", "Log-Description") - tableMapping.ColumnMappings.Add("Added who", "Added who") - tableMapping.ColumnMappings.Add("Added When", "Added When") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID AS ID, NAME AS [Control-Name], LOG_DESCRIPTION AS [Log-Descrip"& _ - "tion], ADDED_WHO AS [Added who], ADDED_WHEN AS [Added When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWP"& _ - "MO_RECORD_CHANGES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable, ByVal RECORD_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) - Dim dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable = New DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT WF_TASK_ID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "select 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPMO_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_Organiser.My.MySettings.Default.DD_DMSConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, 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 - - ''' - '''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 _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 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 - 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 - 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_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_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._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._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_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_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_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_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_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._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_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_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._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_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_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_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_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_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 - 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_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_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._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._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_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_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_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_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_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._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_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_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._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_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_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_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_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_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 - 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._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_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_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_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_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_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_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_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_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_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_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_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_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_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._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_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_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._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_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 - 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 - ' - '---- 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 (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 diff --git a/app/DD-Record-Organiser.sln b/app/DD-Record-Organizer.sln similarity index 82% rename from app/DD-Record-Organiser.sln rename to app/DD-Record-Organizer.sln index 9c7217d..74305d7 100644 --- a/app/DD-Record-Organiser.sln +++ b/app/DD-Record-Organizer.sln @@ -3,9 +3,7 @@ Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 2013 VisualStudioVersion = 12.0.21005.1 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD-Record-Organiser", "DD-Record-Organiser\DD-Record-Organiser.vbproj", "{BDCC148B-4C84-4A48-80CF-4C56057294E0}" -EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SnapPanelControl", "SnapPanelControl\SnapPanelControl.vbproj", "{9B1BBAC7-F595-43BA-8B54-CF2B595847CD}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD-Record-Organizer", "DD-Record-Organizer\DD-Record-Organizer.vbproj", "{BDCC148B-4C84-4A48-80CF-4C56057294E0}" EndProject Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWiX", "SetupWiX\SetupWiX.wixproj", "{BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}" EndProject @@ -57,28 +55,6 @@ Global {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU {BDCC148B-4C84-4A48-80CF-4C56057294E0}.SingleImage|x86.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.CD_ROM|x86.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Any CPU.Build.0 = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Debug|x86.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.DVD-5|x86.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Any CPU.ActiveCfg = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Any CPU.Build.0 = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.Release|x86.ActiveCfg = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD}.SingleImage|x86.ActiveCfg = Debug|Any CPU {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Any CPU.ActiveCfg = Release|x86 {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86 {BDD0EE4F-7063-47CA-B8B8-B94F23AB8890}.CD_ROM|Mixed Platforms.Build.0 = Release|x86 diff --git a/app/DD-Record-Organiser/App.config b/app/DD-Record-Organizer/App.config similarity index 89% rename from app/DD-Record-Organiser/App.config rename to app/DD-Record-Organizer/App.config index 42d5569..1a6b7c3 100644 --- a/app/DD-Record-Organiser/App.config +++ b/app/DD-Record-Organizer/App.config @@ -2,14 +2,14 @@ -
+
-
+
- @@ -17,7 +17,7 @@ - + *.db @@ -60,13 +60,13 @@ - + - + sDigital Data - windream-Benutzer - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/ApplicationEvents.vb b/app/DD-Record-Organizer/ApplicationEvents.vb similarity index 100% rename from app/DD-Record-Organiser/ApplicationEvents.vb rename to app/DD-Record-Organizer/ApplicationEvents.vb diff --git a/app/DD-Record-Organiser/ClassAsyncReturnDT.vb b/app/DD-Record-Organizer/ClassAsyncReturnDT.vb similarity index 100% rename from app/DD-Record-Organiser/ClassAsyncReturnDT.vb rename to app/DD-Record-Organizer/ClassAsyncReturnDT.vb diff --git a/app/DD-Record-Organiser/ClassAsyncSQL.vb b/app/DD-Record-Organizer/ClassAsyncSQL.vb similarity index 100% rename from app/DD-Record-Organiser/ClassAsyncSQL.vb rename to app/DD-Record-Organizer/ClassAsyncSQL.vb diff --git a/app/DD-Record-Organiser/ClassBackgroundHelper.vb b/app/DD-Record-Organizer/ClassBackgroundHelper.vb similarity index 100% rename from app/DD-Record-Organiser/ClassBackgroundHelper.vb rename to app/DD-Record-Organizer/ClassBackgroundHelper.vb diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organizer/ClassControlBuilder.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlBuilder.vb rename to app/DD-Record-Organizer/ClassControlBuilder.vb diff --git a/app/DD-Record-Organiser/ClassControlCommands.vb b/app/DD-Record-Organizer/ClassControlCommands.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlCommands.vb rename to app/DD-Record-Organizer/ClassControlCommands.vb diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organizer/ClassControlCommandsUI.vb similarity index 99% rename from app/DD-Record-Organiser/ClassControlCommandsUI.vb rename to app/DD-Record-Organizer/ClassControlCommandsUI.vb index 988dbf5..ba4cfa6 100644 --- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb +++ b/app/DD-Record-Organizer/ClassControlCommandsUI.vb @@ -1,5 +1,5 @@ -Imports DD_Record_Organiser.ClassDatabase -Imports DD_Record_Organiser.ClassControlBuilder +Imports DD_Record_Organizer.ClassDatabase +Imports DD_Record_Organizer.ClassControlBuilder diff --git a/app/DD-Record-Organiser/ClassControlLoader.vb b/app/DD-Record-Organizer/ClassControlLoader.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlLoader.vb rename to app/DD-Record-Organizer/ClassControlLoader.vb diff --git a/app/DD-Record-Organiser/ClassControlMetadata.vb b/app/DD-Record-Organizer/ClassControlMetadata.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlMetadata.vb rename to app/DD-Record-Organizer/ClassControlMetadata.vb diff --git a/app/DD-Record-Organiser/ClassControlProperties.vb b/app/DD-Record-Organizer/ClassControlProperties.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlProperties.vb rename to app/DD-Record-Organizer/ClassControlProperties.vb diff --git a/app/DD-Record-Organiser/ClassControlValueCache.vb b/app/DD-Record-Organizer/ClassControlValueCache.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlValueCache.vb rename to app/DD-Record-Organizer/ClassControlValueCache.vb diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organizer/ClassControlValues.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControlValues.vb rename to app/DD-Record-Organizer/ClassControlValues.vb diff --git a/app/DD-Record-Organiser/ClassControls_Manual.vb b/app/DD-Record-Organizer/ClassControls_Manual.vb similarity index 100% rename from app/DD-Record-Organiser/ClassControls_Manual.vb rename to app/DD-Record-Organizer/ClassControls_Manual.vb diff --git a/app/DD-Record-Organiser/ClassConverter.vb b/app/DD-Record-Organizer/ClassConverter.vb similarity index 100% rename from app/DD-Record-Organiser/ClassConverter.vb rename to app/DD-Record-Organizer/ClassConverter.vb diff --git a/app/DD-Record-Organiser/ClassCustomComboBox.vb b/app/DD-Record-Organizer/ClassCustomComboBox.vb similarity index 100% rename from app/DD-Record-Organiser/ClassCustomComboBox.vb rename to app/DD-Record-Organizer/ClassCustomComboBox.vb diff --git a/app/DD-Record-Organiser/ClassDOC_SEARCH.vb b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb similarity index 100% rename from app/DD-Record-Organiser/ClassDOC_SEARCH.vb rename to app/DD-Record-Organizer/ClassDOC_SEARCH.vb diff --git a/app/DD-Record-Organiser/ClassDatabase.vb b/app/DD-Record-Organizer/ClassDatabase.vb similarity index 100% rename from app/DD-Record-Organiser/ClassDatabase.vb rename to app/DD-Record-Organizer/ClassDatabase.vb diff --git a/app/DD-Record-Organiser/ClassDragDrop.vb b/app/DD-Record-Organizer/ClassDragDrop.vb similarity index 100% rename from app/DD-Record-Organiser/ClassDragDrop.vb rename to app/DD-Record-Organizer/ClassDragDrop.vb diff --git a/app/DD-Record-Organiser/ClassEmail.vb b/app/DD-Record-Organizer/ClassEmail.vb similarity index 100% rename from app/DD-Record-Organiser/ClassEmail.vb rename to app/DD-Record-Organizer/ClassEmail.vb diff --git a/app/DD-Record-Organiser/ClassEncryption.vb b/app/DD-Record-Organizer/ClassEncryption.vb similarity index 100% rename from app/DD-Record-Organiser/ClassEncryption.vb rename to app/DD-Record-Organizer/ClassEncryption.vb diff --git a/app/DD-Record-Organiser/ClassFileResult.vb b/app/DD-Record-Organizer/ClassFileResult.vb similarity index 100% rename from app/DD-Record-Organiser/ClassFileResult.vb rename to app/DD-Record-Organizer/ClassFileResult.vb diff --git a/app/DD-Record-Organiser/ClassFolderWatcher.vb b/app/DD-Record-Organizer/ClassFolderWatcher.vb similarity index 100% rename from app/DD-Record-Organiser/ClassFolderWatcher.vb rename to app/DD-Record-Organizer/ClassFolderWatcher.vb diff --git a/app/DD-Record-Organiser/ClassFormCommands.vb b/app/DD-Record-Organizer/ClassFormCommands.vb similarity index 100% rename from app/DD-Record-Organiser/ClassFormCommands.vb rename to app/DD-Record-Organizer/ClassFormCommands.vb diff --git a/app/DD-Record-Organiser/ClassFunctionCommands.vb b/app/DD-Record-Organizer/ClassFunctionCommands.vb similarity index 100% rename from app/DD-Record-Organiser/ClassFunctionCommands.vb rename to app/DD-Record-Organizer/ClassFunctionCommands.vb diff --git a/app/DD-Record-Organiser/ClassFunctionCommandsUI.vb b/app/DD-Record-Organizer/ClassFunctionCommandsUI.vb similarity index 100% rename from app/DD-Record-Organiser/ClassFunctionCommandsUI.vb rename to app/DD-Record-Organizer/ClassFunctionCommandsUI.vb diff --git a/app/DD-Record-Organiser/ClassGridFormatter.vb b/app/DD-Record-Organizer/ClassGridFormatter.vb similarity index 100% rename from app/DD-Record-Organiser/ClassGridFormatter.vb rename to app/DD-Record-Organizer/ClassGridFormatter.vb diff --git a/app/DD-Record-Organiser/ClassHelper.vb b/app/DD-Record-Organizer/ClassHelper.vb similarity index 100% rename from app/DD-Record-Organiser/ClassHelper.vb rename to app/DD-Record-Organizer/ClassHelper.vb diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organizer/ClassImport_Windream.vb similarity index 100% rename from app/DD-Record-Organiser/ClassImport_Windream.vb rename to app/DD-Record-Organizer/ClassImport_Windream.vb diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organizer/ClassInit.vb similarity index 100% rename from app/DD-Record-Organiser/ClassInit.vb rename to app/DD-Record-Organizer/ClassInit.vb diff --git a/app/DD-Record-Organiser/ClassJumpRecord.vb b/app/DD-Record-Organizer/ClassJumpRecord.vb similarity index 100% rename from app/DD-Record-Organiser/ClassJumpRecord.vb rename to app/DD-Record-Organizer/ClassJumpRecord.vb diff --git a/app/DD-Record-Organiser/ClassLayout.vb b/app/DD-Record-Organizer/ClassLayout.vb similarity index 100% rename from app/DD-Record-Organiser/ClassLayout.vb rename to app/DD-Record-Organizer/ClassLayout.vb diff --git a/app/DD-Record-Organiser/ClassLicence.vb b/app/DD-Record-Organizer/ClassLicence.vb similarity index 100% rename from app/DD-Record-Organiser/ClassLicence.vb rename to app/DD-Record-Organizer/ClassLicence.vb diff --git a/app/DD-Record-Organiser/ClassLogger.vb b/app/DD-Record-Organizer/ClassLogger.vb similarity index 100% rename from app/DD-Record-Organiser/ClassLogger.vb rename to app/DD-Record-Organizer/ClassLogger.vb diff --git a/app/DD-Record-Organiser/ClassMoreMetadata.vb b/app/DD-Record-Organizer/ClassMoreMetadata.vb similarity index 100% rename from app/DD-Record-Organiser/ClassMoreMetadata.vb rename to app/DD-Record-Organizer/ClassMoreMetadata.vb diff --git a/app/DD-Record-Organiser/ClassNodeNavigation.vb b/app/DD-Record-Organizer/ClassNodeNavigation.vb similarity index 100% rename from app/DD-Record-Organiser/ClassNodeNavigation.vb rename to app/DD-Record-Organizer/ClassNodeNavigation.vb diff --git a/app/DD-Record-Organiser/ClassNodes.vb b/app/DD-Record-Organizer/ClassNodes.vb similarity index 100% rename from app/DD-Record-Organiser/ClassNodes.vb rename to app/DD-Record-Organizer/ClassNodes.vb diff --git a/app/DD-Record-Organiser/ClassOfficeTemplate.vb b/app/DD-Record-Organizer/ClassOfficeTemplate.vb similarity index 100% rename from app/DD-Record-Organiser/ClassOfficeTemplate.vb rename to app/DD-Record-Organizer/ClassOfficeTemplate.vb diff --git a/app/DD-Record-Organiser/ClassProxy.vb b/app/DD-Record-Organizer/ClassProxy.vb similarity index 100% rename from app/DD-Record-Organiser/ClassProxy.vb rename to app/DD-Record-Organizer/ClassProxy.vb diff --git a/app/DD-Record-Organiser/ClassRecordCommands.vb b/app/DD-Record-Organizer/ClassRecordCommands.vb similarity index 100% rename from app/DD-Record-Organiser/ClassRecordCommands.vb rename to app/DD-Record-Organizer/ClassRecordCommands.vb diff --git a/app/DD-Record-Organiser/ClassRecordState.vb b/app/DD-Record-Organizer/ClassRecordState.vb similarity index 100% rename from app/DD-Record-Organiser/ClassRecordState.vb rename to app/DD-Record-Organizer/ClassRecordState.vb diff --git a/app/DD-Record-Organiser/ClassRecordView.vb b/app/DD-Record-Organizer/ClassRecordView.vb similarity index 100% rename from app/DD-Record-Organiser/ClassRecordView.vb rename to app/DD-Record-Organizer/ClassRecordView.vb diff --git a/app/DD-Record-Organiser/ClassRightManagement.vb b/app/DD-Record-Organizer/ClassRightManagement.vb similarity index 100% rename from app/DD-Record-Organiser/ClassRightManagement.vb rename to app/DD-Record-Organizer/ClassRightManagement.vb diff --git a/app/DD-Record-Organiser/ClassSAP.vb b/app/DD-Record-Organizer/ClassSAP.vb similarity index 100% rename from app/DD-Record-Organiser/ClassSAP.vb rename to app/DD-Record-Organizer/ClassSAP.vb diff --git a/app/DD-Record-Organiser/ClassSQLEditor.vb b/app/DD-Record-Organizer/ClassSQLEditor.vb similarity index 100% rename from app/DD-Record-Organiser/ClassSQLEditor.vb rename to app/DD-Record-Organizer/ClassSQLEditor.vb diff --git a/app/SnapPanelControl/SnapPanel.Designer.vb b/app/DD-Record-Organizer/ClassSnapPanel.Designer.vb similarity index 97% rename from app/SnapPanelControl/SnapPanel.Designer.vb rename to app/DD-Record-Organizer/ClassSnapPanel.Designer.vb index e6ff0a8..f2b42e1 100644 --- a/app/SnapPanelControl/SnapPanel.Designer.vb +++ b/app/DD-Record-Organizer/ClassSnapPanel.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class SnapPanel +Partial Class ClassSnapPanel Inherits System.Windows.Forms.Panel 'UserControl1 überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. diff --git a/app/SnapPanelControl/SnapPanel.vb b/app/DD-Record-Organizer/ClassSnapPanel.vb similarity index 98% rename from app/SnapPanelControl/SnapPanel.vb rename to app/DD-Record-Organizer/ClassSnapPanel.vb index febc055..02fd701 100644 --- a/app/SnapPanelControl/SnapPanel.vb +++ b/app/DD-Record-Organizer/ClassSnapPanel.vb @@ -1,4 +1,4 @@ -Public Class SnapPanel +Public Class ClassSnapPanel Inherits System.Windows.Forms.Panel Private _ShowGrid As Boolean = True diff --git a/app/DD-Record-Organiser/ClassStaticListEditor.vb b/app/DD-Record-Organizer/ClassStaticListEditor.vb similarity index 100% rename from app/DD-Record-Organiser/ClassStaticListEditor.vb rename to app/DD-Record-Organizer/ClassStaticListEditor.vb diff --git a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb similarity index 100% rename from app/DD-Record-Organiser/ClassWindreamDocGrid.vb rename to app/DD-Record-Organizer/ClassWindreamDocGrid.vb diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj similarity index 99% rename from app/DD-Record-Organiser/DD-Record-Organiser.vbproj rename to app/DD-Record-Organizer/DD-Record-Organizer.vbproj index fa5fa11..2396473 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj @@ -6,8 +6,8 @@ AnyCPU {BDCC148B-4C84-4A48-80CF-4C56057294E0} WinExe - DD_Record_Organiser.My.MyApplication - DD_Record_Organiser + DD_Record_Organizer.My.MyApplication + DD_Record_Organizer DD-Record-Organizer 512 WindowsForms @@ -215,9 +215,6 @@ True - - ..\SnapPanelControl\bin\Debug\SnapPanelControl.dll - @@ -436,6 +433,12 @@ Form + + ClassSnapPanel.vb + + + Component + ControlProperties.en.resx True diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb rename to app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb index 25885c2..3682ff7 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb +++ b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb @@ -36899,7 +36899,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub - + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xss b/app/DD-Record-Organizer/DD_DMSDataSet.xss similarity index 100% rename from app/DD-Record-Organiser/DD_DMSDataSet.xss rename to app/DD-Record-Organizer/DD_DMSDataSet.xss diff --git a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb b/app/DD-Record-Organizer/DD_DMSDataSetCalendar.Designer.vb similarity index 79% rename from app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb rename to app/DD-Record-Organizer/DD_DMSDataSetCalendar.Designer.vb index 07936f3..66a823d 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.Designer.vb +++ b/app/DD-Record-Organizer/DD_DMSDataSetCalendar.Designer.vb @@ -16,45 +16,45 @@ Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' - _ + _ Partial Public Class DD_DMSDataSetCalendar Inherits Global.System.Data.DataSet - + Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable - + Private tableTBPMO_RESOURCES As TBPMO_RESOURCESDataTable - + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ + + _ Public Sub New() - MyBase.New() - Me.BeginInit() - Me.InitClass() + 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() + 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) + 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) + 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))) @@ -70,8 +70,8 @@ Partial Public Class DD_DMSDataSetCalendar Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() + 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 @@ -80,92 +80,92 @@ Partial Public Class DD_DMSDataSetCalendar AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - - _ + + _ Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable Get Return Me.tableTBPMO_APPOINTMENTS End Get End Property - - _ + + _ Public ReadOnly Property TBPMO_RESOURCES() As TBPMO_RESOURCESDataTable Get Return Me.tableTBPMO_RESOURCES End Get End Property - - _ + + _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get - Set(value As Global.System.Data.SchemaSerializationMode) + 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() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DD_DMSDataSetCalendar = CType(MyBase.Clone, DD_DMSDataSetCalendar) - cln.InitVars() + Dim cln As DD_DMSDataSetCalendar = CType(MyBase.Clone,DD_DMSDataSetCalendar) + cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + _ Protected Overrides Function ShouldSerializeTables() As Boolean - Return False + Return false End Function - - _ + + _ Protected Overrides Function ShouldSerializeRelations() As Boolean - Return False + 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() + Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then @@ -180,82 +180,82 @@ Partial Public Class DD_DMSDataSetCalendar Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars Else Me.ReadXml(reader) - Me.InitVars() + 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) + Me.InitVars(true) End Sub - - _ + + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"), TBPMO_APPOINTMENTSDataTable) - If (initTable = True) Then + 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() + Me.tableTBPMO_APPOINTMENTS.InitVars End If End If - Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"), TBPMO_RESOURCESDataTable) - If (initTable = True) Then + Me.tableTBPMO_RESOURCES = CType(MyBase.Tables("TBPMO_RESOURCES"),TBPMO_RESOURCESDataTable) + If (initTable = true) Then If (Not (Me.tableTBPMO_RESOURCES) Is Nothing) Then - Me.tableTBPMO_RESOURCES.InitVars() + Me.tableTBPMO_RESOURCES.InitVars End If End If End Sub - - _ + + _ Private Sub InitClass() Me.DataSetName = "DD_DMSDataSetCalendar" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_DMSDataSetCalendar.xsd" - Me.EnforceConstraints = True + Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable() MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS) Me.tableTBPMO_RESOURCES = New TBPMO_RESOURCESDataTable() MyBase.Tables.Add(Me.tableTBPMO_RESOURCES) End Sub - - _ + + _ Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBPMO_RESOURCES() As Boolean - Return False + 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() + 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_DMSDataSetCalendar = New DD_DMSDataSetCalendar() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -268,102 +268,102 @@ Partial Public Class DD_DMSDataSetCalendar 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 + 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) + 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) _ + + 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() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function - - _ + + _ Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent) - - _ + + _ Public Delegate Sub TBPMO_RESOURCESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RESOURCESRowChangeEvent) - + ''' '''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() + MyBase.New Me.TableName = "TBPMO_APPOINTMENTS" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() + MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -377,209 +377,209 @@ Partial Public Class DD_DMSDataSetCalendar 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() + 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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_APPOINTMENTSRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_APPOINTMENTSRow Get - Return CType(Me.Rows(index), TBPMO_APPOINTMENTSRow) + 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 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) + 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() + 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") @@ -598,9 +598,9 @@ Partial Public Class DD_DMSDataSetCalendar 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) @@ -634,13 +634,13 @@ Partial Public Class DD_DMSDataSetCalendar 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.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.columnUniqueID.AllowDBNull = false + Me.columnUniqueID.ReadOnly = true + Me.columnUniqueID.Unique = true Me.columnSubject.MaxLength = 150 Me.columnLocation.MaxLength = 50 Me.columnDescription.MaxLength = 2147483647 @@ -650,69 +650,69 @@ Partial Public Class DD_DMSDataSetCalendar Me.columnCustomField1.MaxLength = 2147483647 Me.columnCustomField2.MaxLength = 2147483647 End Sub - - _ + + _ Public Function NewTBPMO_APPOINTMENTSRow() As TBPMO_APPOINTMENTSRow - Return CType(Me.NewRow, 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)) + 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)) + 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)) + 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)) + 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() @@ -741,35 +741,35 @@ Partial Public Class DD_DMSDataSetCalendar 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 + 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) + 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) _ + + 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() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -777,41 +777,41 @@ Partial Public Class DD_DMSDataSetCalendar Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_RESOURCESDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_RESOURCESRow) - + Private columnUniqueID As Global.System.Data.DataColumn - + Private columnResourceID As Global.System.Data.DataColumn - + Private columnResourceName As Global.System.Data.DataColumn - + Private columnColor As Global.System.Data.DataColumn - + Private columnImage As Global.System.Data.DataColumn - + Private columnCustomField1 As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New() + MyBase.New Me.TableName = "TBPMO_RESOURCES" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() + MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -825,129 +825,129 @@ Partial Public Class DD_DMSDataSetCalendar 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() + Me.InitVars End Sub - - _ + + _ Public ReadOnly Property UniqueIDColumn() As Global.System.Data.DataColumn Get Return Me.columnUniqueID End Get End Property - - _ + + _ Public ReadOnly Property ResourceIDColumn() As Global.System.Data.DataColumn Get Return Me.columnResourceID End Get End Property - - _ + + _ Public ReadOnly Property ResourceNameColumn() As Global.System.Data.DataColumn Get Return Me.columnResourceName End Get End Property - - _ + + _ Public ReadOnly Property ColorColumn() As Global.System.Data.DataColumn Get Return Me.columnColor End Get End Property - - _ + + _ Public ReadOnly Property ImageColumn() As Global.System.Data.DataColumn Get Return Me.columnImage End Get End Property - - _ + + _ Public ReadOnly Property CustomField1Column() As Global.System.Data.DataColumn Get Return Me.columnCustomField1 End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_RESOURCESRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RESOURCESRow Get - Return CType(Me.Rows(index), TBPMO_RESOURCESRow) + Return CType(Me.Rows(index),TBPMO_RESOURCESRow) End Get End Property - - _ + + _ Public Event TBPMO_RESOURCESRowChanging As TBPMO_RESOURCESRowChangeEventHandler - - _ + + _ Public Event TBPMO_RESOURCESRowChanged As TBPMO_RESOURCESRowChangeEventHandler - - _ + + _ Public Event TBPMO_RESOURCESRowDeleting As TBPMO_RESOURCESRowChangeEventHandler - - _ + + _ Public Event TBPMO_RESOURCESRowDeleted As TBPMO_RESOURCESRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_RESOURCESRow(ByVal row As TBPMO_RESOURCESRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBPMO_RESOURCESRow(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Integer, ByVal Image() As Byte, ByVal CustomField1 As String) As TBPMO_RESOURCESRow - Dim rowTBPMO_RESOURCESRow As TBPMO_RESOURCESRow = CType(Me.NewRow, TBPMO_RESOURCESRow) + Dim rowTBPMO_RESOURCESRow As TBPMO_RESOURCESRow = CType(Me.NewRow,TBPMO_RESOURCESRow) Dim columnValuesArray() As Object = New Object() {Nothing, ResourceID, ResourceName, Color, Image, CustomField1} rowTBPMO_RESOURCESRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_RESOURCESRow) Return rowTBPMO_RESOURCESRow End Function - - _ + + _ Public Function FindByUniqueID(ByVal UniqueID As Integer) As TBPMO_RESOURCESRow - Return CType(Me.Rows.Find(New Object() {UniqueID}), TBPMO_RESOURCESRow) + Return CType(Me.Rows.Find(New Object() {UniqueID}),TBPMO_RESOURCESRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_RESOURCESDataTable = CType(MyBase.Clone, TBPMO_RESOURCESDataTable) - cln.InitVars() + Dim cln As TBPMO_RESOURCESDataTable = CType(MyBase.Clone,TBPMO_RESOURCESDataTable) + cln.InitVars Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_RESOURCESDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnUniqueID = MyBase.Columns("UniqueID") Me.columnResourceID = MyBase.Columns("ResourceID") @@ -956,9 +956,9 @@ Partial Public Class DD_DMSDataSetCalendar Me.columnImage = MyBase.Columns("Image") Me.columnCustomField1 = MyBase.Columns("CustomField1") 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) @@ -972,80 +972,80 @@ Partial Public Class DD_DMSDataSetCalendar MyBase.Columns.Add(Me.columnImage) Me.columnCustomField1 = New Global.System.Data.DataColumn("CustomField1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCustomField1) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUniqueID}, True)) - Me.columnUniqueID.AutoIncrement = True + 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.columnResourceID.AllowDBNull = False + Me.columnUniqueID.AllowDBNull = false + Me.columnUniqueID.ReadOnly = true + Me.columnUniqueID.Unique = true + Me.columnResourceID.AllowDBNull = false Me.columnResourceName.MaxLength = 50 Me.columnCustomField1.MaxLength = 2147483647 End Sub - - _ + + _ Public Function NewTBPMO_RESOURCESRow() As TBPMO_RESOURCESRow - Return CType(Me.NewRow, TBPMO_RESOURCESRow) + Return CType(Me.NewRow,TBPMO_RESOURCESRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_RESOURCESRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_RESOURCESRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_RESOURCESRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_RESOURCESRowChanged(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + RaiseEvent TBPMO_RESOURCESRowChanged(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row,TBPMO_RESOURCESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_RESOURCESRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_RESOURCESRowChanging(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + RaiseEvent TBPMO_RESOURCESRowChanging(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row,TBPMO_RESOURCESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_RESOURCESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_RESOURCESRowDeleted(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + RaiseEvent TBPMO_RESOURCESRowDeleted(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row,TBPMO_RESOURCESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_RESOURCESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_RESOURCESRowDeleting(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row, TBPMO_RESOURCESRow), e.Action)) + RaiseEvent TBPMO_RESOURCESRowDeleting(Me, New TBPMO_RESOURCESRowChangeEvent(CType(e.Row,TBPMO_RESOURCESRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBPMO_RESOURCESRow(ByVal row As TBPMO_RESOURCESRow) 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() @@ -1074,35 +1074,35 @@ Partial Public Class DD_DMSDataSetCalendar 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 + 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) + 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) _ + + 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() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -1110,650 +1110,650 @@ Partial Public Class DD_DMSDataSetCalendar Return type End Function 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) + Me.tableTBPMO_APPOINTMENTS = CType(Me.Table,TBPMO_APPOINTMENTSDataTable) End Sub - - _ + + _ Public Property UniqueID() As Integer Get - Return CType(Me(Me.tableTBPMO_APPOINTMENTS.UniqueIDColumn), Integer) + Return CType(Me(Me.tableTBPMO_APPOINTMENTS.UniqueIDColumn),Integer) End Get - Set(value As Integer) + 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) + 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(value As Integer) + 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) + 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(value As Date) + 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) + 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(value As Date) + 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) + 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(value As Boolean) + 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) + 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(value As String) + 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) + 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(value As String) + 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) + 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(value As String) + 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) + 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(value As Integer) + 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) + 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(value As Integer) + 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) + 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(value As Integer) + 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) + 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(value As String) + 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) + 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(value As String) + 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) + 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(value As String) + 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) + 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(value As String) + 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) + 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(value As String) + 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 - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_RESOURCESRow Inherits Global.System.Data.DataRow - + Private tableTBPMO_RESOURCES As TBPMO_RESOURCESDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPMO_RESOURCES = CType(Me.Table, TBPMO_RESOURCESDataTable) + Me.tableTBPMO_RESOURCES = CType(Me.Table,TBPMO_RESOURCESDataTable) End Sub - - _ + + _ Public Property UniqueID() As Integer Get - Return CType(Me(Me.tableTBPMO_RESOURCES.UniqueIDColumn), Integer) + Return CType(Me(Me.tableTBPMO_RESOURCES.UniqueIDColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_RESOURCES.UniqueIDColumn) = value End Set End Property - - _ + + _ Public Property ResourceID() As Integer Get - Return CType(Me(Me.tableTBPMO_RESOURCES.ResourceIDColumn), Integer) + Return CType(Me(Me.tableTBPMO_RESOURCES.ResourceIDColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_RESOURCES.ResourceIDColumn) = value End Set End Property - - _ + + _ Public Property ResourceName() As String Get - Try - Return CType(Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn), String) + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ResourceName in Tabelle TBPMO_RESOURCES ist DBNull.", e) End Try End Get - Set(value As String) + Set Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn) = value End Set End Property - - _ + + _ Public Property Color() As Integer Get - Try - Return CType(Me(Me.tableTBPMO_RESOURCES.ColorColumn), Integer) + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.ColorColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Color in Tabelle TBPMO_RESOURCES ist DBNull.", e) End Try End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_RESOURCES.ColorColumn) = value End Set End Property - - _ + + _ Public Property Image() As Byte() Get - Try - Return CType(Me(Me.tableTBPMO_RESOURCES.ImageColumn), Byte()) + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.ImageColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Image in Tabelle TBPMO_RESOURCES ist DBNull.", e) End Try End Get - Set(value As Byte()) + Set Me(Me.tableTBPMO_RESOURCES.ImageColumn) = value End Set End Property - - _ + + _ Public Property CustomField1() As String Get - Try - Return CType(Me(Me.tableTBPMO_RESOURCES.CustomField1Column), String) + Try + Return CType(Me(Me.tableTBPMO_RESOURCES.CustomField1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomField1 in Tabelle TBPMO_RESOURCES ist DBNull.", e) End Try End Get - Set(value As String) + Set Me(Me.tableTBPMO_RESOURCES.CustomField1Column) = value End Set End Property - - _ + + _ Public Function IsResourceNameNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RESOURCES.ResourceNameColumn) End Function - - _ + + _ Public Sub SetResourceNameNull() Me(Me.tableTBPMO_RESOURCES.ResourceNameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsColorNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RESOURCES.ColorColumn) End Function - - _ + + _ Public Sub SetColorNull() Me(Me.tableTBPMO_RESOURCES.ColorColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsImageNull() As Boolean Return Me.IsNull(Me.tableTBPMO_RESOURCES.ImageColumn) End Function - - _ + + _ Public Sub SetImageNull() Me(Me.tableTBPMO_RESOURCES.ImageColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCustomField1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_RESOURCES.CustomField1Column) End Function - - _ + + _ Public Sub SetCustomField1Null() Me(Me.tableTBPMO_RESOURCES.CustomField1Column) = Global.System.Convert.DBNull End Sub 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() + 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 - + ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_RESOURCESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_RESOURCESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_RESOURCESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New() + MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBPMO_RESOURCESRow Get Return Me.eventRow End Get End Property - - _ + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -1763,57 +1763,57 @@ Partial Public Class DD_DMSDataSetCalendar End Class Namespace DD_DMSDataSetCalendarTableAdapters - + ''' '''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 + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -1827,65 +1827,65 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -1910,643 +1910,643 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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" & _ + 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.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" & _ + 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.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" & _ + 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, "", "", "")) + 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_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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 UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Desc" & _ - "ription, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, C" & _ - "ustomField1, CustomField2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_APPOINTMENTS" + Me._commandCollection(0).CommandText = "SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Desc"& _ + "ription, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, C"& _ + "ustomField1, CustomField2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_APPOINTMENTS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable = New DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_APPOINTMENTSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetCalendar) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetCalendar) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_APPOINTMENTS") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads 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) + + _ + 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(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) + 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(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) + 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(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) + 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(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(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) + 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(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) + 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) + 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(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) + 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(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) + 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(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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads 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) + + _ + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads 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), _ + + _ + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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(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) + 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(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) + 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(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) + 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(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(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) + 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(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) + 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) + 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(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) + 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(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) + 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(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) + 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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads 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), _ + + _ + 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 - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_RESOURCESTableAdapter 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 + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -2560,65 +2560,65 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -2633,364 +2633,364 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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 [dbo].[TBPMO_RESOURCES] WHERE (([UniqueID] = @Original_UniqueID) AND " & _ - "([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [Resour" & _ - "ceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Col" & _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE (([UniqueID] = @Original_UniqueID) AND "& _ + "([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [Resour"& _ + "ceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Col"& _ "or = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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("@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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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("@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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ResourceName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_RESOURCES] ([ResourceID], [ResourceName], [Color], [Imag" & _ - "e], [CustomField1]) VALUES (@ResourceID, @ResourceName, @Color, @Image, @CustomF" & _ - "ield1);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 F" & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_RESOURCES] ([ResourceID], [ResourceName], [Color], [Imag"& _ + "e], [CustomField1]) VALUES (@ResourceID, @ResourceName, @Color, @Image, @CustomF"& _ + "ield1);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 F"& _ "ROM TBPMO_RESOURCES WHERE (UniqueID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - 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("@ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Image", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Image", 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("@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("@ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Image", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Image", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @" & _ - "ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1" & _ - " WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_Resource" & _ - "ID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName" & _ - "] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([C" & _ - "olor] = @Original_Color)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT UniqueID, ResourceID, ResourceName, Color, I" & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @"& _ + "ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1"& _ + " WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_Resource"& _ + "ID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName"& _ + "] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([C"& _ + "olor] = @Original_Color)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UniqueID, ResourceID, ResourceName, Color, I"& _ "mage, CustomField1 FROM TBPMO_RESOURCES WHERE (UniqueID = @UniqueID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - 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("@ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Image", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Image", 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("@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("@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("@IsNull_ResourceName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UniqueID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UniqueID", 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("@ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Image", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Image", 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("@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("@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("@IsNull_ResourceName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ResourceName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ResourceName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Color", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Color", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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 UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM dbo.TB" & _ + Me._commandCollection(0).CommandText = "SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM dbo.TB"& _ "PMO_RESOURCES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable = New DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetCalendar.TBPMO_RESOURCESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetCalendar) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetCalendar) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_RESOURCES") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UniqueID, Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ResourceID, Integer) + + _ + Public Overloads Overridable Function Delete(ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UniqueID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ResourceID,Integer) If (Original_ResourceName Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) + 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_ResourceName, String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ResourceName,String) End If - If (Original_Color.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Color.Value, Integer) + If (Original_Color.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Color.Value,Integer) Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ResourceID, Integer) + + _ + Public Overloads Overridable Function Insert(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ResourceID,Integer) If (ResourceName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ResourceName, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ResourceName,String) End If - If (Color.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(2).Value = CType(Color.Value, Integer) + If (Color.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Color.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Image Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Image, Byte()) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Image,Byte()) End If If (CustomField1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(CustomField1, String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CustomField1,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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String, ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer), ByVal UniqueID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ResourceID, Integer) + + _ + Public Overloads Overridable Function Update(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String, ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer), ByVal UniqueID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ResourceID,Integer) If (ResourceName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ResourceName, String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ResourceName,String) End If - If (Color.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Color.Value, Integer) + If (Color.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Color.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Image Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Image, Byte()) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Image,Byte()) End If If (CustomField1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CustomField1, String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CustomField1,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_UniqueID, Integer) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ResourceID, Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_UniqueID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ResourceID,Integer) If (Original_ResourceName Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1, Object) + 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_ResourceName, String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ResourceName,String) End If - If (Original_Color.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Color.Value, Integer) + If (Original_Color.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Color.Value,Integer) Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1, Object) + 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(UniqueID, Integer) + Me.Adapter.UpdateCommand.Parameters(11).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String, ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer)) As Integer + + _ + Public Overloads Overridable Function Update(ByVal ResourceID As Integer, ByVal ResourceName As String, ByVal Color As Global.System.Nullable(Of Integer), ByVal Image() As Byte, ByVal CustomField1 As String, ByVal Original_UniqueID As Integer, ByVal Original_ResourceID As Integer, ByVal Original_ResourceName As String, ByVal Original_Color As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(ResourceID, ResourceName, Color, Image, CustomField1, Original_UniqueID, Original_ResourceID, Original_ResourceName, Original_Color, 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_APPOINTMENTSTableAdapter As TBPMO_APPOINTMENTSTableAdapter - + Private _tBPMO_RESOURCESTableAdapter As TBPMO_RESOURCESTableAdapter - + Private _backupDataSetBeforeUpdate As Boolean - + Private _connection As Global.System.Data.IDbConnection - - _ + + _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get - Set(value As UpdateOrderOption) + Set Me._updateOrder = value End Set End Property - - _ + + _ Public Property TBPMO_APPOINTMENTSTableAdapter() As TBPMO_APPOINTMENTSTableAdapter Get Return Me._tBPMO_APPOINTMENTSTableAdapter End Get - Set(value As TBPMO_APPOINTMENTSTableAdapter) + Set Me._tBPMO_APPOINTMENTSTableAdapter = value End Set End Property - - _ + + _ Public Property TBPMO_RESOURCESTableAdapter() As TBPMO_RESOURCESTableAdapter Get Return Me._tBPMO_RESOURCESTableAdapter End Get - Set(value As TBPMO_RESOURCESTableAdapter) + Set Me._tBPMO_RESOURCESTableAdapter = value End Set End Property - - _ + + _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get - Set(value As Boolean) + 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_APPOINTMENTSTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_APPOINTMENTSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_APPOINTMENTSTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_APPOINTMENTSTableAdapter.Connection End If - If ((Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_RESOURCESTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_RESOURCESTableAdapter.Connection End If Return Nothing End Get - Set(value As Global.System.Data.IDbConnection) + Set Me._connection = value End Set End Property - - _ + + _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 @@ -3003,18 +3003,18 @@ Namespace DD_DMSDataSetCalendarTableAdapters Return count End Get End Property - + ''' '''Update rows in top-down order. ''' - _ + _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSetCalendar, 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_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) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -3023,7 +3023,7 @@ Namespace DD_DMSDataSetCalendarTableAdapters If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESOURCES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_RESOURCESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -3031,17 +3031,17 @@ Namespace DD_DMSDataSetCalendarTableAdapters End If Return result End Function - + ''' '''Insert rows in top-down order. ''' - _ + _ Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSetCalendar, ByVal allAddedRows 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 addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_APPOINTMENTS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -3049,7 +3049,7 @@ Namespace DD_DMSDataSetCalendarTableAdapters End If If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESOURCES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_RESOURCESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -3057,17 +3057,17 @@ Namespace DD_DMSDataSetCalendarTableAdapters End If Return result End Function - + ''' '''Delete rows in bottom-up order. ''' - _ + _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSetCalendar, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RESOURCES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_RESOURCESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -3075,7 +3075,7 @@ Namespace DD_DMSDataSetCalendarTableAdapters End If 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) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_APPOINTMENTSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -3083,18 +3083,18 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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) _ + If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If - If ((allAddedRows Is Nothing) _ + If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If @@ -3102,55 +3102,55 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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 + 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_DMSDataSetCalendar) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If - If (dataSet.HasChanges = False) Then + If (dataSet.HasChanges = false) Then Return 0 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" & _ + 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 - If ((Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RESOURCESTableAdapter.Connection) = False)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + If ((Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RESOURCESTableAdapter.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" & _ + 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) _ + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then - workConnection.Close() + workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then - workConnection.Open() - workConnOpened = True + 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" & _ + 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)() @@ -3163,24 +3163,24 @@ Namespace DD_DMSDataSetCalendarTableAdapters backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If - Try + Try '---- Prepare for update ----------- ' 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) + 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 + Me._tBPMO_APPOINTMENTSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_APPOINTMENTSTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_RESOURCESTableAdapter, Me._tBPMO_RESOURCESTableAdapter.Connection) - Me._tBPMO_RESOURCESTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_RESOURCESTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_RESOURCESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RESOURCESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_RESOURCESTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_RESOURCESTableAdapter.Adapter.AcceptChangesDuringUpdate = False + Me._tBPMO_RESOURCESTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RESOURCESTableAdapter.Adapter) End If End If @@ -3198,14 +3198,14 @@ Namespace DD_DMSDataSetCalendarTableAdapters ' '---- Commit updates ----------- ' - workTransaction.Commit() + 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() + row.AcceptChanges i = (i + 1) Loop End If @@ -3215,16 +3215,16 @@ Namespace DD_DMSDataSetCalendarTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() + row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception - workTransaction.Rollback() + workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) - dataSet.Clear() + dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then @@ -3233,8 +3233,8 @@ Namespace DD_DMSDataSetCalendarTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() - row.SetAdded() + row.AcceptChanges + row.SetAdded i = (i + 1) Loop End If @@ -3242,14 +3242,14 @@ Namespace DD_DMSDataSetCalendarTableAdapters Throw ex Finally If workConnOpened Then - workConnection.Close() + workConnection.Close 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.Connection = CType(revertConnections(Me._tBPMO_APPOINTMENTSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_APPOINTMENTSTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_RESOURCESTableAdapter) Is Nothing) Then - Me._tBPMO_RESOURCESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RESOURCESTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RESOURCESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RESOURCESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RESOURCESTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then @@ -3258,63 +3258,63 @@ Namespace DD_DMSDataSetCalendarTableAdapters Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) - adapter.AcceptChangesDuringUpdate = True + 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 + Return true End If - If ((Me.Connection Is Nothing) _ + If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then - Return True + Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then - Return True + Return true End If - Return False + 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() + MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 @@ -3322,9 +3322,9 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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 @@ -3335,8 +3335,8 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -3345,12 +3345,12 @@ Namespace DD_DMSDataSetCalendarTableAdapters Loop If (distance = 0) Then - traversedRows.Clear() + 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)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -3361,9 +3361,9 @@ Namespace DD_DMSDataSetCalendarTableAdapters 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 @@ -3384,7 +3384,7 @@ Namespace DD_DMSDataSetCalendarTableAdapters If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else - Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + 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 diff --git a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.xsc b/app/DD-Record-Organizer/DD_DMSDataSetCalendar.xsc similarity index 100% rename from app/DD-Record-Organiser/DD_DMSDataSetCalendar.xsc rename to app/DD-Record-Organizer/DD_DMSDataSetCalendar.xsc diff --git a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd b/app/DD-Record-Organizer/DD_DMSDataSetCalendar.xsd similarity index 99% rename from app/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd rename to app/DD-Record-Organizer/DD_DMSDataSetCalendar.xsd index 61d628e..f6f8b65 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.xsd +++ b/app/DD-Record-Organizer/DD_DMSDataSetCalendar.xsd @@ -4,7 +4,7 @@ - + diff --git a/app/DD-Record-Organiser/DD_DMSDataSetCalendar.xss b/app/DD-Record-Organizer/DD_DMSDataSetCalendar.xss similarity index 100% rename from app/DD-Record-Organiser/DD_DMSDataSetCalendar.xss rename to app/DD-Record-Organizer/DD_DMSDataSetCalendar.xss diff --git a/app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb b/app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.Designer.vb similarity index 78% rename from app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb rename to app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.Designer.vb index 3774235..1e5e0fb 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.Designer.vb +++ b/app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.Designer.vb @@ -16,47 +16,47 @@ Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' - _ + _ Partial Public Class DD_DMSDataSetMenuDesigner Inherits Global.System.Data.DataSet - + Private tableTBPMO_MENU_FORM As TBPMO_MENU_FORMDataTable - + Private tableTBPMO_MENU_FORM_ENTRIES As TBPMO_MENU_FORM_ENTRIESDataTable - + Private relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_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() + 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() + 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) + 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) + 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))) @@ -72,8 +72,8 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() + 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 @@ -82,92 +82,92 @@ Partial Public Class DD_DMSDataSetMenuDesigner AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - - _ + + _ Public ReadOnly Property TBPMO_MENU_FORM() As TBPMO_MENU_FORMDataTable Get Return Me.tableTBPMO_MENU_FORM End Get End Property - - _ + + _ Public ReadOnly Property TBPMO_MENU_FORM_ENTRIES() As TBPMO_MENU_FORM_ENTRIESDataTable Get Return Me.tableTBPMO_MENU_FORM_ENTRIES End Get End Property - - _ + + _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get - Set(value As Global.System.Data.SchemaSerializationMode) + 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() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DD_DMSDataSetMenuDesigner = CType(MyBase.Clone, DD_DMSDataSetMenuDesigner) - cln.InitVars() + Dim cln As DD_DMSDataSetMenuDesigner = CType(MyBase.Clone,DD_DMSDataSetMenuDesigner) + cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + _ Protected Overrides Function ShouldSerializeTables() As Boolean - Return False + Return false End Function - - _ + + _ Protected Overrides Function ShouldSerializeRelations() As Boolean - Return False + 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() + Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBPMO_MENU_FORM")) Is Nothing) Then @@ -182,85 +182,85 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars Else Me.ReadXml(reader) - Me.InitVars() + 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) + Me.InitVars(true) End Sub - - _ + + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBPMO_MENU_FORM = CType(MyBase.Tables("TBPMO_MENU_FORM"), TBPMO_MENU_FORMDataTable) - If (initTable = True) Then + Me.tableTBPMO_MENU_FORM = CType(MyBase.Tables("TBPMO_MENU_FORM"),TBPMO_MENU_FORMDataTable) + If (initTable = true) Then If (Not (Me.tableTBPMO_MENU_FORM) Is Nothing) Then - Me.tableTBPMO_MENU_FORM.InitVars() + Me.tableTBPMO_MENU_FORM.InitVars End If End If - Me.tableTBPMO_MENU_FORM_ENTRIES = CType(MyBase.Tables("TBPMO_MENU_FORM_ENTRIES"), TBPMO_MENU_FORM_ENTRIESDataTable) - If (initTable = True) Then + Me.tableTBPMO_MENU_FORM_ENTRIES = CType(MyBase.Tables("TBPMO_MENU_FORM_ENTRIES"),TBPMO_MENU_FORM_ENTRIESDataTable) + If (initTable = true) Then If (Not (Me.tableTBPMO_MENU_FORM_ENTRIES) Is Nothing) Then - Me.tableTBPMO_MENU_FORM_ENTRIES.InitVars() + Me.tableTBPMO_MENU_FORM_ENTRIES.InitVars End If End If Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = Me.Relations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID") End Sub - - _ + + _ Private Sub InitClass() Me.DataSetName = "DD_DMSDataSetMenuDesigner" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_DMSDataSetMenuDesigner.xsd" - Me.EnforceConstraints = True + Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_MENU_FORM = New TBPMO_MENU_FORMDataTable() MyBase.Tables.Add(Me.tableTBPMO_MENU_FORM) Me.tableTBPMO_MENU_FORM_ENTRIES = New TBPMO_MENU_FORM_ENTRIESDataTable() MyBase.Tables.Add(Me.tableTBPMO_MENU_FORM_ENTRIES) - Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn}, False) + Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID) End Sub - - _ + + _ Private Function ShouldSerializeTBPMO_MENU_FORM() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBPMO_MENU_FORM_ENTRIES() As Boolean - Return False + 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() + 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_DMSDataSetMenuDesigner = New DD_DMSDataSetMenuDesigner() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -273,86 +273,86 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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 + 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) + 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) _ + + 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() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function - - _ + + _ Public Delegate Sub TBPMO_MENU_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_MENU_FORMRowChangeEvent) - - _ + + _ Public Delegate Sub TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_MENU_FORM_ENTRIESRowChangeEvent) - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_MENU_FORMDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_MENU_FORMRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnMENU_ENTRY As Global.System.Data.DataColumn - + Private columnICON_PATH As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New() + MyBase.New Me.TableName = "TBPMO_MENU_FORM" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() + MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -366,145 +366,145 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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() + Me.InitVars End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property MENU_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_ENTRY End Get End Property - - _ + + _ Public ReadOnly Property ICON_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnICON_PATH End Get End Property - - _ + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORMRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORMRow Get - Return CType(Me.Rows(index), TBPMO_MENU_FORMRow) + Return CType(Me.Rows(index),TBPMO_MENU_FORMRow) End Get End Property - - _ + + _ Public Event TBPMO_MENU_FORMRowChanging As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORMRowChanged As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORMRowDeleting As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORMRowDeleted As TBPMO_MENU_FORMRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_MENU_FORMRow(ByVal row As TBPMO_MENU_FORMRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBPMO_MENU_FORMRow(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_MENU_FORMRow - Dim rowTBPMO_MENU_FORMRow As TBPMO_MENU_FORMRow = CType(Me.NewRow, TBPMO_MENU_FORMRow) + Dim rowTBPMO_MENU_FORMRow As TBPMO_MENU_FORMRow = CType(Me.NewRow,TBPMO_MENU_FORMRow) Dim columnValuesArray() As Object = New Object() {Nothing, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBPMO_MENU_FORMRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_MENU_FORMRow) Return rowTBPMO_MENU_FORMRow End Function - - _ + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_MENU_FORMRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_MENU_FORMRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_MENU_FORMRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_MENU_FORMDataTable = CType(MyBase.Clone, TBPMO_MENU_FORMDataTable) - cln.InitVars() + Dim cln As TBPMO_MENU_FORMDataTable = CType(MyBase.Clone,TBPMO_MENU_FORMDataTable) + cln.InitVars Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_MENU_FORMDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMENU_ENTRY = MyBase.Columns("MENU_ENTRY") @@ -515,9 +515,9 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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) @@ -535,85 +535,85 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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.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.columnMENU_ENTRY.AllowDBNull = False + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnMENU_ENTRY.AllowDBNull = false Me.columnMENU_ENTRY.MaxLength = 100 Me.columnICON_PATH.MaxLength = 1000 - Me.columnSEQUENCE.AllowDBNull = False - Me.columnADDED_WHO.AllowDBNull = False + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 - Me.columnADDED_WHEN.AllowDBNull = False + Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + _ Public Function NewTBPMO_MENU_FORMRow() As TBPMO_MENU_FORMRow - Return CType(Me.NewRow, TBPMO_MENU_FORMRow) + Return CType(Me.NewRow,TBPMO_MENU_FORMRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_MENU_FORMRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_MENU_FORMRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_MENU_FORMRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowChanged(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowChanged(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_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_MENU_FORMRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowChanging(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowChanging(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_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_MENU_FORMRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowDeleted(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowDeleted(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_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_MENU_FORMRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORMRowDeleting(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row, TBPMO_MENU_FORMRow), e.Action)) + RaiseEvent TBPMO_MENU_FORMRowDeleting(Me, New TBPMO_MENU_FORMRowChangeEvent(CType(e.Row,TBPMO_MENU_FORMRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBPMO_MENU_FORMRow(ByVal row As TBPMO_MENU_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() @@ -642,35 +642,35 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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 + 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) + 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) _ + + 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() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -678,49 +678,49 @@ Partial Public Class DD_DMSDataSetMenuDesigner Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_MENU_FORM_ENTRIESDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_MENU_FORM_ENTRIESRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnMENU_FORM_ID As Global.System.Data.DataColumn - + Private columnFORM_ID As Global.System.Data.DataColumn - + Private columnICON_PATH As Global.System.Data.DataColumn - + Private columnMENU_ENTRY As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New() + MyBase.New Me.TableName = "TBPMO_MENU_FORM_ENTRIES" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New() + MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -734,133 +734,133 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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() + Me.InitVars End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property MENU_FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_FORM_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 ICON_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnICON_PATH End Get End Property - - _ + + _ Public ReadOnly Property MENU_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_ENTRY End Get End Property - - _ + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORM_ENTRIESRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_MENU_FORM_ENTRIESRow Get - Return CType(Me.Rows(index), TBPMO_MENU_FORM_ENTRIESRow) + Return CType(Me.Rows(index),TBPMO_MENU_FORM_ENTRIESRow) End Get End Property - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowChanging As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowChanged As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowDeleting As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Event TBPMO_MENU_FORM_ENTRIESRowDeleted As TBPMO_MENU_FORM_ENTRIESRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_MENU_FORM_ENTRIESRow(ByVal row As TBPMO_MENU_FORM_ENTRIESRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBPMO_MENU_FORM_ENTRIESRow(ByVal parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID As TBPMO_MENU_FORMRow, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_MENU_FORM_ENTRIESRow - Dim rowTBPMO_MENU_FORM_ENTRIESRow As TBPMO_MENU_FORM_ENTRIESRow = CType(Me.NewRow, TBPMO_MENU_FORM_ENTRIESRow) + Dim rowTBPMO_MENU_FORM_ENTRIESRow As TBPMO_MENU_FORM_ENTRIESRow = CType(Me.NewRow,TBPMO_MENU_FORM_ENTRIESRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_MENU_FORMRowByFK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID(0) @@ -869,29 +869,29 @@ Partial Public Class DD_DMSDataSetMenuDesigner Me.Rows.Add(rowTBPMO_MENU_FORM_ENTRIESRow) Return rowTBPMO_MENU_FORM_ENTRIESRow End Function - - _ + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_MENU_FORM_ENTRIESRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_MENU_FORM_ENTRIESRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_MENU_FORM_ENTRIESRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_MENU_FORM_ENTRIESDataTable = CType(MyBase.Clone, TBPMO_MENU_FORM_ENTRIESDataTable) - cln.InitVars() + Dim cln As TBPMO_MENU_FORM_ENTRIESDataTable = CType(MyBase.Clone,TBPMO_MENU_FORM_ENTRIESDataTable) + cln.InitVars Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_MENU_FORM_ENTRIESDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMENU_FORM_ID = MyBase.Columns("MENU_FORM_ID") @@ -904,9 +904,9 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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) @@ -928,87 +928,87 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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.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.columnMENU_FORM_ID.AllowDBNull = False - Me.columnFORM_ID.AllowDBNull = False + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnMENU_FORM_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false Me.columnICON_PATH.MaxLength = 1000 - Me.columnMENU_ENTRY.AllowDBNull = False + Me.columnMENU_ENTRY.AllowDBNull = false Me.columnMENU_ENTRY.MaxLength = 50 - Me.columnSEQUENCE.AllowDBNull = False - Me.columnADDED_WHO.AllowDBNull = False + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 - Me.columnADDED_WHEN.AllowDBNull = False + Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - _ + + _ Public Function NewTBPMO_MENU_FORM_ENTRIESRow() As TBPMO_MENU_FORM_ENTRIESRow - Return CType(Me.NewRow, TBPMO_MENU_FORM_ENTRIESRow) + Return CType(Me.NewRow,TBPMO_MENU_FORM_ENTRIESRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_MENU_FORM_ENTRIESRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_MENU_FORM_ENTRIESRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanged(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanged(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanging(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowChanging(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleted(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleted(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_MENU_FORM_ENTRIESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleting(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row, TBPMO_MENU_FORM_ENTRIESRow), e.Action)) + RaiseEvent TBPMO_MENU_FORM_ENTRIESRowDeleting(Me, New TBPMO_MENU_FORM_ENTRIESRowChangeEvent(CType(e.Row,TBPMO_MENU_FORM_ENTRIESRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBPMO_MENU_FORM_ENTRIESRow(ByVal row As TBPMO_MENU_FORM_ENTRIESRow) 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() @@ -1037,35 +1037,35 @@ Partial Public Class DD_DMSDataSetMenuDesigner 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 + 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) + 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) _ + + 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() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -1073,419 +1073,419 @@ Partial Public Class DD_DMSDataSetMenuDesigner Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_MENU_FORMRow Inherits Global.System.Data.DataRow - + Private tableTBPMO_MENU_FORM As TBPMO_MENU_FORMDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPMO_MENU_FORM = CType(Me.Table, TBPMO_MENU_FORMDataTable) + Me.tableTBPMO_MENU_FORM = CType(Me.Table,TBPMO_MENU_FORMDataTable) End Sub - - _ + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.GUIDColumn), Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM.GUIDColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_MENU_FORM.GUIDColumn) = value End Set End Property - - _ + + _ Public Property MENU_ENTRY() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn), String) + Return CType(Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn),String) End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM.MENU_ENTRYColumn) = value End Set End Property - - _ + + _ Public Property ICON_PATH() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn), String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ICON_PATH in Tabelle TBPMO_MENU_FORM ist DBNull.", e) End Try End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) = value End Set End Property - - _ + + _ Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn), Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_MENU_FORM.SEQUENCEColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn), String) + Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn),String) End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM.ADDED_WHOColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn), Date) + Return CType(Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn),Date) End Get - Set(value As Date) + Set Me(Me.tableTBPMO_MENU_FORM.ADDED_WHENColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBPMO_MENU_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_MENU_FORM ist DBNull.", e) End Try End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBPMO_MENU_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_MENU_FORM ist DBNull.", e) End Try End Get - Set(value As Date) + Set Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) = value End Set End Property - - _ + + _ Public Function IsICON_PATHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) End Function - - _ + + _ Public Sub SetICON_PATHNull() Me(Me.tableTBPMO_MENU_FORM.ICON_PATHColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_MENU_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function GetTBPMO_MENU_FORM_ENTRIESRows() As TBPMO_MENU_FORM_ENTRIESRow() If (Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID") Is Nothing) Then Return New TBPMO_MENU_FORM_ENTRIESRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")), TBPMO_MENU_FORM_ENTRIESRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")),TBPMO_MENU_FORM_ENTRIESRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_MENU_FORM_ENTRIESRow Inherits Global.System.Data.DataRow - + Private tableTBPMO_MENU_FORM_ENTRIES As TBPMO_MENU_FORM_ENTRIESDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPMO_MENU_FORM_ENTRIES = CType(Me.Table, TBPMO_MENU_FORM_ENTRIESDataTable) + Me.tableTBPMO_MENU_FORM_ENTRIES = CType(Me.Table,TBPMO_MENU_FORM_ENTRIESDataTable) End Sub - - _ + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn), Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.GUIDColumn) = value End Set End Property - - _ + + _ Public Property MENU_FORM_ID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn), Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_FORM_IDColumn) = value End Set End Property - - _ + + _ Public Property FORM_ID() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn), Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.FORM_IDColumn) = value End Set End Property - - _ + + _ Public Property ICON_PATH() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn), String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ICON_PATH in Tabelle TBPMO_MENU_FORM_ENTRIES ist DBNull.", e) End Try End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) = value End Set End Property - - _ + + _ Public Property MENU_ENTRY() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn), String) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn),String) End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.MENU_ENTRYColumn) = value End Set End Property - - _ + + _ Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn), Integer) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn),Integer) End Get - Set(value As Integer) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.SEQUENCEColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn), String) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn),String) End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHOColumn) = value End Set End Property - - _ + + _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn), Date) + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn),Date) End Get - Set(value As Date) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ADDED_WHENColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.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_MENU_FORM_ENTRIES ist DBNull.", e) End Try End Get - Set(value As String) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) = value End Set End Property - - _ + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBPMO_MENU_FORM_ENTRIES.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_MENU_FORM_ENTRIES ist DBNull.", e) End Try End Get - Set(value As Date) + Set Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) = value End Set End Property - - _ + + _ Public Property TBPMO_MENU_FORMRow() As TBPMO_MENU_FORMRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")), TBPMO_MENU_FORMRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")),TBPMO_MENU_FORMRow) End Get - Set(value As TBPMO_MENU_FORMRow) + Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_MENU_FORM_ENTRIES_MENU_FORM_ID")) End Set End Property - - _ + + _ Public Function IsICON_PATHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) End Function - - _ + + _ Public Sub SetICON_PATHNull() Me(Me.tableTBPMO_MENU_FORM_ENTRIES.ICON_PATHColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_MENU_FORM_ENTRIES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_MENU_FORMRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_MENU_FORMRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_MENU_FORMRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New() + MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBPMO_MENU_FORMRow Get Return Me.eventRow End Get End Property - - _ + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_MENU_FORM_ENTRIESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_MENU_FORM_ENTRIESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_MENU_FORM_ENTRIESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New() + MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBPMO_MENU_FORM_ENTRIESRow Get Return Me.eventRow End Get End Property - - _ + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -1495,57 +1495,57 @@ Partial Public Class DD_DMSDataSetMenuDesigner End Class Namespace DD_DMSDataSetMenuDesignerTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_MENU_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 + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -1559,65 +1559,65 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -1634,403 +1634,403 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_E" & _ - "NTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NUL" & _ - "L) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE)" & _ - " AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHE" & _ - "N) 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 NUL" & _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_E"& _ + "NTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NUL"& _ + "L) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE)"& _ + " AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHE"& _ + "N) 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 NUL"& _ "L) 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_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 [dbo].[TBPMO_MENU_FORM] ([MENU_ENTRY], [ICON_PATH], [SEQUENCE], [ADDE" & _ - "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_ENTRY, @ICON_" & _ - "PATH, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT " & _ - "GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG" & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM] ([MENU_ENTRY], [ICON_PATH], [SEQUENCE], [ADDE"& _ + "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@MENU_ENTRY, @ICON_"& _ + "PATH, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ "ED_WHEN FROM TBPMO_MENU_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("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICO" & _ - "N_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_" & _ - "WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID" & _ - "] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON" & _ - "_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND (" & _ - "[SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([A" & _ - "DDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WH" & _ - "O] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WH" & _ - "EN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))" & _ - ");" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED" & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICO"& _ + "N_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_"& _ + "WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID"& _ + "] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON"& _ + "_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ("& _ + "[SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([A"& _ + "DDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WH"& _ + "O] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WH"& _ + "EN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))"& _ + ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED"& _ "_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & _ + Me._commandCollection(0).CommandText = "SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable = New DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_MENU_FORM") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE 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) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE 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_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_ENTRY, String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_ENTRY,String) End If If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) + 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_ICON_PATH, String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ICON_PATH,String) End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE, Integer) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO, String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN, Date) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) + 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_CHANGED_WHO, String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value, Date) + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_ENTRY, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_ENTRY,String) End If If (ICON_PATH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ICON_PATH, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ICON_PATH,String) End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE, Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN, Date) + 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) + 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) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update( _ - ByVal MENU_ENTRY As String, _ - ByVal ICON_PATH As String, _ - ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_MENU_ENTRY As String, _ - ByVal Original_ICON_PATH As String, _ - ByVal Original_SEQUENCE 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), _ + + _ + Public Overloads Overridable Function Update( _ + ByVal MENU_ENTRY As String, _ + ByVal ICON_PATH As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_SEQUENCE 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 (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_ENTRY, String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_ENTRY,String) End If If (ICON_PATH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ICON_PATH, String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ICON_PATH,String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE, Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN, Date) + 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) + 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) + 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(7).Value = CType(Original_GUID,Integer) If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MENU_ENTRY, String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MENU_ENTRY,String) End If If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ICON_PATH, String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ICON_PATH,String) End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE, Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN, Date) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value, Date) + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(18).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE 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 + + _ + Public Overloads Overridable Function Update(ByVal MENU_ENTRY As String, ByVal ICON_PATH As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_MENU_ENTRY As String, ByVal Original_ICON_PATH As String, ByVal Original_SEQUENCE 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(MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MENU_ENTRY, Original_ICON_PATH, Original_SEQUENCE, 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_MENU_FORM_ENTRIESTableAdapter 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 + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -2044,65 +2044,65 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -2121,514 +2121,514 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND " & _ - "([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AN" & _ - "D ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_I" & _ - "CON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original" & _ - "_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original" & _ - "_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANG" & _ - "ED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WH" & _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND "& _ + "([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AN"& _ + "D ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_I"& _ + "CON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original"& _ + "_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original"& _ + "_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANG"& _ + "ED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WH"& _ "EN] 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_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 [dbo].[TBPMO_MENU_FORM_ENTRIES] ([MENU_FORM_ID], [FORM_ID], [ICON_PAT" & _ - "H], [MENU_ENTRY], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED" & _ - "_WHEN]) VALUES (@MENU_FORM_ID, @FORM_ID, @ICON_PATH, @MENU_ENTRY, @SEQUENCE, @AD" & _ - "DED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, MENU_FORM_ID, " & _ - "FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH" & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBPMO_MENU_FORM_ENTRIES] ([MENU_FORM_ID], [FORM_ID], [ICON_PAT"& _ + "H], [MENU_ENTRY], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED"& _ + "_WHEN]) VALUES (@MENU_FORM_ID, @FORM_ID, @ICON_PATH, @MENU_ENTRY, @SEQUENCE, @AD"& _ + "DED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MENU_FORM_ID, "& _ + "FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ "ANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_" & _ - "ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE]" & _ - " = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO" & _ - "] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID" & _ - ") AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_" & _ - "ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Orig" & _ - "inal_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Or" & _ - "iginal_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Or" & _ - "iginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR (" & _ - "[CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHAN" & _ - "GED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID," & _ - " MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, " & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_"& _ + "ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE]"& _ + " = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO"& _ + "] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID"& _ + ") AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_"& _ + "ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Orig"& _ + "inal_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Or"& _ + "iginal_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Or"& _ + "iginal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ("& _ + "[CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHAN"& _ + "GED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ + " MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ICON_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ICON_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ICON_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MENU_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, A" & _ + Me._commandCollection(0).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, A"& _ "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM dbo.TBPMO_MENU_FORM_ENTRIES" 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, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED" & _ - "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_MENU_FORM_ENT" & _ - "RIES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (MENU_FORM_ID = @MENU_FORM_ID)" + Me._commandCollection(1).CommandText = "SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED"& _ + "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_MENU_FORM_ENT"& _ + "RIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MENU_FORM_ID = @MENU_FORM_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable = New DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function FillBy(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable, ByVal MENU_FORM_ID As Integer) As Integer + + _ + Public Overloads Overridable Function FillBy(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable, ByVal MENU_FORM_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(MENU_FORM_ID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSetMenuDesigner.TBPMO_MENU_FORM_ENTRIESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSetMenuDesigner) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_MENU_FORM_ENTRIES") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_FORM_ID As Integer, ByVal Original_FORM_ID As Integer, ByVal Original_ICON_PATH As String, ByVal Original_MENU_ENTRY As String, ByVal Original_SEQUENCE 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) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_FORM_ID, Integer) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID, Integer) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_MENU_FORM_ID As Integer, ByVal Original_FORM_ID As Integer, ByVal Original_ICON_PATH As String, ByVal Original_MENU_ENTRY As String, ByVal Original_SEQUENCE 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) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_MENU_FORM_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID,Integer) If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1, Object) + 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_ICON_PATH, String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ICON_PATH,String) End If If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_MENU_ENTRY, String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_MENU_ENTRY,String) End If - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SEQUENCE, Integer) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SEQUENCE,Integer) 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) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN, Date) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO, String) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value, Date) + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal MENU_FORM_ID As Integer, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_FORM_ID, Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) + + _ + Public Overloads Overridable Function Insert(ByVal MENU_FORM_ID As Integer, ByVal FORM_ID As Integer, ByVal ICON_PATH As String, ByVal MENU_ENTRY As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) If (ICON_PATH Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ICON_PATH, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ICON_PATH,String) End If If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_ENTRY, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_ENTRY,String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO, String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN, Date) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN,Date) 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) + 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) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update( _ - ByVal MENU_FORM_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal ICON_PATH As String, _ - ByVal MENU_ENTRY As String, _ - ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_MENU_FORM_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_ICON_PATH As String, _ - ByVal Original_MENU_ENTRY As String, _ - ByVal Original_SEQUENCE 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), _ + + _ + Public Overloads Overridable Function Update( _ + ByVal MENU_FORM_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal ICON_PATH As String, _ + ByVal MENU_ENTRY As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_FORM_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_SEQUENCE 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 - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_FORM_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MENU_FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) If (ICON_PATH Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ICON_PATH, String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ICON_PATH,String) End If If (MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_ENTRY, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_ENTRY,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN, Date) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN,Date) 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) + 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) + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_MENU_FORM_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_MENU_FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_FORM_ID,Integer) If (Original_ICON_PATH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1, Object) + 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_ICON_PATH, String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ICON_PATH,String) End If If (Original_MENU_ENTRY Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_MENU_ENTRY") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_MENU_ENTRY, String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_MENU_ENTRY,String) End If - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SEQUENCE, Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SEQUENCE,Integer) 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) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN, Date) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value, Date) + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update( _ - ByVal MENU_FORM_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal ICON_PATH As String, _ - ByVal MENU_ENTRY As String, _ - ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_MENU_FORM_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_ICON_PATH As String, _ - ByVal Original_MENU_ENTRY As String, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ + + _ + Public Overloads Overridable Function Update( _ + ByVal MENU_FORM_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal ICON_PATH As String, _ + ByVal MENU_ENTRY As String, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_MENU_FORM_ID As Integer, _ + ByVal Original_FORM_ID As Integer, _ + ByVal Original_ICON_PATH As String, _ + ByVal Original_MENU_ENTRY As String, _ + ByVal Original_SEQUENCE 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(MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MENU_FORM_ID, Original_FORM_ID, Original_ICON_PATH, Original_MENU_ENTRY, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class - + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' - _ + _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component - + Private _updateOrder As UpdateOrderOption - + Private _tBPMO_MENU_FORMTableAdapter As TBPMO_MENU_FORMTableAdapter - + Private _tBPMO_MENU_FORM_ENTRIESTableAdapter As TBPMO_MENU_FORM_ENTRIESTableAdapter - + Private _backupDataSetBeforeUpdate As Boolean - + Private _connection As Global.System.Data.IDbConnection - - _ + + _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get - Set(value As UpdateOrderOption) + Set Me._updateOrder = value End Set End Property - - _ + + _ Public Property TBPMO_MENU_FORMTableAdapter() As TBPMO_MENU_FORMTableAdapter Get Return Me._tBPMO_MENU_FORMTableAdapter End Get - Set(value As TBPMO_MENU_FORMTableAdapter) + Set Me._tBPMO_MENU_FORMTableAdapter = value End Set End Property - - _ + + _ Public Property TBPMO_MENU_FORM_ENTRIESTableAdapter() As TBPMO_MENU_FORM_ENTRIESTableAdapter Get Return Me._tBPMO_MENU_FORM_ENTRIESTableAdapter End Get - Set(value As TBPMO_MENU_FORM_ENTRIESTableAdapter) + Set Me._tBPMO_MENU_FORM_ENTRIESTableAdapter = value End Set End Property - - _ + + _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get - Set(value As Boolean) + 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_MENU_FORMTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_MENU_FORMTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_MENU_FORMTableAdapter.Connection End If - If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection End If Return Nothing End Get - Set(value As Global.System.Data.IDbConnection) + Set Me._connection = value End Set End Property - - _ + + _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 @@ -2641,18 +2641,18 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Return count End Get End Property - + ''' '''Update rows in top-down order. ''' - _ + _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, 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_MENU_FORMTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -2661,7 +2661,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -2669,17 +2669,17 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If Return result End Function - + ''' '''Insert rows in top-down order. ''' - _ + _ Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -2687,7 +2687,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -2695,17 +2695,17 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If Return result End Function - + ''' '''Delete rows in bottom-up order. ''' - _ + _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSetMenuDesigner, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM_ENTRIES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -2713,7 +2713,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters End If If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_MENU_FORM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_MENU_FORMTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -2721,18 +2721,18 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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) _ + If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If - If ((allAddedRows Is Nothing) _ + If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If @@ -2740,55 +2740,55 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 + 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_DMSDataSetMenuDesigner) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If - If (dataSet.HasChanges = False) Then + If (dataSet.HasChanges = false) Then Return 0 End If - If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORMTableAdapter.Connection) = False)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + If ((Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_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_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) = False)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus" & _ + If ((Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.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" & _ + 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) _ + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then - workConnection.Close() + workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then - workConnection.Open() - workConnOpened = True + 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" & _ + 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)() @@ -2801,24 +2801,24 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If - Try + Try '---- Prepare for update ----------- ' If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_MENU_FORMTableAdapter, Me._tBPMO_MENU_FORMTableAdapter.Connection) - Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_MENU_FORMTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = False + Me._tBPMO_MENU_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_MENU_FORMTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter, Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection) - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate = False + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Adapter) End If End If @@ -2836,14 +2836,14 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters ' '---- Commit updates ----------- ' - workTransaction.Commit() + 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() + row.AcceptChanges i = (i + 1) Loop End If @@ -2853,16 +2853,16 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() + row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception - workTransaction.Rollback() + workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) - dataSet.Clear() + dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then @@ -2871,8 +2871,8 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges() - row.SetAdded() + row.AcceptChanges + row.SetAdded i = (i + 1) Loop End If @@ -2880,14 +2880,14 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Throw ex Finally If workConnOpened Then - workConnection.Close() + workConnection.Close End If If (Not (Me._tBPMO_MENU_FORMTableAdapter) Is Nothing) Then - Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORMTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_MENU_FORMTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_MENU_FORM_ENTRIESTableAdapter) Is Nothing) Then - Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter), Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Connection = CType(revertConnections(Me._tBPMO_MENU_FORM_ENTRIESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_MENU_FORM_ENTRIESTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then @@ -2896,63 +2896,63 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) - adapter.AcceptChangesDuringUpdate = True + 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 + Return true End If - If ((Me.Connection Is Nothing) _ + If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then - Return True + Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then - Return True + Return true End If - Return False + 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() + MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 @@ -2960,9 +2960,9 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 @@ -2973,8 +2973,8 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -2983,12 +2983,12 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters Loop If (distance = 0) Then - traversedRows.Clear() + 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)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -2999,9 +2999,9 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters 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 @@ -3022,7 +3022,7 @@ Namespace DD_DMSDataSetMenuDesignerTableAdapters If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else - Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + 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 diff --git a/app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsc b/app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xsc similarity index 100% rename from app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsc rename to app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xsc diff --git a/app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd b/app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xsd similarity index 99% rename from app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd rename to app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xsd index da72e2c..c73b33e 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xsd +++ b/app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xsd @@ -4,7 +4,7 @@ - + diff --git a/app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xss b/app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xss similarity index 100% rename from app/DD-Record-Organiser/DD_DMSDataSetMenuDesigner.xss rename to app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xss diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb similarity index 92% rename from app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb rename to app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb index 6493e2f..87fdef8 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb @@ -10143,254 +10143,254 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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" + 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" 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + + _ + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + 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(1).Value = CType(SCREEN_ID,Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + + _ + 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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) 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) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) + 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()) + 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) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads 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 + + _ + 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) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + 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) + 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()) + 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) + 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) + 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) + 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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + 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_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 + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -10404,65 +10404,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -10496,465 +10496,465 @@ Namespace DD_ECMAdminTableAdapters 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.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.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, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WIND" & _ - "REAM_VIEW)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQ" & _ - "UENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAM" & _ - "E2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_P" & _ - "ATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY,@S" & _ - "QL_RIGHT_WINDREAM_VIEW); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEV" & _ - "EL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHE" & _ - "N, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARC" & _ - "H_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 F" & _ + 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, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WIND"& _ + "REAM_VIEW)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQ"& _ + "UENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAM"& _ + "E2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_P"& _ + "ATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY,@S"& _ + "QL_RIGHT_WINDREAM_VIEW); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEV"& _ + "EL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHE"& _ + "N, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARC"& _ + "H_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 F"& _ "ROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ - "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ - "SELECT, SEQUENCE = @SEQUENCE, " & 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) & " CONTROL_DO" & _ - "CTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_" & _ - "READ_AND_VIEW_ONLY, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_RIGHT_WINDREAM_VIEW = @SQL_RI" & _ - "GHT_WINDREAM_VIEW" & 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, CONS" & _ - "TRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SE" & _ - "LECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COL" & _ - "UMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, S" & _ - "EARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID =" & _ + 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)&" CONTROL_DO"& _ + "CTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_"& _ + "READ_AND_VIEW_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_RIGHT_WINDREAM_VIEW = @SQL_RI"& _ + "GHT_WINDREAM_VIEW"&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, CONS"& _ + "TRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SE"& _ + "LECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COL"& _ + "UMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, S"& _ + "EARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID ="& _ " @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 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("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) + 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("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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, 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" & _ - ", SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_F" & _ - "ORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @ID)" + 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"& _ + ", SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_F"& _ + "ORM_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(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + 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 Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + + _ + 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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads 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, _ - ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ + + _ + 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, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ ByVal SQL_RIGHT_WINDREAM_VIEW As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If - Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY,String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else - Me.Adapter.InsertCommand.Parameters(18).Value = CType(SQL_RIGHT_WINDREAM_VIEW, String) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(SQL_RIGHT_WINDREAM_VIEW,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads 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 CONTROL_DOCTYPE_MATCH As Integer, _ - ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ - ByVal SQL_RIGHT_WINDREAM_VIEW As String, _ - ByVal Original_GUID As Integer, _ + + _ + 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 CONTROL_DOCTYPE_MATCH As Integer, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ + ByVal SQL_RIGHT_WINDREAM_VIEW As String, _ + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT, Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY,String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SQL_RIGHT_WINDREAM_VIEW, String) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SQL_RIGHT_WINDREAM_VIEW,String) End If - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(21).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + 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 + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -10968,65 +10968,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -11048,315 +11048,315 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, SQL_PROVIDER," & _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK" & _ - "UNG,@AKTIV,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE" & _ - "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT" & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ + "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ + "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, SQL_" & _ - "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @" & _ - "USERNAME, PASSWORD = @PASSWORD, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " BEMERKUNG = @BEMERKUN" & _ - "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GU" & _ - "ID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS" & _ - "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR" & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ + "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ + "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ + "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ + "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ "OM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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 TBDD_CONNECTION.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable = New DD_ECMAdmin.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV, Boolean) + 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) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) + 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) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) End If If (DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) End If If (USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME, String) + 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) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV, Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER, String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Short) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + 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 VWTEMPQUICKVIEWTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11370,65 +11370,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -11441,100 +11441,100 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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 [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der " & _ - "Eintragung im Register], Aktenzustand" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWTEMPQUICKVIEW" + Me._commandCollection(0).CommandText = "SELECT [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der "& _ + "Eintragung im Register], Aktenzustand"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWTEMPQUICKVIEW" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBWH_ENTITIESTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11548,65 +11548,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -11617,125 +11617,125 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV" & _ - "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ - " TBPMO_FORM AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM_VIEW AS T1 ON " & _ - "T.GUID = T1.FORM_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.GUID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELE" & _ - "CT DISTINCT ENTITY_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FROM TBPMO_CLIE" & _ - "NT_ENTITY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHERE (CLIENT_ID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ - " (SELECT CLIENT_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ - " FROM TBDD" & _ - "_CLIENT_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " WHE" & _ - "RE (USER_ID = @USER_ID)))))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY 'CAPTION'" + Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV"& _ + "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_FORM AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW AS T1 ON "& _ + "T.GUID = T1.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELE"& _ + "CT DISTINCT ENTITY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_CLIE"& _ + "NT_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (CLIENT_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT CLIENT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD"& _ + "_CLIENT_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHE"& _ + "RE (USER_ID = @USER_ID)))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 'CAPTION'" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable + + _ + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) Dim dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable = New DD_ECMAdmin.TBWH_ENTITIESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBWH_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11749,65 +11749,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -11817,99 +11817,99 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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" & 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).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable = New DD_ECMAdmin.TBWH_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_SAP_FUBATableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -11923,65 +11923,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -12009,411 +12009,411 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (NAME, COMMENT, TableName, H" & _ - "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, " & _ - "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@NAME,@COM" & _ - "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT" & _ - "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SE" & _ - "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli" & _ - "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE" & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, TableName, H"& _ + "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, "& _ + "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COM"& _ + "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT"& _ + "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ + "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli"& _ + "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ "D_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET NAME = @NAME, COMMENT = @COMMENT," & _ - " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = " & _ - "@UserName, Password = @Password, Client = @Client, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " La" & _ - "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH" & _ - "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ - " FuBa_SplitCharacter = @FuBa_SplitCharacter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @O" & _ - "riginal_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U" & _ - "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE" & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT,"& _ + " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = "& _ + "@UserName, Password = @Password, Client = @Client, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" La"& _ + "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH"& _ + "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FuBa_SplitCharacter = @FuBa_SplitCharacter"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ + "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U"& _ + "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE"& _ "N, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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, COMMENT, TableName, Host, SystemNumber, UserName, Passw" & _ - "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE" & _ - "N, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, Method, FuBa_SplitChara" & _ - "cter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_SAP_FUBA" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw"& _ + "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE"& _ + "N, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, Method, FuBa_SplitChara"& _ + "cter"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_SAP_FUBA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable = New DD_ECMAdmin.TBPMO_SAP_FUBADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_SAP_FUBA") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + + _ + 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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(TableName, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(TableName,String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Host, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Host,String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SystemNumber, String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SystemNumber,String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(UserName, String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(UserName,String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password, String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password,String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(Client, String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(Client,String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(Language, String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(Language,String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(TempTableName, String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(TempTableName,String) End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(ACTIVE, Boolean) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHO, String) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHO,String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE,String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method, String) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method,String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update( _ - ByVal NAME As String, _ - ByVal COMMENT As String, _ - ByVal TableName As String, _ - ByVal Host As String, _ - ByVal SystemNumber As String, _ - ByVal UserName As String, _ - ByVal Password As String, _ - ByVal Client As String, _ - ByVal Language As String, _ - ByVal TempTableName As String, _ - ByVal ACTIVE As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal WHERE_CLAUSE As String, _ - ByVal Method As String, _ - ByVal FuBa_SplitCharacter As String, _ - ByVal Original_GUID As Integer, _ + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal COMMENT As String, _ + ByVal TableName As String, _ + ByVal Host As String, _ + ByVal SystemNumber As String, _ + ByVal UserName As String, _ + ByVal Password As String, _ + ByVal Client As String, _ + ByVal Language As String, _ + ByVal TempTableName As String, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal WHERE_CLAUSE As String, _ + ByVal Method As String, _ + ByVal FuBa_SplitCharacter As String, _ + ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TableName, String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TableName,String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Host, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Host,String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SystemNumber, String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SystemNumber,String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UserName, String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UserName,String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password, String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password,String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Client, String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Client,String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Language, String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Language,String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TempTableName, String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TempTableName,String) End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ACTIVE, Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE, String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE,String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method, String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method,String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter, String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter,String) End If - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + 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 USER_RIGHTSTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -12427,65 +12427,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -12507,120 +12507,120 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO" & _ - "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, " & _ - "T.EDIT_REC, T.ADD_REC, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " T.DELETE_REC, T.ADD_DOC, T.REA" & _ - "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ - " TBPMO_RIGHT_USER AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_USER AS" & _ - " T1 ON T.USER_ID = T1.GUID INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM AS T2" & _ - " ON T.ENTITY_ID = T2.GUID INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM_VIEW A" & _ - "S T3 ON T2.GUID = T3.FORM_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T2.GUID = @ENTITY_ID)" + Me._commandCollection(0).CommandText = "SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO"& _ + "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, "& _ + "T.EDIT_REC, T.ADD_REC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.DELETE_REC, T.ADD_DOC, T.REA"& _ + "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_RIGHT_USER AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS"& _ + " T1 ON T.USER_ID = T1.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM AS T2"& _ + " ON T.ENTITY_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW A"& _ + "S T3 ON T2.GUID = T3.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.GUID = @ENTITY_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID, Integer) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable + + _ + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID, Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) Dim dataTable As DD_ECMAdmin.USER_RIGHTSDataTable = New DD_ECMAdmin.USER_RIGHTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -12634,65 +12634,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -12715,535 +12715,535 @@ Namespace DD_ECMAdminTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) " & _ - "AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AN" & _ - "D ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEAD" & _ - "ER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) " & _ - "AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_" & _ - "WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_W" & _ - "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN" & _ - "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O" & _ - "riginal_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Or" & _ + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) "& _ + "AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AN"& _ + "D ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEAD"& _ + "ER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) "& _ + "AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_"& _ + "WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_W"& _ + "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ + "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ + "riginal_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Or"& _ "iginal_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN" & _ - "_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGE" & _ - "D_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS]) VALUES (@ENTITY" & _ - "_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @ADDED_WHO, @AD" & _ - "DED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_COLUMNS);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "S" & _ - "ELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, AD" & _ - "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMN" & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN"& _ + "_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGE"& _ + "D_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS]) VALUES (@ENTITY"& _ + "_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @ADDED_WHO, @AD"& _ + "DED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_COLUMNS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, AD"& _ + "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMN"& _ "S FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAG" & _ - "E] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION" & _ - ", [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN]" & _ - " = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [V" & _ - "ISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS W" & _ - "HERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LA" & _ - "NGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([" & _ - "HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND " & _ - "([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@I" & _ - "sNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDE" & _ - "D_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_W" & _ - "HO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] " & _ - "IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Origina" & _ - "l_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Origin" & _ - "al_CONFIG_COLUMNS));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPT" & _ - "ION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, " & _ - "EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @G" & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAG"& _ + "E] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION"& _ + ", [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN]"& _ + " = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [V"& _ + "ISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS W"& _ + "HERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LA"& _ + "NGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND (["& _ + "HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND "& _ + "([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@I"& _ + "sNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDE"& _ + "D_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_W"& _ + "HO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] "& _ + "IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Origina"& _ + "l_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Origin"& _ + "al_CONFIG_COLUMNS));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPT"& _ + "ION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, "& _ + "EDITABLE, CONFIG_COLUMNS FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @G"& _ "UID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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_DOCSEARCH_RESULTLIST_CONFIG.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_DOCSEARC" & _ + Me._commandCollection(0).CommandText = "SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARC"& _ "H_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_DOCSEARCH_RESULTLIST_CONFIG") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + 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 Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_ID, Integer) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_ID,Integer) If (Original_LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LANGUAGE, String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LANGUAGE,String) End If If (Original_COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COLUMN_VIEW, String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COLUMN_VIEW,String) End If If (Original_HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HEADER_CAPTION, String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HEADER_CAPTION,String) End If - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WIDTH, Integer) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TYPE_ID, Byte) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WIDTH,Integer) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TYPE_ID,Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO, String) + 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) + 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(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(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) + 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) + 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(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_VISIBLE, Boolean) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EDITABLE, Boolean) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CONFIG_COLUMNS, Boolean) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_VISIBLE,Boolean) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EDITABLE,Boolean) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CONFIG_COLUMNS,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + 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() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID, Integer) + + _ + Public Overloads Overridable Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) End If If (COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_VIEW") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) End If If (HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("HEADER_CAPTION") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH, Integer) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID, Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH,Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO, String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If - If (ADDED_WHEN.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value, Date) + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO, String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If - If (CHANGED_WHEN.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value, Date) + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE, Boolean) - Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE, Boolean) - Me.Adapter.InsertCommand.Parameters(12).Value = CType(CONFIG_COLUMNS, Boolean) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE,Boolean) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE,Boolean) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open() + Me.Adapter.InsertCommand.Connection.Open End If - Try + 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() + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update( _ - ByVal ENTITY_ID As Integer, _ - ByVal LANGUAGE As String, _ - ByVal COLUMN_VIEW As String, _ - ByVal HEADER_CAPTION As String, _ - ByVal WIDTH As Integer, _ - ByVal TYPE_ID As Byte, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal VISIBLE As Boolean, _ - ByVal EDITABLE As Boolean, _ - ByVal CONFIG_COLUMNS As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal Original_ENTITY_ID As Integer, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_COLUMN_VIEW As String, _ - ByVal Original_HEADER_CAPTION As String, _ - ByVal Original_WIDTH As Integer, _ - ByVal Original_TYPE_ID As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_VISIBLE As Boolean, _ - ByVal Original_EDITABLE As Boolean, _ - ByVal Original_CONFIG_COLUMNS As Boolean, _ + + _ + Public Overloads Overridable Function Update( _ + ByVal ENTITY_ID As Integer, _ + ByVal LANGUAGE As String, _ + ByVal COLUMN_VIEW As String, _ + ByVal HEADER_CAPTION As String, _ + ByVal WIDTH As Integer, _ + ByVal TYPE_ID As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal VISIBLE As Boolean, _ + ByVal EDITABLE As Boolean, _ + ByVal CONFIG_COLUMNS As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_COLUMN_VIEW As String, _ + ByVal Original_HEADER_CAPTION As String, _ + ByVal Original_WIDTH As Integer, _ + ByVal Original_TYPE_ID As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_VISIBLE As Boolean, _ + ByVal Original_EDITABLE As Boolean, _ + ByVal Original_CONFIG_COLUMNS As Boolean, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE, String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) End If If (COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_VIEW") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW, String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) End If If (HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("HEADER_CAPTION") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH, Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID, Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If - If (ADDED_WHEN.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value, Date) + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If - If (CHANGED_WHEN.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value, Date) + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE, Boolean) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE, Boolean) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONFIG_COLUMNS, Boolean) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ENTITY_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ENTITY_ID,Integer) If (Original_LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LANGUAGE, String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LANGUAGE,String) End If If (Original_COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_COLUMN_VIEW, String) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_COLUMN_VIEW,String) End If If (Original_HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_HEADER_CAPTION, String) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_HEADER_CAPTION,String) End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_WIDTH, Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_TYPE_ID, Byte) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_WIDTH,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_TYPE_ID,Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO,String) End If - If (Original_ADDED_WHEN.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value, Date) + 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(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value, Date) + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VISIBLE, Boolean) - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EDITABLE, Boolean) - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_CONFIG_COLUMNS, Boolean) - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VISIBLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EDITABLE,Boolean) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_CONFIG_COLUMNS,Boolean) + Me.Adapter.UpdateCommand.Parameters(30).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) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open() + Me.Adapter.UpdateCommand.Connection.Open End If - Try + 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() + Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function - - _ - Public Overridable Overloads Function Update( _ - ByVal ENTITY_ID As Integer, _ - ByVal LANGUAGE As String, _ - ByVal COLUMN_VIEW As String, _ - ByVal HEADER_CAPTION As String, _ - ByVal WIDTH As Integer, _ - ByVal TYPE_ID As Byte, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal VISIBLE As Boolean, _ - ByVal EDITABLE As Boolean, _ - ByVal CONFIG_COLUMNS As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal Original_ENTITY_ID As Integer, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_COLUMN_VIEW As String, _ - ByVal Original_HEADER_CAPTION As String, _ - ByVal Original_WIDTH As Integer, _ - ByVal Original_TYPE_ID As Byte, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_VISIBLE As Boolean, _ - ByVal Original_EDITABLE As Boolean, _ + + _ + Public Overloads Overridable Function Update( _ + ByVal ENTITY_ID As Integer, _ + ByVal LANGUAGE As String, _ + ByVal COLUMN_VIEW As String, _ + ByVal HEADER_CAPTION As String, _ + ByVal WIDTH As Integer, _ + ByVal TYPE_ID As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal VISIBLE As Boolean, _ + ByVal EDITABLE As Boolean, _ + ByVal CONFIG_COLUMNS As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal Original_ENTITY_ID As Integer, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_COLUMN_VIEW As String, _ + ByVal Original_HEADER_CAPTION As String, _ + ByVal Original_WIDTH As Integer, _ + ByVal Original_TYPE_ID As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_VISIBLE As Boolean, _ + ByVal Original_EDITABLE As Boolean, _ ByVal Original_CONFIG_COLUMNS As Boolean) As Integer Return Me.Update(ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, Original_GUID, Original_ENTITY_ID, Original_LANGUAGE, Original_COLUMN_VIEW, Original_HEADER_CAPTION, Original_WIDTH, Original_TYPE_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_VISIBLE, Original_EDITABLE, Original_CONFIG_COLUMNS, Original_GUID) End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class VWDD_LOGIN_USER_HISTORYTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -13257,65 +13257,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -13335,101 +13335,101 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("MACHINE_NAME", "MACHINE_NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N" & _ - "AME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWDD_LOGIN_USE" & _ - "R_HISTORY" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (MODULE = 'Record-Organizer')" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY GUID DESC" + Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N"& _ + "AME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDD_LOGIN_USE"& _ + "R_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE = 'Record-Organizer')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable = New DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - _ + + _ Public Sub New() - MyBase.New() - Me.ClearBeforeFill = True + 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() + 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() + Me.InitConnection End If Return Me._connection End Get - Set(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -13443,65 +13443,65 @@ Namespace DD_ECMAdminTableAdapters 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 + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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) _ + 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) _ + 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) _ + 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() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set(value As Boolean) + 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() @@ -13511,45 +13511,45 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("ID", "ID") Me._adapter.TableMappings.Add(tableMapping) End Sub - - _ + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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 CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT " & _ - "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT CONVERT(TINY" & _ - "INT, 3) AS ID, 'ComboBox' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UNION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT CONVERT(TINYINT, 4) AS I" & _ - "D, 'DatePicker' AS Name" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" + Me._commandCollection(0).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _ + "INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _ + "D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable + + _ + Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() Me.Adapter.Fill(dataTable) diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.vb b/app/DD-Record-Organizer/DD_ECMAdmin.vb similarity index 100% rename from app/DD-Record-Organiser/DD_ECMAdmin.vb rename to app/DD-Record-Organizer/DD_ECMAdmin.vb diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsc b/app/DD-Record-Organizer/DD_ECMAdmin.xsc similarity index 100% rename from app/DD-Record-Organiser/DD_ECMAdmin.xsc rename to app/DD-Record-Organizer/DD_ECMAdmin.xsc diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organizer/DD_ECMAdmin.xsd similarity index 99% rename from app/DD-Record-Organiser/DD_ECMAdmin.xsd rename to app/DD-Record-Organizer/DD_ECMAdmin.xsd index 614c0f1..1b7cafb 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xsd @@ -4,7 +4,7 @@ - + diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xss b/app/DD-Record-Organizer/DD_ECMAdmin.xss similarity index 100% rename from app/DD-Record-Organiser/DD_ECMAdmin.xss rename to app/DD-Record-Organizer/DD_ECMAdmin.xss diff --git a/app/DD-Record-Organiser/DD_Icons_ICO_ADDI_1.ico b/app/DD-Record-Organizer/DD_Icons_ICO_ADDI_1.ico similarity index 100% rename from app/DD-Record-Organiser/DD_Icons_ICO_ADDI_1.ico rename to app/DD-Record-Organizer/DD_Icons_ICO_ADDI_1.ico diff --git a/app/DD-Record-Organiser/ModuleHelperMethods.vb b/app/DD-Record-Organizer/ModuleHelperMethods.vb similarity index 100% rename from app/DD-Record-Organiser/ModuleHelperMethods.vb rename to app/DD-Record-Organizer/ModuleHelperMethods.vb diff --git a/app/DD-Record-Organiser/ModuleMySettings.vb b/app/DD-Record-Organizer/ModuleMySettings.vb similarity index 100% rename from app/DD-Record-Organiser/ModuleMySettings.vb rename to app/DD-Record-Organizer/ModuleMySettings.vb diff --git a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb b/app/DD-Record-Organizer/ModuleRuntimeVariables.vb similarity index 100% rename from app/DD-Record-Organiser/ModuleRuntimeVariables.vb rename to app/DD-Record-Organizer/ModuleRuntimeVariables.vb diff --git a/app/DD-Record-Organiser/My Project/Application.Designer.vb b/app/DD-Record-Organizer/My Project/Application.Designer.vb similarity index 96% rename from app/DD-Record-Organiser/My Project/Application.Designer.vb rename to app/DD-Record-Organizer/My Project/Application.Designer.vb index 30473bf..5603101 100644 --- a/app/DD-Record-Organiser/My Project/Application.Designer.vb +++ b/app/DD-Record-Organizer/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.DD_Record_Organiser.frmMain + Me.MainForm = Global.DD_Record_Organizer.frmMain End Sub End Class End Namespace diff --git a/app/DD-Record-Organiser/My Project/Application.myapp b/app/DD-Record-Organizer/My Project/Application.myapp similarity index 100% rename from app/DD-Record-Organiser/My Project/Application.myapp rename to app/DD-Record-Organizer/My Project/Application.myapp diff --git a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb b/app/DD-Record-Organizer/My Project/AssemblyInfo.vb similarity index 100% rename from app/DD-Record-Organiser/My Project/AssemblyInfo.vb rename to app/DD-Record-Organizer/My Project/AssemblyInfo.vb diff --git a/app/DD-Record-Organiser/My Project/Resources.Designer.vb b/app/DD-Record-Organizer/My Project/Resources.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/My Project/Resources.Designer.vb rename to app/DD-Record-Organizer/My Project/Resources.Designer.vb index 289bbf9..f9260f2 100644 --- a/app/DD-Record-Organiser/My Project/Resources.Designer.vb +++ b/app/DD-Record-Organizer/My Project/Resources.Designer.vb @@ -39,7 +39,7 @@ Namespace My.Resources Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Record_Organiser.Resources", GetType(Resources).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Record_Organizer.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan diff --git a/app/DD-Record-Organiser/My Project/Resources.resx b/app/DD-Record-Organizer/My Project/Resources.resx similarity index 100% rename from app/DD-Record-Organiser/My Project/Resources.resx rename to app/DD-Record-Organizer/My Project/Resources.resx diff --git a/app/DD-Record-Organiser/My Project/Settings.Designer.vb b/app/DD-Record-Organizer/My Project/Settings.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/My Project/Settings.Designer.vb rename to app/DD-Record-Organizer/My Project/Settings.Designer.vb index 2048062..8150f33 100644 --- a/app/DD-Record-Organiser/My Project/Settings.Designer.vb +++ b/app/DD-Record-Organizer/My Project/Settings.Designer.vb @@ -265,9 +265,9 @@ Namespace My Friend Module MySettingsProperty _ - Friend ReadOnly Property Settings() As Global.DD_Record_Organiser.My.MySettings + Friend ReadOnly Property Settings() As Global.DD_Record_Organizer.My.MySettings Get - Return Global.DD_Record_Organiser.My.MySettings.Default + Return Global.DD_Record_Organizer.My.MySettings.Default End Get End Property End Module diff --git a/app/DD-Record-Organiser/My Project/Settings.Settings b/app/DD-Record-Organizer/My Project/Settings.Settings similarity index 100% rename from app/DD-Record-Organiser/My Project/Settings.Settings rename to app/DD-Record-Organizer/My Project/Settings.Settings diff --git a/app/DD-Record-Organiser/My Project/app.manifest b/app/DD-Record-Organizer/My Project/app.manifest similarity index 100% rename from app/DD-Record-Organiser/My Project/app.manifest rename to app/DD-Record-Organizer/My Project/app.manifest diff --git a/app/DD-Record-Organiser/My Project/licenses.licx b/app/DD-Record-Organizer/My Project/licenses.licx similarity index 100% rename from app/DD-Record-Organiser/My Project/licenses.licx rename to app/DD-Record-Organizer/My Project/licenses.licx diff --git a/app/DD-Record-Organiser/My Project/licenses.licx.bak b/app/DD-Record-Organizer/My Project/licenses.licx.bak similarity index 100% rename from app/DD-Record-Organiser/My Project/licenses.licx.bak rename to app/DD-Record-Organizer/My Project/licenses.licx.bak diff --git a/app/DD-Record-Organiser/Resources/005_Task_32x42_72.png b/app/DD-Record-Organizer/Resources/005_Task_32x42_72.png similarity index 100% rename from app/DD-Record-Organiser/Resources/005_Task_32x42_72.png rename to app/DD-Record-Organizer/Resources/005_Task_32x42_72.png diff --git a/app/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_72.png b/app/DD-Record-Organizer/Resources/112_RefreshArrow_Blue_24x24_72.png similarity index 100% rename from app/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_72.png rename to app/DD-Record-Organizer/Resources/112_RefreshArrow_Blue_24x24_72.png diff --git a/app/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_721.png b/app/DD-Record-Organizer/Resources/112_RefreshArrow_Blue_24x24_721.png similarity index 100% rename from app/DD-Record-Organiser/Resources/112_RefreshArrow_Blue_24x24_721.png rename to app/DD-Record-Organizer/Resources/112_RefreshArrow_Blue_24x24_721.png diff --git a/app/DD-Record-Organiser/Resources/138_PushPin_32x42_72.png b/app/DD-Record-Organizer/Resources/138_PushPin_32x42_72.png similarity index 100% rename from app/DD-Record-Organiser/Resources/138_PushPin_32x42_72.png rename to app/DD-Record-Organizer/Resources/138_PushPin_32x42_72.png diff --git a/app/DD-Record-Organiser/Resources/138_PushPin_32x42_721.png b/app/DD-Record-Organizer/Resources/138_PushPin_32x42_721.png similarity index 100% rename from app/DD-Record-Organiser/Resources/138_PushPin_32x42_721.png rename to app/DD-Record-Organizer/Resources/138_PushPin_32x42_721.png diff --git a/app/DD-Record-Organiser/Resources/138_PushPin_48x48_72.png b/app/DD-Record-Organizer/Resources/138_PushPin_48x48_72.png similarity index 100% rename from app/DD-Record-Organiser/Resources/138_PushPin_48x48_72.png rename to app/DD-Record-Organizer/Resources/138_PushPin_48x48_72.png diff --git a/app/DD-Record-Organiser/Resources/1480524473_1.png b/app/DD-Record-Organizer/Resources/1480524473_1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/1480524473_1.png rename to app/DD-Record-Organizer/Resources/1480524473_1.png diff --git a/app/DD-Record-Organiser/Resources/1532_Flag_Blue.ico b/app/DD-Record-Organizer/Resources/1532_Flag_Blue.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/1532_Flag_Blue.ico rename to app/DD-Record-Organizer/Resources/1532_Flag_Blue.ico diff --git a/app/DD-Record-Organiser/Resources/4(four)rows_9716.png b/app/DD-Record-Organizer/Resources/4(four)rows_9716.png similarity index 100% rename from app/DD-Record-Organiser/Resources/4(four)rows_9716.png rename to app/DD-Record-Organizer/Resources/4(four)rows_9716.png diff --git a/app/DD-Record-Organiser/Resources/AddExistingItem_6269.png b/app/DD-Record-Organizer/Resources/AddExistingItem_6269.png similarity index 100% rename from app/DD-Record-Organiser/Resources/AddExistingItem_6269.png rename to app/DD-Record-Organizer/Resources/AddExistingItem_6269.png diff --git a/app/DD-Record-Organiser/Resources/AddExistingItem_62691.png b/app/DD-Record-Organizer/Resources/AddExistingItem_62691.png similarity index 100% rename from app/DD-Record-Organiser/Resources/AddExistingItem_62691.png rename to app/DD-Record-Organizer/Resources/AddExistingItem_62691.png diff --git a/app/DD-Record-Organiser/Resources/AddMark_10580.png b/app/DD-Record-Organizer/Resources/AddMark_10580.png similarity index 100% rename from app/DD-Record-Organiser/Resources/AddMark_10580.png rename to app/DD-Record-Organizer/Resources/AddMark_10580.png diff --git a/app/DD-Record-Organiser/Resources/AddTable_5632.png b/app/DD-Record-Organizer/Resources/AddTable_5632.png similarity index 100% rename from app/DD-Record-Organiser/Resources/AddTable_5632.png rename to app/DD-Record-Organizer/Resources/AddTable_5632.png diff --git a/app/DD-Record-Organiser/Resources/AddressEnvelope_16xLG.png b/app/DD-Record-Organizer/Resources/AddressEnvelope_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/AddressEnvelope_16xLG.png rename to app/DD-Record-Organizer/Resources/AddressEnvelope_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/Arrow_RedoRetry_16xLG.png b/app/DD-Record-Organizer/Resources/Arrow_RedoRetry_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Arrow_RedoRetry_16xLG.png rename to app/DD-Record-Organizer/Resources/Arrow_RedoRetry_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/Arrow_RedoRetry_16xMD.png b/app/DD-Record-Organizer/Resources/Arrow_RedoRetry_16xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Arrow_RedoRetry_16xMD.png rename to app/DD-Record-Organizer/Resources/Arrow_RedoRetry_16xMD.png diff --git a/app/DD-Record-Organiser/Resources/Carousel_16x16.png b/app/DD-Record-Organizer/Resources/Carousel_16x16.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Carousel_16x16.png rename to app/DD-Record-Organizer/Resources/Carousel_16x16.png diff --git a/app/DD-Record-Organiser/Resources/CheckBox_669.png b/app/DD-Record-Organizer/Resources/CheckBox_669.png similarity index 100% rename from app/DD-Record-Organiser/Resources/CheckBox_669.png rename to app/DD-Record-Organizer/Resources/CheckBox_669.png diff --git a/app/DD-Record-Organiser/Resources/Checkbox.PNG b/app/DD-Record-Organizer/Resources/Checkbox.PNG similarity index 100% rename from app/DD-Record-Organiser/Resources/Checkbox.PNG rename to app/DD-Record-Organizer/Resources/Checkbox.PNG diff --git a/app/DD-Record-Organiser/Resources/Close_16xLG.png b/app/DD-Record-Organizer/Resources/Close_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Close_16xLG.png rename to app/DD-Record-Organizer/Resources/Close_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/ComboBox_672.png b/app/DD-Record-Organizer/Resources/ComboBox_672.png similarity index 100% rename from app/DD-Record-Organiser/Resources/ComboBox_672.png rename to app/DD-Record-Organizer/Resources/ComboBox_672.png diff --git a/app/DD-Record-Organiser/Resources/Compare_RefreshScriptPreview.png b/app/DD-Record-Organizer/Resources/Compare_RefreshScriptPreview.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Compare_RefreshScriptPreview.png rename to app/DD-Record-Organizer/Resources/Compare_RefreshScriptPreview.png diff --git a/app/DD-Record-Organiser/Resources/Configuredatasetwithwizard_8450.png b/app/DD-Record-Organizer/Resources/Configuredatasetwithwizard_8450.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Configuredatasetwithwizard_8450.png rename to app/DD-Record-Organizer/Resources/Configuredatasetwithwizard_8450.png diff --git a/app/DD-Record-Organiser/Resources/Connection_Manager.png b/app/DD-Record-Organizer/Resources/Connection_Manager.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Connection_Manager.png rename to app/DD-Record-Organizer/Resources/Connection_Manager.png diff --git a/app/DD-Record-Organiser/Resources/Copy_6524.png b/app/DD-Record-Organizer/Resources/Copy_6524.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Copy_6524.png rename to app/DD-Record-Organizer/Resources/Copy_6524.png diff --git a/app/DD-Record-Organiser/Resources/DD_Icons-ADDI.png b/app/DD-Record-Organizer/Resources/DD_Icons-ADDI.png similarity index 100% rename from app/DD-Record-Organiser/Resources/DD_Icons-ADDI.png rename to app/DD-Record-Organizer/Resources/DD_Icons-ADDI.png diff --git a/app/DD-Record-Organiser/Resources/DateOrTimePicker_675.png b/app/DD-Record-Organizer/Resources/DateOrTimePicker_675.png similarity index 100% rename from app/DD-Record-Organiser/Resources/DateOrTimePicker_675.png rename to app/DD-Record-Organizer/Resources/DateOrTimePicker_675.png diff --git a/app/DD-Record-Organiser/Resources/EditLabel_13239.png b/app/DD-Record-Organizer/Resources/EditLabel_13239.png similarity index 100% rename from app/DD-Record-Organiser/Resources/EditLabel_13239.png rename to app/DD-Record-Organizer/Resources/EditLabel_13239.png diff --git a/app/DD-Record-Organiser/Resources/Einstellungen3.ico b/app/DD-Record-Organizer/Resources/Einstellungen3.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Einstellungen3.ico rename to app/DD-Record-Organizer/Resources/Einstellungen3.ico diff --git a/app/DD-Record-Organiser/Resources/Einstellungen5.ico b/app/DD-Record-Organizer/Resources/Einstellungen5.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Einstellungen5.ico rename to app/DD-Record-Organizer/Resources/Einstellungen5.ico diff --git a/app/DD-Record-Organiser/Resources/Einstellungen6.ico b/app/DD-Record-Organizer/Resources/Einstellungen6.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Einstellungen6.ico rename to app/DD-Record-Organizer/Resources/Einstellungen6.ico diff --git a/app/DD-Record-Organiser/Resources/Error_red_21x20.png b/app/DD-Record-Organizer/Resources/Error_red_21x20.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Error_red_21x20.png rename to app/DD-Record-Organizer/Resources/Error_red_21x20.png diff --git a/app/DD-Record-Organiser/Resources/Excel_25ixel.jpg b/app/DD-Record-Organizer/Resources/Excel_25ixel.jpg similarity index 100% rename from app/DD-Record-Organiser/Resources/Excel_25ixel.jpg rename to app/DD-Record-Organizer/Resources/Excel_25ixel.jpg diff --git a/app/DD-Record-Organiser/Resources/FileSystemEditor_5852.png b/app/DD-Record-Organizer/Resources/FileSystemEditor_5852.png similarity index 100% rename from app/DD-Record-Organiser/Resources/FileSystemEditor_5852.png rename to app/DD-Record-Organizer/Resources/FileSystemEditor_5852.png diff --git a/app/DD-Record-Organiser/Resources/Files_7954.png b/app/DD-Record-Organizer/Resources/Files_7954.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Files_7954.png rename to app/DD-Record-Organizer/Resources/Files_7954.png diff --git a/app/DD-Record-Organiser/Resources/Filter.png b/app/DD-Record-Organizer/Resources/Filter.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Filter.png rename to app/DD-Record-Organizer/Resources/Filter.png diff --git a/app/DD-Record-Organiser/Resources/FilteredObject_13400_16x.png b/app/DD-Record-Organizer/Resources/FilteredObject_13400_16x.png similarity index 100% rename from app/DD-Record-Organiser/Resources/FilteredObject_13400_16x.png rename to app/DD-Record-Organizer/Resources/FilteredObject_13400_16x.png diff --git a/app/DD-Record-Organiser/Resources/Go.png b/app/DD-Record-Organizer/Resources/Go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Go.png rename to app/DD-Record-Organizer/Resources/Go.png diff --git a/app/DD-Record-Organiser/Resources/GroupBox_680.png b/app/DD-Record-Organizer/Resources/GroupBox_680.png similarity index 100% rename from app/DD-Record-Organiser/Resources/GroupBox_680.png rename to app/DD-Record-Organizer/Resources/GroupBox_680.png diff --git a/app/DD-Record-Organiser/Resources/HomeHS.png b/app/DD-Record-Organizer/Resources/HomeHS.png similarity index 100% rename from app/DD-Record-Organiser/Resources/HomeHS.png rename to app/DD-Record-Organizer/Resources/HomeHS.png diff --git a/app/DD-Record-Organiser/Resources/Home_5699_32.bmp b/app/DD-Record-Organizer/Resources/Home_5699_32.bmp similarity index 100% rename from app/DD-Record-Organiser/Resources/Home_5699_32.bmp rename to app/DD-Record-Organizer/Resources/Home_5699_32.bmp diff --git a/app/DD-Record-Organiser/Resources/ImageListControl_683.png b/app/DD-Record-Organizer/Resources/ImageListControl_683.png similarity index 100% rename from app/DD-Record-Organiser/Resources/ImageListControl_683.png rename to app/DD-Record-Organizer/Resources/ImageListControl_683.png diff --git a/app/DD-Record-Organiser/Resources/InsertColumn_5626.png b/app/DD-Record-Organizer/Resources/InsertColumn_5626.png similarity index 100% rename from app/DD-Record-Organiser/Resources/InsertColumn_5626.png rename to app/DD-Record-Organizer/Resources/InsertColumn_5626.png diff --git a/app/DD-Record-Organiser/Resources/Label_684.png b/app/DD-Record-Organizer/Resources/Label_684.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Label_684.png rename to app/DD-Record-Organizer/Resources/Label_684.png diff --git a/app/DD-Record-Organiser/Resources/Link.png b/app/DD-Record-Organizer/Resources/Link.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Link.png rename to app/DD-Record-Organizer/Resources/Link.png diff --git a/app/DD-Record-Organiser/Resources/ListBox_686_24.bmp b/app/DD-Record-Organizer/Resources/ListBox_686_24.bmp similarity index 100% rename from app/DD-Record-Organiser/Resources/ListBox_686_24.bmp rename to app/DD-Record-Organizer/Resources/ListBox_686_24.bmp diff --git a/app/DD-Record-Organiser/Resources/Login_6031_32x.png b/app/DD-Record-Organizer/Resources/Login_6031_32x.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Login_6031_32x.png rename to app/DD-Record-Organizer/Resources/Login_6031_32x.png diff --git a/app/DD-Record-Organiser/Resources/Men1.ico b/app/DD-Record-Organizer/Resources/Men1.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Men1.ico rename to app/DD-Record-Organizer/Resources/Men1.ico diff --git a/app/DD-Record-Organiser/Resources/Men2.ico b/app/DD-Record-Organizer/Resources/Men2.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Men2.ico rename to app/DD-Record-Organizer/Resources/Men2.ico diff --git a/app/DD-Record-Organiser/Resources/Men3.ico b/app/DD-Record-Organizer/Resources/Men3.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Men3.ico rename to app/DD-Record-Organizer/Resources/Men3.ico diff --git a/app/DD-Record-Organiser/Resources/Men4.ico b/app/DD-Record-Organizer/Resources/Men4.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Men4.ico rename to app/DD-Record-Organizer/Resources/Men4.ico diff --git a/app/DD-Record-Organiser/Resources/Men5.ico b/app/DD-Record-Organizer/Resources/Men5.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Men5.ico rename to app/DD-Record-Organizer/Resources/Men5.ico diff --git a/app/DD-Record-Organiser/Resources/Men6.ico b/app/DD-Record-Organizer/Resources/Men6.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Men6.ico rename to app/DD-Record-Organizer/Resources/Men6.ico diff --git a/app/DD-Record-Organiser/Resources/Monitor_Screen_16xLG.png b/app/DD-Record-Organizer/Resources/Monitor_Screen_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Monitor_Screen_16xLG.png rename to app/DD-Record-Organizer/Resources/Monitor_Screen_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/NetworkPipes_32xLG.png b/app/DD-Record-Organizer/Resources/NetworkPipes_32xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/NetworkPipes_32xLG.png rename to app/DD-Record-Organizer/Resources/NetworkPipes_32xLG.png diff --git a/app/DD-Record-Organiser/Resources/Permission_12796.png b/app/DD-Record-Organizer/Resources/Permission_12796.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Permission_12796.png rename to app/DD-Record-Organizer/Resources/Permission_12796.png diff --git a/app/DD-Record-Organiser/Resources/PropertyGridEditorPart_6041.png b/app/DD-Record-Organizer/Resources/PropertyGridEditorPart_6041.png similarity index 100% rename from app/DD-Record-Organiser/Resources/PropertyGridEditorPart_6041.png rename to app/DD-Record-Organizer/Resources/PropertyGridEditorPart_6041.png diff --git a/app/DD-Record-Organiser/Resources/Property_501.png b/app/DD-Record-Organizer/Resources/Property_501.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Property_501.png rename to app/DD-Record-Organizer/Resources/Property_501.png diff --git a/app/DD-Record-Organiser/Resources/RadioButton_701.png b/app/DD-Record-Organizer/Resources/RadioButton_701.png similarity index 100% rename from app/DD-Record-Organiser/Resources/RadioButton_701.png rename to app/DD-Record-Organizer/Resources/RadioButton_701.png diff --git a/app/DD-Record-Organiser/Resources/RemoveLink_9938.png b/app/DD-Record-Organizer/Resources/RemoveLink_9938.png similarity index 100% rename from app/DD-Record-Organiser/Resources/RemoveLink_9938.png rename to app/DD-Record-Organizer/Resources/RemoveLink_9938.png diff --git a/app/DD-Record-Organiser/Resources/Reports-collapsed_12995_32x.png b/app/DD-Record-Organizer/Resources/Reports-collapsed_12995_32x.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Reports-collapsed_12995_32x.png rename to app/DD-Record-Organizer/Resources/Reports-collapsed_12995_32x.png diff --git a/app/DD-Record-Organiser/Resources/RightFileOnly.png b/app/DD-Record-Organizer/Resources/RightFileOnly.png similarity index 100% rename from app/DD-Record-Organiser/Resources/RightFileOnly.png rename to app/DD-Record-Organizer/Resources/RightFileOnly.png diff --git a/app/DD-Record-Organiser/Resources/TableView_nameonly_263.png b/app/DD-Record-Organizer/Resources/TableView_nameonly_263.png similarity index 100% rename from app/DD-Record-Organiser/Resources/TableView_nameonly_263.png rename to app/DD-Record-Organizer/Resources/TableView_nameonly_263.png diff --git a/app/DD-Record-Organiser/Resources/Table_748.png b/app/DD-Record-Organizer/Resources/Table_748.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Table_748.png rename to app/DD-Record-Organizer/Resources/Table_748.png diff --git a/app/DD-Record-Organiser/Resources/Task_16xMD.png b/app/DD-Record-Organizer/Resources/Task_16xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/Task_16xMD.png rename to app/DD-Record-Organizer/Resources/Task_16xMD.png diff --git a/app/DD-Record-Organiser/Resources/TextBox_708.png b/app/DD-Record-Organizer/Resources/TextBox_708.png similarity index 100% rename from app/DD-Record-Organiser/Resources/TextBox_708.png rename to app/DD-Record-Organizer/Resources/TextBox_708.png diff --git a/app/DD-Record-Organiser/Resources/UserInterfaceEditor_5845.png b/app/DD-Record-Organizer/Resources/UserInterfaceEditor_5845.png similarity index 100% rename from app/DD-Record-Organiser/Resources/UserInterfaceEditor_5845.png rename to app/DD-Record-Organizer/Resources/UserInterfaceEditor_5845.png diff --git a/app/DD-Record-Organiser/Resources/UserInterfaceEditor_5845_32x.png b/app/DD-Record-Organizer/Resources/UserInterfaceEditor_5845_32x.png similarity index 100% rename from app/DD-Record-Organiser/Resources/UserInterfaceEditor_5845_32x.png rename to app/DD-Record-Organizer/Resources/UserInterfaceEditor_5845_32x.png diff --git a/app/DD-Record-Organiser/Resources/WMI_Task_21x.png b/app/DD-Record-Organizer/Resources/WMI_Task_21x.png similarity index 100% rename from app/DD-Record-Organiser/Resources/WMI_Task_21x.png rename to app/DD-Record-Organizer/Resources/WMI_Task_21x.png diff --git a/app/DD-Record-Organiser/Resources/WebUserControl(ascx)_11270_16x.png b/app/DD-Record-Organizer/Resources/WebUserControl(ascx)_11270_16x.png similarity index 100% rename from app/DD-Record-Organiser/Resources/WebUserControl(ascx)_11270_16x.png rename to app/DD-Record-Organizer/Resources/WebUserControl(ascx)_11270_16x.png diff --git a/app/DD-Record-Organiser/Resources/Works Finished (nonXP).ico b/app/DD-Record-Organizer/Resources/Works Finished (nonXP).ico similarity index 100% rename from app/DD-Record-Organiser/Resources/Works Finished (nonXP).ico rename to app/DD-Record-Organizer/Resources/Works Finished (nonXP).ico diff --git a/app/DD-Record-Organiser/Resources/_blank.png b/app/DD-Record-Organizer/Resources/_blank.png similarity index 100% rename from app/DD-Record-Organiser/Resources/_blank.png rename to app/DD-Record-Organizer/Resources/_blank.png diff --git a/app/DD-Record-Organiser/Resources/action_Cancel_16xLG.png b/app/DD-Record-Organizer/Resources/action_Cancel_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/action_Cancel_16xLG.png rename to app/DD-Record-Organizer/Resources/action_Cancel_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/action_Cancel_16xLG1.png b/app/DD-Record-Organizer/Resources/action_Cancel_16xLG1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/action_Cancel_16xLG1.png rename to app/DD-Record-Organizer/Resources/action_Cancel_16xLG1.png diff --git a/app/DD-Record-Organiser/Resources/action_add_16xLG.png b/app/DD-Record-Organizer/Resources/action_add_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/action_add_16xLG.png rename to app/DD-Record-Organizer/Resources/action_add_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/action_add_16xMD.png b/app/DD-Record-Organizer/Resources/action_add_16xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/action_add_16xMD.png rename to app/DD-Record-Organizer/Resources/action_add_16xMD.png diff --git a/app/DD-Record-Organiser/Resources/action_add_16xSM.png b/app/DD-Record-Organizer/Resources/action_add_16xSM.png similarity index 100% rename from app/DD-Record-Organiser/Resources/action_add_16xSM.png rename to app/DD-Record-Organizer/Resources/action_add_16xSM.png diff --git a/app/DD-Record-Organiser/Resources/add.png b/app/DD-Record-Organizer/Resources/add.png similarity index 100% rename from app/DD-Record-Organiser/Resources/add.png rename to app/DD-Record-Organizer/Resources/add.png diff --git a/app/DD-Record-Organiser/Resources/add1.png b/app/DD-Record-Organizer/Resources/add1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/add1.png rename to app/DD-Record-Organizer/Resources/add1.png diff --git a/app/DD-Record-Organiser/Resources/application_form.png b/app/DD-Record-Organizer/Resources/application_form.png similarity index 100% rename from app/DD-Record-Organiser/Resources/application_form.png rename to app/DD-Record-Organizer/Resources/application_form.png diff --git a/app/DD-Record-Organiser/Resources/application_view_detail.png b/app/DD-Record-Organizer/Resources/application_view_detail.png similarity index 100% rename from app/DD-Record-Organiser/Resources/application_view_detail.png rename to app/DD-Record-Organizer/Resources/application_view_detail.png diff --git a/app/DD-Record-Organiser/Resources/application_view_detail1.png b/app/DD-Record-Organizer/Resources/application_view_detail1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/application_view_detail1.png rename to app/DD-Record-Organizer/Resources/application_view_detail1.png diff --git a/app/DD-Record-Organiser/Resources/application_view_tile.png b/app/DD-Record-Organizer/Resources/application_view_tile.png similarity index 100% rename from app/DD-Record-Organiser/Resources/application_view_tile.png rename to app/DD-Record-Organizer/Resources/application_view_tile.png diff --git a/app/DD-Record-Organiser/Resources/arrow_Down_16xLG.png b/app/DD-Record-Organizer/Resources/arrow_Down_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_Down_16xLG.png rename to app/DD-Record-Organizer/Resources/arrow_Down_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/arrow_Forward_16xLG.png b/app/DD-Record-Organizer/Resources/arrow_Forward_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_Forward_16xLG.png rename to app/DD-Record-Organizer/Resources/arrow_Forward_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/arrow_Next_16xLG_color.png b/app/DD-Record-Organizer/Resources/arrow_Next_16xLG_color.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_Next_16xLG_color.png rename to app/DD-Record-Organizer/Resources/arrow_Next_16xLG_color.png diff --git a/app/DD-Record-Organiser/Resources/arrow_left.png b/app/DD-Record-Organizer/Resources/arrow_left.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_left.png rename to app/DD-Record-Organizer/Resources/arrow_left.png diff --git a/app/DD-Record-Organiser/Resources/arrow_refresh.png b/app/DD-Record-Organizer/Resources/arrow_refresh.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_refresh.png rename to app/DD-Record-Organizer/Resources/arrow_refresh.png diff --git a/app/DD-Record-Organiser/Resources/arrow_right.png b/app/DD-Record-Organizer/Resources/arrow_right.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_right.png rename to app/DD-Record-Organizer/Resources/arrow_right.png diff --git a/app/DD-Record-Organiser/Resources/arrow_switch.png b/app/DD-Record-Organizer/Resources/arrow_switch.png similarity index 100% rename from app/DD-Record-Organiser/Resources/arrow_switch.png rename to app/DD-Record-Organizer/Resources/arrow_switch.png diff --git a/app/DD-Record-Organiser/Resources/asset_pie-series-chart_on_12X12.png b/app/DD-Record-Organizer/Resources/asset_pie-series-chart_on_12X12.png similarity index 100% rename from app/DD-Record-Organiser/Resources/asset_pie-series-chart_on_12X12.png rename to app/DD-Record-Organizer/Resources/asset_pie-series-chart_on_12X12.png diff --git a/app/DD-Record-Organiser/Resources/asset_pie-series-chart_on_24X24.png b/app/DD-Record-Organizer/Resources/asset_pie-series-chart_on_24X24.png similarity index 100% rename from app/DD-Record-Organiser/Resources/asset_pie-series-chart_on_24X24.png rename to app/DD-Record-Organizer/Resources/asset_pie-series-chart_on_24X24.png diff --git a/app/DD-Record-Organiser/Resources/base_globe_32.png b/app/DD-Record-Organizer/Resources/base_globe_32.png similarity index 100% rename from app/DD-Record-Organiser/Resources/base_globe_32.png rename to app/DD-Record-Organizer/Resources/base_globe_32.png diff --git a/app/DD-Record-Organiser/Resources/bell_delete.png b/app/DD-Record-Organizer/Resources/bell_delete.png similarity index 100% rename from app/DD-Record-Organiser/Resources/bell_delete.png rename to app/DD-Record-Organizer/Resources/bell_delete.png diff --git a/app/DD-Record-Organiser/Resources/bell_go.png b/app/DD-Record-Organizer/Resources/bell_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/bell_go.png rename to app/DD-Record-Organizer/Resources/bell_go.png diff --git a/app/DD-Record-Organiser/Resources/benutzer3.ico b/app/DD-Record-Organizer/Resources/benutzer3.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/benutzer3.ico rename to app/DD-Record-Organizer/Resources/benutzer3.ico diff --git a/app/DD-Record-Organiser/Resources/bmp.png b/app/DD-Record-Organizer/Resources/bmp.png similarity index 100% rename from app/DD-Record-Organiser/Resources/bmp.png rename to app/DD-Record-Organizer/Resources/bmp.png diff --git a/app/DD-Record-Organiser/Resources/brainpool.png b/app/DD-Record-Organizer/Resources/brainpool.png similarity index 100% rename from app/DD-Record-Organiser/Resources/brainpool.png rename to app/DD-Record-Organizer/Resources/brainpool.png diff --git a/app/DD-Record-Organiser/Resources/brick.png b/app/DD-Record-Organizer/Resources/brick.png similarity index 100% rename from app/DD-Record-Organiser/Resources/brick.png rename to app/DD-Record-Organizer/Resources/brick.png diff --git a/app/DD-Record-Organiser/Resources/brick_go.png b/app/DD-Record-Organizer/Resources/brick_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/brick_go.png rename to app/DD-Record-Organizer/Resources/brick_go.png diff --git a/app/DD-Record-Organiser/Resources/bricks.png b/app/DD-Record-Organizer/Resources/bricks.png similarity index 100% rename from app/DD-Record-Organiser/Resources/bricks.png rename to app/DD-Record-Organizer/Resources/bricks.png diff --git a/app/DD-Record-Organiser/Resources/bug_edit.png b/app/DD-Record-Organizer/Resources/bug_edit.png similarity index 100% rename from app/DD-Record-Organiser/Resources/bug_edit.png rename to app/DD-Record-Organizer/Resources/bug_edit.png diff --git a/app/DD-Record-Organiser/Resources/bug_edit1.png b/app/DD-Record-Organizer/Resources/bug_edit1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/bug_edit1.png rename to app/DD-Record-Organizer/Resources/bug_edit1.png diff --git a/app/DD-Record-Organiser/Resources/calendar.png b/app/DD-Record-Organizer/Resources/calendar.png similarity index 100% rename from app/DD-Record-Organiser/Resources/calendar.png rename to app/DD-Record-Organizer/Resources/calendar.png diff --git a/app/DD-Record-Organiser/Resources/calendar_32x32.png b/app/DD-Record-Organizer/Resources/calendar_32x32.png similarity index 100% rename from app/DD-Record-Organiser/Resources/calendar_32x32.png rename to app/DD-Record-Organizer/Resources/calendar_32x32.png diff --git a/app/DD-Record-Organiser/Resources/calendar_add.png b/app/DD-Record-Organizer/Resources/calendar_add.png similarity index 100% rename from app/DD-Record-Organiser/Resources/calendar_add.png rename to app/DD-Record-Organizer/Resources/calendar_add.png diff --git a/app/DD-Record-Organiser/Resources/cancel.png b/app/DD-Record-Organizer/Resources/cancel.png similarity index 100% rename from app/DD-Record-Organiser/Resources/cancel.png rename to app/DD-Record-Organizer/Resources/cancel.png diff --git a/app/DD-Record-Organiser/Resources/cancel1.png b/app/DD-Record-Organizer/Resources/cancel1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/cancel1.png rename to app/DD-Record-Organizer/Resources/cancel1.png diff --git a/app/DD-Record-Organiser/Resources/changechartlegendalignment_32x32.png b/app/DD-Record-Organizer/Resources/changechartlegendalignment_32x32.png similarity index 100% rename from app/DD-Record-Organiser/Resources/changechartlegendalignment_32x32.png rename to app/DD-Record-Organizer/Resources/changechartlegendalignment_32x32.png diff --git a/app/DD-Record-Organiser/Resources/checkbox_16xLG.png b/app/DD-Record-Organizer/Resources/checkbox_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/checkbox_16xLG.png rename to app/DD-Record-Organizer/Resources/checkbox_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/cmb.PNG b/app/DD-Record-Organizer/Resources/cmb.PNG similarity index 100% rename from app/DD-Record-Organiser/Resources/cmb.PNG rename to app/DD-Record-Organizer/Resources/cmb.PNG diff --git a/app/DD-Record-Organiser/Resources/color_wheel.png b/app/DD-Record-Organizer/Resources/color_wheel.png similarity index 100% rename from app/DD-Record-Organiser/Resources/color_wheel.png rename to app/DD-Record-Organizer/Resources/color_wheel.png diff --git a/app/DD-Record-Organiser/Resources/csv.png b/app/DD-Record-Organizer/Resources/csv.png similarity index 100% rename from app/DD-Record-Organiser/Resources/csv.png rename to app/DD-Record-Organizer/Resources/csv.png diff --git a/app/DD-Record-Organiser/Resources/cube.ico b/app/DD-Record-Organizer/Resources/cube.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/cube.ico rename to app/DD-Record-Organizer/Resources/cube.ico diff --git a/app/DD-Record-Organiser/Resources/database.png b/app/DD-Record-Organizer/Resources/database.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database.png rename to app/DD-Record-Organizer/Resources/database.png diff --git a/app/DD-Record-Organiser/Resources/database_add.png b/app/DD-Record-Organizer/Resources/database_add.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_add.png rename to app/DD-Record-Organizer/Resources/database_add.png diff --git a/app/DD-Record-Organiser/Resources/database_connect.png b/app/DD-Record-Organizer/Resources/database_connect.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_connect.png rename to app/DD-Record-Organizer/Resources/database_connect.png diff --git a/app/DD-Record-Organiser/Resources/database_delete.png b/app/DD-Record-Organizer/Resources/database_delete.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_delete.png rename to app/DD-Record-Organizer/Resources/database_delete.png diff --git a/app/DD-Record-Organiser/Resources/database_edit.png b/app/DD-Record-Organizer/Resources/database_edit.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_edit.png rename to app/DD-Record-Organizer/Resources/database_edit.png diff --git a/app/DD-Record-Organiser/Resources/database_error.png b/app/DD-Record-Organizer/Resources/database_error.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_error.png rename to app/DD-Record-Organizer/Resources/database_error.png diff --git a/app/DD-Record-Organiser/Resources/database_gear.png b/app/DD-Record-Organizer/Resources/database_gear.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_gear.png rename to app/DD-Record-Organizer/Resources/database_gear.png diff --git a/app/DD-Record-Organiser/Resources/database_go.png b/app/DD-Record-Organizer/Resources/database_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_go.png rename to app/DD-Record-Organizer/Resources/database_go.png diff --git a/app/DD-Record-Organiser/Resources/database_go1.png b/app/DD-Record-Organizer/Resources/database_go1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_go1.png rename to app/DD-Record-Organizer/Resources/database_go1.png diff --git a/app/DD-Record-Organiser/Resources/database_key.png b/app/DD-Record-Organizer/Resources/database_key.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_key.png rename to app/DD-Record-Organizer/Resources/database_key.png diff --git a/app/DD-Record-Organiser/Resources/database_lightning.png b/app/DD-Record-Organizer/Resources/database_lightning.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_lightning.png rename to app/DD-Record-Organizer/Resources/database_lightning.png diff --git a/app/DD-Record-Organiser/Resources/database_link.png b/app/DD-Record-Organizer/Resources/database_link.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_link.png rename to app/DD-Record-Organizer/Resources/database_link.png diff --git a/app/DD-Record-Organiser/Resources/database_refresh.png b/app/DD-Record-Organizer/Resources/database_refresh.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_refresh.png rename to app/DD-Record-Organizer/Resources/database_refresh.png diff --git a/app/DD-Record-Organiser/Resources/database_save.png b/app/DD-Record-Organizer/Resources/database_save.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_save.png rename to app/DD-Record-Organizer/Resources/database_save.png diff --git a/app/DD-Record-Organiser/Resources/database_table.png b/app/DD-Record-Organizer/Resources/database_table.png similarity index 100% rename from app/DD-Record-Organiser/Resources/database_table.png rename to app/DD-Record-Organizer/Resources/database_table.png diff --git a/app/DD-Record-Organiser/Resources/delete.png b/app/DD-Record-Organizer/Resources/delete.png similarity index 100% rename from app/DD-Record-Organiser/Resources/delete.png rename to app/DD-Record-Organizer/Resources/delete.png diff --git a/app/DD-Record-Organiser/Resources/delete1.png b/app/DD-Record-Organizer/Resources/delete1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/delete1.png rename to app/DD-Record-Organizer/Resources/delete1.png diff --git a/app/DD-Record-Organiser/Resources/delete_12x12.png b/app/DD-Record-Organizer/Resources/delete_12x12.png similarity index 100% rename from app/DD-Record-Organiser/Resources/delete_12x12.png rename to app/DD-Record-Organizer/Resources/delete_12x12.png diff --git a/app/DD-Record-Organiser/Resources/doc.png b/app/DD-Record-Organizer/Resources/doc.png similarity index 100% rename from app/DD-Record-Organiser/Resources/doc.png rename to app/DD-Record-Organizer/Resources/doc.png diff --git a/app/DD-Record-Organiser/Resources/doc_excel_csv.png b/app/DD-Record-Organizer/Resources/doc_excel_csv.png similarity index 100% rename from app/DD-Record-Organiser/Resources/doc_excel_csv.png rename to app/DD-Record-Organizer/Resources/doc_excel_csv.png diff --git a/app/DD-Record-Organiser/Resources/dtp.PNG b/app/DD-Record-Organizer/Resources/dtp.PNG similarity index 100% rename from app/DD-Record-Organiser/Resources/dtp.PNG rename to app/DD-Record-Organizer/Resources/dtp.PNG diff --git a/app/DD-Record-Organiser/Resources/dtp1.PNG b/app/DD-Record-Organizer/Resources/dtp1.PNG similarity index 100% rename from app/DD-Record-Organiser/Resources/dtp1.PNG rename to app/DD-Record-Organizer/Resources/dtp1.PNG diff --git a/app/DD-Record-Organiser/Resources/dwg.png b/app/DD-Record-Organizer/Resources/dwg.png similarity index 100% rename from app/DD-Record-Organiser/Resources/dwg.png rename to app/DD-Record-Organizer/Resources/dwg.png diff --git a/app/DD-Record-Organiser/Resources/dxf.png b/app/DD-Record-Organizer/Resources/dxf.png similarity index 100% rename from app/DD-Record-Organiser/Resources/dxf.png rename to app/DD-Record-Organizer/Resources/dxf.png diff --git a/app/DD-Record-Organiser/Resources/email_edit.png b/app/DD-Record-Organizer/Resources/email_edit.png similarity index 100% rename from app/DD-Record-Organiser/Resources/email_edit.png rename to app/DD-Record-Organizer/Resources/email_edit.png diff --git a/app/DD-Record-Organiser/Resources/email_go.png b/app/DD-Record-Organizer/Resources/email_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/email_go.png rename to app/DD-Record-Organizer/Resources/email_go.png diff --git a/app/DD-Record-Organiser/Resources/eps.png b/app/DD-Record-Organizer/Resources/eps.png similarity index 100% rename from app/DD-Record-Organiser/Resources/eps.png rename to app/DD-Record-Organizer/Resources/eps.png diff --git a/app/DD-Record-Organiser/Resources/error.ico b/app/DD-Record-Organizer/Resources/error.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/error.ico rename to app/DD-Record-Organizer/Resources/error.ico diff --git a/app/DD-Record-Organiser/Resources/error.png b/app/DD-Record-Organizer/Resources/error.png similarity index 100% rename from app/DD-Record-Organiser/Resources/error.png rename to app/DD-Record-Organizer/Resources/error.png diff --git a/app/DD-Record-Organiser/Resources/eye.png b/app/DD-Record-Organizer/Resources/eye.png similarity index 100% rename from app/DD-Record-Organiser/Resources/eye.png rename to app/DD-Record-Organizer/Resources/eye.png diff --git a/app/DD-Record-Organiser/Resources/f1.ico b/app/DD-Record-Organizer/Resources/f1.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/f1.ico rename to app/DD-Record-Organizer/Resources/f1.ico diff --git a/app/DD-Record-Organiser/Resources/f2.ico b/app/DD-Record-Organizer/Resources/f2.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/f2.ico rename to app/DD-Record-Organizer/Resources/f2.ico diff --git a/app/DD-Record-Organiser/Resources/f3.ico b/app/DD-Record-Organizer/Resources/f3.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/f3.ico rename to app/DD-Record-Organizer/Resources/f3.ico diff --git a/app/DD-Record-Organiser/Resources/f5.ico b/app/DD-Record-Organizer/Resources/f5.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/f5.ico rename to app/DD-Record-Organizer/Resources/f5.ico diff --git a/app/DD-Record-Organiser/Resources/f6.ico b/app/DD-Record-Organizer/Resources/f6.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/f6.ico rename to app/DD-Record-Organizer/Resources/f6.ico diff --git a/app/DD-Record-Organiser/Resources/flag_green.png b/app/DD-Record-Organizer/Resources/flag_green.png similarity index 100% rename from app/DD-Record-Organiser/Resources/flag_green.png rename to app/DD-Record-Organizer/Resources/flag_green.png diff --git a/app/DD-Record-Organiser/Resources/folder_Open_16xLG.png b/app/DD-Record-Organizer/Resources/folder_Open_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/folder_Open_16xLG.png rename to app/DD-Record-Organizer/Resources/folder_Open_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/folder_Open_32xLG.png b/app/DD-Record-Organizer/Resources/folder_Open_32xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/folder_Open_32xLG.png rename to app/DD-Record-Organizer/Resources/folder_Open_32xLG.png diff --git a/app/DD-Record-Organiser/Resources/folder_Open_32xMD.png b/app/DD-Record-Organizer/Resources/folder_Open_32xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/folder_Open_32xMD.png rename to app/DD-Record-Organizer/Resources/folder_Open_32xMD.png diff --git a/app/DD-Record-Organiser/Resources/folder_go.png b/app/DD-Record-Organizer/Resources/folder_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/folder_go.png rename to app/DD-Record-Organizer/Resources/folder_go.png diff --git a/app/DD-Record-Organiser/Resources/grid_Data_16xMD.png b/app/DD-Record-Organizer/Resources/grid_Data_16xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/grid_Data_16xMD.png rename to app/DD-Record-Organizer/Resources/grid_Data_16xMD.png diff --git a/app/DD-Record-Organiser/Resources/handdrawn_arrow_right_green.png b/app/DD-Record-Organizer/Resources/handdrawn_arrow_right_green.png similarity index 100% rename from app/DD-Record-Organiser/Resources/handdrawn_arrow_right_green.png rename to app/DD-Record-Organizer/Resources/handdrawn_arrow_right_green.png diff --git a/app/DD-Record-Organiser/Resources/handdrawn_user-admin.png b/app/DD-Record-Organizer/Resources/handdrawn_user-admin.png similarity index 100% rename from app/DD-Record-Organiser/Resources/handdrawn_user-admin.png rename to app/DD-Record-Organizer/Resources/handdrawn_user-admin.png diff --git a/app/DD-Record-Organiser/Resources/ico6078.ico b/app/DD-Record-Organizer/Resources/ico6078.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/ico6078.ico rename to app/DD-Record-Organizer/Resources/ico6078.ico diff --git a/app/DD-Record-Organiser/Resources/ico858.ico b/app/DD-Record-Organizer/Resources/ico858.ico similarity index 100% rename from app/DD-Record-Organiser/Resources/ico858.ico rename to app/DD-Record-Organizer/Resources/ico858.ico diff --git a/app/DD-Record-Organiser/Resources/keinbild.png b/app/DD-Record-Organizer/Resources/keinbild.png similarity index 100% rename from app/DD-Record-Organiser/Resources/keinbild.png rename to app/DD-Record-Organizer/Resources/keinbild.png diff --git a/app/DD-Record-Organiser/Resources/key_go.png b/app/DD-Record-Organizer/Resources/key_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/key_go.png rename to app/DD-Record-Organizer/Resources/key_go.png diff --git a/app/DD-Record-Organiser/Resources/key_go1.png b/app/DD-Record-Organizer/Resources/key_go1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/key_go1.png rename to app/DD-Record-Organizer/Resources/key_go1.png diff --git a/app/DD-Record-Organiser/Resources/lbl.PNG b/app/DD-Record-Organizer/Resources/lbl.PNG similarity index 100% rename from app/DD-Record-Organiser/Resources/lbl.PNG rename to app/DD-Record-Organizer/Resources/lbl.PNG diff --git a/app/DD-Record-Organiser/Resources/lightbulb.png b/app/DD-Record-Organizer/Resources/lightbulb.png similarity index 100% rename from app/DD-Record-Organiser/Resources/lightbulb.png rename to app/DD-Record-Organizer/Resources/lightbulb.png diff --git a/app/DD-Record-Organiser/Resources/lock.png b/app/DD-Record-Organizer/Resources/lock.png similarity index 100% rename from app/DD-Record-Organiser/Resources/lock.png rename to app/DD-Record-Organizer/Resources/lock.png diff --git a/app/DD-Record-Organiser/Resources/lock_16xMD.png b/app/DD-Record-Organizer/Resources/lock_16xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/lock_16xMD.png rename to app/DD-Record-Organizer/Resources/lock_16xMD.png diff --git a/app/DD-Record-Organiser/Resources/magifier_zoom_out.png b/app/DD-Record-Organizer/Resources/magifier_zoom_out.png similarity index 100% rename from app/DD-Record-Organiser/Resources/magifier_zoom_out.png rename to app/DD-Record-Organizer/Resources/magifier_zoom_out.png diff --git a/app/DD-Record-Organiser/Resources/mail.bmp b/app/DD-Record-Organizer/Resources/mail.bmp similarity index 100% rename from app/DD-Record-Organiser/Resources/mail.bmp rename to app/DD-Record-Organizer/Resources/mail.bmp diff --git a/app/DD-Record-Organiser/Resources/module_32xLG.png b/app/DD-Record-Organizer/Resources/module_32xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/module_32xLG.png rename to app/DD-Record-Organizer/Resources/module_32xLG.png diff --git a/app/DD-Record-Organiser/Resources/module_32xMD.png b/app/DD-Record-Organizer/Resources/module_32xMD.png similarity index 100% rename from app/DD-Record-Organiser/Resources/module_32xMD.png rename to app/DD-Record-Organizer/Resources/module_32xMD.png diff --git a/app/DD-Record-Organiser/Resources/module_32xSM.png b/app/DD-Record-Organizer/Resources/module_32xSM.png similarity index 100% rename from app/DD-Record-Organiser/Resources/module_32xSM.png rename to app/DD-Record-Organizer/Resources/module_32xSM.png diff --git a/app/DD-Record-Organiser/Resources/note_delete.png b/app/DD-Record-Organizer/Resources/note_delete.png similarity index 100% rename from app/DD-Record-Organiser/Resources/note_delete.png rename to app/DD-Record-Organizer/Resources/note_delete.png diff --git a/app/DD-Record-Organiser/Resources/page_copy.png b/app/DD-Record-Organizer/Resources/page_copy.png similarity index 100% rename from app/DD-Record-Organiser/Resources/page_copy.png rename to app/DD-Record-Organizer/Resources/page_copy.png diff --git a/app/DD-Record-Organiser/Resources/page_excel.png b/app/DD-Record-Organizer/Resources/page_excel.png similarity index 100% rename from app/DD-Record-Organiser/Resources/page_excel.png rename to app/DD-Record-Organizer/Resources/page_excel.png diff --git a/app/DD-Record-Organiser/Resources/page_red.png b/app/DD-Record-Organizer/Resources/page_red.png similarity index 100% rename from app/DD-Record-Organiser/Resources/page_red.png rename to app/DD-Record-Organizer/Resources/page_red.png diff --git a/app/DD-Record-Organiser/Resources/page_refresh.png b/app/DD-Record-Organizer/Resources/page_refresh.png similarity index 100% rename from app/DD-Record-Organiser/Resources/page_refresh.png rename to app/DD-Record-Organizer/Resources/page_refresh.png diff --git a/app/DD-Record-Organiser/Resources/page_white_office.png b/app/DD-Record-Organizer/Resources/page_white_office.png similarity index 100% rename from app/DD-Record-Organiser/Resources/page_white_office.png rename to app/DD-Record-Organizer/Resources/page_white_office.png diff --git a/app/DD-Record-Organiser/Resources/page_white_office1.png b/app/DD-Record-Organizer/Resources/page_white_office1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/page_white_office1.png rename to app/DD-Record-Organizer/Resources/page_white_office1.png diff --git a/app/DD-Record-Organiser/Resources/pdf.png b/app/DD-Record-Organizer/Resources/pdf.png similarity index 100% rename from app/DD-Record-Organiser/Resources/pdf.png rename to app/DD-Record-Organizer/Resources/pdf.png diff --git a/app/DD-Record-Organiser/Resources/ppt.png b/app/DD-Record-Organizer/Resources/ppt.png similarity index 100% rename from app/DD-Record-Organiser/Resources/ppt.png rename to app/DD-Record-Organizer/Resources/ppt.png diff --git a/app/DD-Record-Organiser/Resources/refresh_16xLG.png b/app/DD-Record-Organizer/Resources/refresh_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/refresh_16xLG.png rename to app/DD-Record-Organizer/Resources/refresh_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/save.bmp b/app/DD-Record-Organizer/Resources/save.bmp similarity index 100% rename from app/DD-Record-Organiser/Resources/save.bmp rename to app/DD-Record-Organizer/Resources/save.bmp diff --git a/app/DD-Record-Organiser/Resources/save1.bmp b/app/DD-Record-Organizer/Resources/save1.bmp similarity index 100% rename from app/DD-Record-Organiser/Resources/save1.bmp rename to app/DD-Record-Organizer/Resources/save1.bmp diff --git a/app/DD-Record-Organiser/Resources/save_16xLG.png b/app/DD-Record-Organizer/Resources/save_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/save_16xLG.png rename to app/DD-Record-Organizer/Resources/save_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/save_16xLG1.png b/app/DD-Record-Organizer/Resources/save_16xLG1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/save_16xLG1.png rename to app/DD-Record-Organizer/Resources/save_16xLG1.png diff --git a/app/DD-Record-Organiser/Resources/search_glyph.png b/app/DD-Record-Organizer/Resources/search_glyph.png similarity index 100% rename from app/DD-Record-Organiser/Resources/search_glyph.png rename to app/DD-Record-Organizer/Resources/search_glyph.png diff --git a/app/DD-Record-Organiser/Resources/shield_go.png b/app/DD-Record-Organizer/Resources/shield_go.png similarity index 100% rename from app/DD-Record-Organiser/Resources/shield_go.png rename to app/DD-Record-Organizer/Resources/shield_go.png diff --git a/app/DD-Record-Organiser/Resources/sql.png b/app/DD-Record-Organizer/Resources/sql.png similarity index 100% rename from app/DD-Record-Organiser/Resources/sql.png rename to app/DD-Record-Organizer/Resources/sql.png diff --git a/app/DD-Record-Organiser/Resources/table.png b/app/DD-Record-Organizer/Resources/table.png similarity index 100% rename from app/DD-Record-Organiser/Resources/table.png rename to app/DD-Record-Organizer/Resources/table.png diff --git a/app/DD-Record-Organiser/Resources/table_add.png b/app/DD-Record-Organizer/Resources/table_add.png similarity index 100% rename from app/DD-Record-Organiser/Resources/table_add.png rename to app/DD-Record-Organizer/Resources/table_add.png diff --git a/app/DD-Record-Organiser/Resources/table_refresh.png b/app/DD-Record-Organizer/Resources/table_refresh.png similarity index 100% rename from app/DD-Record-Organiser/Resources/table_refresh.png rename to app/DD-Record-Organizer/Resources/table_refresh.png diff --git a/app/DD-Record-Organiser/Resources/table_relationship.png b/app/DD-Record-Organizer/Resources/table_relationship.png similarity index 100% rename from app/DD-Record-Organiser/Resources/table_relationship.png rename to app/DD-Record-Organizer/Resources/table_relationship.png diff --git a/app/DD-Record-Organiser/Resources/text.png b/app/DD-Record-Organizer/Resources/text.png similarity index 100% rename from app/DD-Record-Organiser/Resources/text.png rename to app/DD-Record-Organizer/Resources/text.png diff --git a/app/DD-Record-Organiser/Resources/text1.png b/app/DD-Record-Organizer/Resources/text1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/text1.png rename to app/DD-Record-Organizer/Resources/text1.png diff --git a/app/DD-Record-Organiser/Resources/txt.PNG b/app/DD-Record-Organizer/Resources/txt.PNG similarity index 100% rename from app/DD-Record-Organiser/Resources/txt.PNG rename to app/DD-Record-Organizer/Resources/txt.PNG diff --git a/app/DD-Record-Organiser/Resources/userAccounts.bmp b/app/DD-Record-Organizer/Resources/userAccounts.bmp similarity index 100% rename from app/DD-Record-Organiser/Resources/userAccounts.bmp rename to app/DD-Record-Organizer/Resources/userAccounts.bmp diff --git a/app/DD-Record-Organiser/Resources/user_16xLG.png b/app/DD-Record-Organizer/Resources/user_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/user_16xLG.png rename to app/DD-Record-Organizer/Resources/user_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/user_green.png b/app/DD-Record-Organizer/Resources/user_green.png similarity index 100% rename from app/DD-Record-Organiser/Resources/user_green.png rename to app/DD-Record-Organizer/Resources/user_green.png diff --git a/app/DD-Record-Organiser/Resources/user_suit.png b/app/DD-Record-Organizer/Resources/user_suit.png similarity index 100% rename from app/DD-Record-Organiser/Resources/user_suit.png rename to app/DD-Record-Organizer/Resources/user_suit.png diff --git a/app/DD-Record-Organiser/Resources/view_16xLG.png b/app/DD-Record-Organizer/Resources/view_16xLG.png similarity index 100% rename from app/DD-Record-Organiser/Resources/view_16xLG.png rename to app/DD-Record-Organizer/Resources/view_16xLG.png diff --git a/app/DD-Record-Organiser/Resources/windream-Logo-transparent.png b/app/DD-Record-Organizer/Resources/windream-Logo-transparent.png similarity index 100% rename from app/DD-Record-Organiser/Resources/windream-Logo-transparent.png rename to app/DD-Record-Organizer/Resources/windream-Logo-transparent.png diff --git a/app/DD-Record-Organiser/Resources/windream-Logo-transparent1.png b/app/DD-Record-Organizer/Resources/windream-Logo-transparent1.png similarity index 100% rename from app/DD-Record-Organiser/Resources/windream-Logo-transparent1.png rename to app/DD-Record-Organizer/Resources/windream-Logo-transparent1.png diff --git a/app/DD-Record-Organiser/Resources/windream-Logo-transparent_klein.png b/app/DD-Record-Organizer/Resources/windream-Logo-transparent_klein.png similarity index 100% rename from app/DD-Record-Organiser/Resources/windream-Logo-transparent_klein.png rename to app/DD-Record-Organizer/Resources/windream-Logo-transparent_klein.png diff --git a/app/DD-Record-Organiser/Resources/windream-Logo_261x100.jpg b/app/DD-Record-Organizer/Resources/windream-Logo_261x100.jpg similarity index 100% rename from app/DD-Record-Organiser/Resources/windream-Logo_261x100.jpg rename to app/DD-Record-Organizer/Resources/windream-Logo_261x100.jpg diff --git a/app/DD-Record-Organiser/Resources/xls.png b/app/DD-Record-Organizer/Resources/xls.png similarity index 100% rename from app/DD-Record-Organiser/Resources/xls.png rename to app/DD-Record-Organizer/Resources/xls.png diff --git a/app/DD-Record-Organiser/Resources/xml.png b/app/DD-Record-Organizer/Resources/xml.png similarity index 100% rename from app/DD-Record-Organiser/Resources/xml.png rename to app/DD-Record-Organizer/Resources/xml.png diff --git a/app/DD-Record-Organiser/Resources/zip.png b/app/DD-Record-Organizer/Resources/zip.png similarity index 100% rename from app/DD-Record-Organiser/Resources/zip.png rename to app/DD-Record-Organizer/Resources/zip.png diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.Designer.vb b/app/DD-Record-Organizer/Strings/ControlProperties.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/Strings/ControlProperties.Designer.vb rename to app/DD-Record-Organizer/Strings/ControlProperties.Designer.vb index 91e20d4..5511b04 100644 --- a/app/DD-Record-Organiser/Strings/ControlProperties.Designer.vb +++ b/app/DD-Record-Organizer/Strings/ControlProperties.Designer.vb @@ -43,7 +43,7 @@ Namespace My.Resources Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Record_Organiser.ControlProperties", GetType(ControlProperties).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_Record_Organizer.ControlProperties", GetType(ControlProperties).Assembly) resourceMan = temp End If Return resourceMan diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.en.Designer.vb b/app/DD-Record-Organizer/Strings/ControlProperties.en.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/Strings/ControlProperties.en.Designer.vb rename to app/DD-Record-Organizer/Strings/ControlProperties.en.Designer.vb diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.en.resx b/app/DD-Record-Organizer/Strings/ControlProperties.en.resx similarity index 100% rename from app/DD-Record-Organiser/Strings/ControlProperties.en.resx rename to app/DD-Record-Organizer/Strings/ControlProperties.en.resx diff --git a/app/DD-Record-Organiser/Strings/ControlProperties.resx b/app/DD-Record-Organizer/Strings/ControlProperties.resx similarity index 100% rename from app/DD-Record-Organiser/Strings/ControlProperties.resx rename to app/DD-Record-Organizer/Strings/ControlProperties.resx diff --git a/app/DD-Record-Organiser/email.png b/app/DD-Record-Organizer/email.png similarity index 100% rename from app/DD-Record-Organiser/email.png rename to app/DD-Record-Organizer/email.png diff --git a/app/DD-Record-Organiser/frmAbout.Designer.vb b/app/DD-Record-Organizer/frmAbout.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmAbout.Designer.vb rename to app/DD-Record-Organizer/frmAbout.Designer.vb index 525865f..bceeedc 100644 --- a/app/DD-Record-Organiser/frmAbout.Designer.vb +++ b/app/DD-Record-Organizer/frmAbout.Designer.vb @@ -75,7 +75,7 @@ Partial Class frmAbout ' 'PictureBox1 ' - Me.PictureBox1.BackgroundImage = Global.DD_Record_Organiser.My.Resources.Resources.DD_Icons_ADDI + Me.PictureBox1.BackgroundImage = Global.DD_Record_Organizer.My.Resources.Resources.DD_Icons_ADDI resources.ApplyResources(Me.PictureBox1, "PictureBox1") Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.TabStop = False @@ -87,7 +87,7 @@ Partial Class frmAbout ' 'PictureBox2 ' - Me.PictureBox2.Image = Global.DD_Record_Organiser.My.Resources.Resources.windream_Logo_transparent + Me.PictureBox2.Image = Global.DD_Record_Organizer.My.Resources.Resources.windream_Logo_transparent resources.ApplyResources(Me.PictureBox2, "PictureBox2") Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.TabStop = False diff --git a/app/DD-Record-Organiser/frmAbout.en-GB.resx b/app/DD-Record-Organizer/frmAbout.en-GB.resx similarity index 100% rename from app/DD-Record-Organiser/frmAbout.en-GB.resx rename to app/DD-Record-Organizer/frmAbout.en-GB.resx diff --git a/app/DD-Record-Organiser/frmAbout.resx b/app/DD-Record-Organizer/frmAbout.resx similarity index 100% rename from app/DD-Record-Organiser/frmAbout.resx rename to app/DD-Record-Organizer/frmAbout.resx diff --git a/app/DD-Record-Organiser/frmAbout.vb b/app/DD-Record-Organizer/frmAbout.vb similarity index 100% rename from app/DD-Record-Organiser/frmAbout.vb rename to app/DD-Record-Organizer/frmAbout.vb diff --git a/app/DD-Record-Organiser/frmCalendar.Designer.vb b/app/DD-Record-Organizer/frmCalendar.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmCalendar.Designer.vb rename to app/DD-Record-Organizer/frmCalendar.Designer.vb index e944358..8a4e405 100644 --- a/app/DD-Record-Organiser/frmCalendar.Designer.vb +++ b/app/DD-Record-Organizer/frmCalendar.Designer.vb @@ -76,10 +76,10 @@ Partial Class frmCalendar Me.GroupByRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.GroupByRibbonPageGroup() Me.SchedulerStorage1 = New DevExpress.XtraScheduler.SchedulerStorage(Me.components) Me.TBPMOAPPOINTMENTSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSetCalendar = New DD_Record_Organiser.DD_DMSDataSetCalendar() + Me.DD_DMSDataSetCalendar = New DD_Record_Organizer.DD_DMSDataSetCalendar() Me.TBPMORESOURCESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_APPOINTMENTSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter() - Me.TBPMO_RESOURCESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter() + Me.TBPMO_APPOINTMENTSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter() + Me.TBPMO_RESOURCESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter() Me.SchedulerBarController1 = New DevExpress.XtraScheduler.UI.SchedulerBarController() CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).BeginInit() @@ -501,11 +501,11 @@ Partial Class frmCalendar End Sub Friend WithEvents SchedulerControl1 As DevExpress.XtraScheduler.SchedulerControl Friend WithEvents SchedulerStorage1 As DevExpress.XtraScheduler.SchedulerStorage - Friend WithEvents DD_DMSDataSetCalendar As DD_Record_Organiser.DD_DMSDataSetCalendar + Friend WithEvents DD_DMSDataSetCalendar As DD_Record_Organizer.DD_DMSDataSetCalendar Friend WithEvents TBPMOAPPOINTMENTSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_APPOINTMENTSTableAdapter As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter + Friend WithEvents TBPMO_APPOINTMENTSTableAdapter As DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter Friend WithEvents TBPMORESOURCESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_RESOURCESTableAdapter As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter + Friend WithEvents TBPMO_RESOURCESTableAdapter As DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter Friend WithEvents ribbonCalendar As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents SwitchToDayViewItem1 As DevExpress.XtraScheduler.UI.SwitchToDayViewItem Friend WithEvents SwitchToWorkWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem diff --git a/app/DD-Record-Organiser/frmCalendar.resx b/app/DD-Record-Organizer/frmCalendar.resx similarity index 100% rename from app/DD-Record-Organiser/frmCalendar.resx rename to app/DD-Record-Organizer/frmCalendar.resx diff --git a/app/DD-Record-Organiser/frmCalendar.vb b/app/DD-Record-Organizer/frmCalendar.vb similarity index 96% rename from app/DD-Record-Organiser/frmCalendar.vb rename to app/DD-Record-Organizer/frmCalendar.vb index 62114e8..4c3d526 100644 --- a/app/DD-Record-Organiser/frmCalendar.vb +++ b/app/DD-Record-Organizer/frmCalendar.vb @@ -68,7 +68,7 @@ Private Sub SchedulerControl1_EditAppointmentFormShowing(sender As Object, e As DevExpress.XtraScheduler.AppointmentFormEventArgs) Handles SchedulerControl1.EditAppointmentFormShowing Dim scheduler As DevExpress.XtraScheduler.SchedulerControl = CType(sender, DevExpress.XtraScheduler.SchedulerControl) - Dim form As DD_Record_Organiser.frmCustomAppointment = New DD_Record_Organiser.frmCustomAppointment(scheduler, e.Appointment, e.OpenRecurrenceForm) + Dim form As DD_Record_Organizer.frmCustomAppointment = New DD_Record_Organizer.frmCustomAppointment(scheduler, e.Appointment, e.OpenRecurrenceForm) Try e.DialogResult = form.ShowDialog e.Handled = True diff --git a/app/DD-Record-Organiser/frmChooseParentRecord.Designer.vb b/app/DD-Record-Organizer/frmChooseParentRecord.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmChooseParentRecord.Designer.vb rename to app/DD-Record-Organizer/frmChooseParentRecord.Designer.vb index dc78c65..81729d2 100644 --- a/app/DD-Record-Organiser/frmChooseParentRecord.Designer.vb +++ b/app/DD-Record-Organizer/frmChooseParentRecord.Designer.vb @@ -94,14 +94,14 @@ Partial Class frmChooseParentRecord 'btnAddLink ' resources.ApplyResources(Me.btnAddLink, "btnAddLink") - Me.btnAddLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_link + Me.btnAddLink.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_link Me.btnAddLink.Name = "btnAddLink" Me.btnAddLink.UseVisualStyleBackColor = True ' 'btncancel ' resources.ApplyResources(Me.btncancel, "btncancel") - Me.btncancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 + Me.btncancel.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1 Me.btncancel.Name = "btncancel" Me.btncancel.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmChooseParentRecord.en-US.resx b/app/DD-Record-Organizer/frmChooseParentRecord.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmChooseParentRecord.en-US.resx rename to app/DD-Record-Organizer/frmChooseParentRecord.en-US.resx diff --git a/app/DD-Record-Organiser/frmChooseParentRecord.resx b/app/DD-Record-Organizer/frmChooseParentRecord.resx similarity index 100% rename from app/DD-Record-Organiser/frmChooseParentRecord.resx rename to app/DD-Record-Organizer/frmChooseParentRecord.resx diff --git a/app/DD-Record-Organiser/frmChooseParentRecord.vb b/app/DD-Record-Organizer/frmChooseParentRecord.vb similarity index 100% rename from app/DD-Record-Organiser/frmChooseParentRecord.vb rename to app/DD-Record-Organizer/frmChooseParentRecord.vb diff --git a/app/DD-Record-Organiser/frmClientLogin.Designer.vb b/app/DD-Record-Organizer/frmClientLogin.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmClientLogin.Designer.vb rename to app/DD-Record-Organizer/frmClientLogin.Designer.vb index 8d273a5..f8754c5 100644 --- a/app/DD-Record-Organiser/frmClientLogin.Designer.vb +++ b/app/DD-Record-Organizer/frmClientLogin.Designer.vb @@ -48,7 +48,7 @@ Partial Class frmClientLogin 'btnLogin ' resources.ApplyResources(Me.btnLogin, "btnLogin") - Me.btnLogin.Image = Global.DD_Record_Organiser.My.Resources.Resources.Login_6031_32x + Me.btnLogin.Image = Global.DD_Record_Organizer.My.Resources.Resources.Login_6031_32x Me.btnLogin.Name = "btnLogin" Me.btnLogin.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmClientLogin.en.resx b/app/DD-Record-Organizer/frmClientLogin.en.resx similarity index 100% rename from app/DD-Record-Organiser/frmClientLogin.en.resx rename to app/DD-Record-Organizer/frmClientLogin.en.resx diff --git a/app/DD-Record-Organiser/frmClientLogin.resx b/app/DD-Record-Organizer/frmClientLogin.resx similarity index 100% rename from app/DD-Record-Organiser/frmClientLogin.resx rename to app/DD-Record-Organizer/frmClientLogin.resx diff --git a/app/DD-Record-Organiser/frmClientLogin.vb b/app/DD-Record-Organizer/frmClientLogin.vb similarity index 100% rename from app/DD-Record-Organiser/frmClientLogin.vb rename to app/DD-Record-Organizer/frmClientLogin.vb diff --git a/app/DD-Record-Organiser/frmCockpit.Designer.vb b/app/DD-Record-Organizer/frmCockpit.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmCockpit.Designer.vb rename to app/DD-Record-Organizer/frmCockpit.Designer.vb diff --git a/app/DD-Record-Organiser/frmCockpit.resx b/app/DD-Record-Organizer/frmCockpit.resx similarity index 100% rename from app/DD-Record-Organiser/frmCockpit.resx rename to app/DD-Record-Organizer/frmCockpit.resx diff --git a/app/DD-Record-Organiser/frmCockpit.vb b/app/DD-Record-Organizer/frmCockpit.vb similarity index 100% rename from app/DD-Record-Organiser/frmCockpit.vb rename to app/DD-Record-Organizer/frmCockpit.vb diff --git a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb b/app/DD-Record-Organizer/frmConfig_Basic.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmConfig_Basic.Designer.vb rename to app/DD-Record-Organizer/frmConfig_Basic.Designer.vb index 4db9fc3..3a5e06e 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb +++ b/app/DD-Record-Organizer/frmConfig_Basic.Designer.vb @@ -216,7 +216,7 @@ Partial Class frmConfig_Basic 'BtnConnect ' resources.ApplyResources(Me.BtnConnect, "BtnConnect") - Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1 + Me.BtnConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_go1 Me.BtnConnect.Name = "BtnConnect" Me.BtnConnect.UseVisualStyleBackColor = True ' @@ -239,7 +239,7 @@ Partial Class frmConfig_Basic 'Button4 ' resources.ApplyResources(Me.Button4, "Button4") - Me.Button4.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_go + Me.Button4.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go Me.Button4.Name = "Button4" Me.Button4.UseVisualStyleBackColor = True ' @@ -311,9 +311,9 @@ Partial Class frmConfig_Basic 'CheckBox1 ' resources.ApplyResources(Me.CheckBox1, "CheckBox1") - Me.CheckBox1.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_Calendar_isChild + Me.CheckBox1.Checked = Global.DD_Record_Organizer.My.MySettings.Default.User_Calendar_isChild Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_Calendar_isChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organizer.My.MySettings.Default, "User_Calendar_isChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.UseVisualStyleBackColor = True ' @@ -371,14 +371,14 @@ Partial Class frmConfig_Basic 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'btnApplicationFolder ' resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder") - Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + Me.btnApplicationFolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go Me.btnApplicationFolder.Name = "btnApplicationFolder" Me.btnApplicationFolder.UseVisualStyleBackColor = True ' @@ -447,7 +447,7 @@ Partial Class frmConfig_Basic 'btnstartstop2 ' resources.ApplyResources(Me.btnstartstop2, "btnstartstop2") - Me.btnstartstop2.Image = Global.DD_Record_Organiser.My.Resources.Resources.bell_go + Me.btnstartstop2.Image = Global.DD_Record_Organizer.My.Resources.Resources.bell_go Me.btnstartstop2.Name = "btnstartstop2" Me.btnstartstop2.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmConfig_Basic.de.resx b/app/DD-Record-Organizer/frmConfig_Basic.de.resx similarity index 100% rename from app/DD-Record-Organiser/frmConfig_Basic.de.resx rename to app/DD-Record-Organizer/frmConfig_Basic.de.resx diff --git a/app/DD-Record-Organiser/frmConfig_Basic.en-US.resx b/app/DD-Record-Organizer/frmConfig_Basic.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmConfig_Basic.en-US.resx rename to app/DD-Record-Organizer/frmConfig_Basic.en-US.resx diff --git a/app/DD-Record-Organiser/frmConfig_Basic.resx b/app/DD-Record-Organizer/frmConfig_Basic.resx similarity index 100% rename from app/DD-Record-Organiser/frmConfig_Basic.resx rename to app/DD-Record-Organizer/frmConfig_Basic.resx diff --git a/app/DD-Record-Organiser/frmConfig_Basic.vb b/app/DD-Record-Organizer/frmConfig_Basic.vb similarity index 100% rename from app/DD-Record-Organiser/frmConfig_Basic.vb rename to app/DD-Record-Organizer/frmConfig_Basic.vb diff --git a/app/DD-Record-Organiser/frmConnections.Designer.vb b/app/DD-Record-Organizer/frmConnections.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmConnections.Designer.vb rename to app/DD-Record-Organizer/frmConnections.Designer.vb index a37a165..80366c0 100644 --- a/app/DD-Record-Organiser/frmConnections.Designer.vb +++ b/app/DD-Record-Organizer/frmConnections.Designer.vb @@ -35,7 +35,7 @@ Partial Class frmConnections Me.TBDD_CONNECTIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -71,8 +71,8 @@ Partial Class frmConnections Me.lblUserId = New System.Windows.Forms.Label() Me.lblPassword = New System.Windows.Forms.Label() Me.DATABASETextBox = New System.Windows.Forms.TextBox() - Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() GUIDLabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() COMMENTLabel = New System.Windows.Forms.Label() @@ -218,14 +218,14 @@ Partial Class frmConnections ' resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigatorSaveItem, "TBDD_CONNECTIONBindingNavigatorSaveItem") Me.TBDD_CONNECTIONBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Name = "TBDD_CONNECTIONBindingNavigatorSaveItem" ' 'ToolStripButton1 ' resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.ToolStripButton1.Name = "ToolStripButton1" ' 'ListBox1 @@ -284,7 +284,7 @@ Partial Class frmConnections 'btnCheck_Con ' resources.ApplyResources(Me.btnCheck_Con, "btnCheck_Con") - Me.btnCheck_Con.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go + Me.btnCheck_Con.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_go Me.btnCheck_Con.Name = "btnCheck_Con" Me.btnCheck_Con.UseVisualStyleBackColor = True ' @@ -381,7 +381,7 @@ Partial Class frmConnections Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmConnections ' @@ -467,8 +467,8 @@ Partial Class frmConnections Friend WithEvents lblUserId As System.Windows.Forms.Label Friend WithEvents lblPassword As System.Windows.Forms.Label Friend WithEvents DATABASETextBox As System.Windows.Forms.TextBox - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBDD_CONNECTIONTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager End Class diff --git a/app/DD-Record-Organiser/frmConnections.en-US.resx b/app/DD-Record-Organizer/frmConnections.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmConnections.en-US.resx rename to app/DD-Record-Organizer/frmConnections.en-US.resx diff --git a/app/DD-Record-Organiser/frmConnections.resx b/app/DD-Record-Organizer/frmConnections.resx similarity index 99% rename from app/DD-Record-Organiser/frmConnections.resx rename to app/DD-Record-Organizer/frmConnections.resx index 09c9a00..cb41fef 100644 --- a/app/DD-Record-Organiser/frmConnections.resx +++ b/app/DD-Record-Organizer/frmConnections.resx @@ -1231,10 +1231,10 @@ $this - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBDD_CONNECTIONTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBDD_CONNECTIONTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1408,7 +1408,7 @@ 714, 25 - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 20 diff --git a/app/DD-Record-Organiser/frmConnections.vb b/app/DD-Record-Organizer/frmConnections.vb similarity index 100% rename from app/DD-Record-Organiser/frmConnections.vb rename to app/DD-Record-Organizer/frmConnections.vb diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb rename to app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb index 154a846..b87a238 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb +++ b/app/DD-Record-Organizer/frmConstructorDesigner.Designer.vb @@ -49,11 +49,11 @@ Partial Class frmConstructorDesigner Dim SQL_RIGHT_WINDREAM_VIEWLabel As System.Windows.Forms.Label Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() - Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() + Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() Me.TBPMO_FORM_CONSTRUCTORBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -172,7 +172,7 @@ Partial Class frmConstructorDesigner Me.lblsaveSQLUser = New System.Windows.Forms.Label() Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox() Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() @@ -195,12 +195,12 @@ Partial Class frmConstructorDesigner Me.ListBox1 = New System.Windows.Forms.ListBox() Me.Label1 = New System.Windows.Forms.Label() Me.TBPMO_FORM_CONSTRUCTORBindingSource1 = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() - Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() Me.lblSave = New System.Windows.Forms.Label() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - Me.TBTEMP_QUICKDISPLAYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter() - Me.TableAdapterManager2 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBTEMP_QUICKDISPLAYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter() + Me.TableAdapterManager2 = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components) Me.btndeleteUserConstructorRel = New System.Windows.Forms.Button() Me.btnAddUser2ConstructorREL = New System.Windows.Forms.Button() @@ -210,8 +210,8 @@ Partial Class frmConstructorDesigner Me.LANGUAGETextBox = New System.Windows.Forms.TextBox() Me.CheckBoxHome = New System.Windows.Forms.CheckBox() Me.btnChangeHOMESTANDARD = New System.Windows.Forms.Button() - Me.TableAdapterManager3 = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() - Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter() + Me.TableAdapterManager3 = New DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() + Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter() Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() @@ -433,7 +433,7 @@ Partial Class frmConstructorDesigner Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter ' @@ -1072,7 +1072,7 @@ Partial Class frmConstructorDesigner 'btndeleteSupervisorControl ' resources.ApplyResources(Me.btndeleteSupervisorControl, "btndeleteSupervisorControl") - Me.btndeleteSupervisorControl.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndeleteSupervisorControl.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.btndeleteSupervisorControl.Name = "btndeleteSupervisorControl" Me.btndeleteSupervisorControl.UseVisualStyleBackColor = True ' @@ -1271,13 +1271,13 @@ Partial Class frmConstructorDesigner 'btnTestSQL ' resources.ApplyResources(Me.btnTestSQL, "btnTestSQL") - Me.btnTestSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.Go + Me.btnTestSQL.Image = Global.DD_Record_Organizer.My.Resources.Resources.Go Me.btnTestSQL.Name = "btnTestSQL" Me.btnTestSQL.UseVisualStyleBackColor = True ' 'btnAddUserSQL ' - Me.btnAddUserSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.btnAddUserSQL.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG resources.ApplyResources(Me.btnAddUserSQL, "btnAddUserSQL") Me.btnAddUserSQL.Name = "btnAddUserSQL" Me.btnAddUserSQL.UseVisualStyleBackColor = True @@ -1363,7 +1363,7 @@ Partial Class frmConstructorDesigner ' 'btndeleteEntityfromClient ' - Me.btndeleteEntityfromClient.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndeleteEntityfromClient.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btndeleteEntityfromClient, "btndeleteEntityfromClient") Me.btndeleteEntityfromClient.Name = "btndeleteEntityfromClient" Me.btndeleteEntityfromClient.UseVisualStyleBackColor = True @@ -1382,7 +1382,7 @@ Partial Class frmConstructorDesigner ' 'btnsaddUser2Client ' - Me.btnsaddUser2Client.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnsaddUser2Client.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1 resources.ApplyResources(Me.btnsaddUser2Client, "btnsaddUser2Client") Me.btnsaddUser2Client.Name = "btnsaddUser2Client" Me.btnsaddUser2Client.UseVisualStyleBackColor = True @@ -1453,7 +1453,7 @@ Partial Class frmConstructorDesigner Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter1 Me.TableAdapterManager1.TBPMO_SAP_FUBATableAdapter = Nothing - Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'lblSave ' @@ -1509,7 +1509,7 @@ Partial Class frmConstructorDesigner Me.TableAdapterManager2.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager2.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager2.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager2.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'ImageCollection1 ' @@ -1562,7 +1562,7 @@ Partial Class frmConstructorDesigner ' 'btnChangeHOMESTANDARD ' - Me.btnChangeHOMESTANDARD.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link + Me.btnChangeHOMESTANDARD.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link resources.ApplyResources(Me.btnChangeHOMESTANDARD, "btnChangeHOMESTANDARD") Me.btnChangeHOMESTANDARD.Name = "btnChangeHOMESTANDARD" Me.btnChangeHOMESTANDARD.UseVisualStyleBackColor = True @@ -1573,7 +1573,7 @@ Partial Class frmConstructorDesigner Me.TableAdapterManager3.Connection = Nothing Me.TableAdapterManager3.TBPMO_APPOINTMENTSTableAdapter = Nothing Me.TableAdapterManager3.TBPMO_RESOURCESTableAdapter = Nothing - Me.TableAdapterManager3.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager3.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_CONSTRUCTOR_USER_SQLTableAdapter ' @@ -1791,10 +1791,10 @@ Partial Class frmConstructorDesigner Me.PerformLayout() End Sub - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -1808,7 +1808,7 @@ Partial Class frmConstructorDesigner Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton - Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Friend WithEvents TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TreeViewDetails As System.Windows.Forms.TreeView Friend WithEvents ImageList1 As System.Windows.Forms.ImageList @@ -1827,8 +1827,8 @@ Partial Class frmConstructorDesigner Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource1 As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter - Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter1 As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager1 As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage @@ -1856,10 +1856,10 @@ Partial Class frmConstructorDesigner Friend WithEvents btndeleteControl As System.Windows.Forms.Button Friend WithEvents btnSetHeadline As System.Windows.Forms.Button Friend WithEvents lblChangeHeadline As System.Windows.Forms.Label - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBTEMP_QUICKDISPLAYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBTEMP_QUICKDISPLAYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter - Friend WithEvents TableAdapterManager2 As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBTEMP_QUICKDISPLAYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter + Friend WithEvents TableAdapterManager2 As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents btnSetQuickViewPicture As System.Windows.Forms.Button Friend WithEvents txtQuickViewPicture As System.Windows.Forms.TextBox Friend WithEvents Label8 As System.Windows.Forms.Label @@ -1881,10 +1881,10 @@ Partial Class frmConstructorDesigner Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage - Friend WithEvents TableAdapterManager3 As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager + Friend WithEvents TableAdapterManager3 As DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents TBPMO_CONSTRUCTOR_USER_SQLBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_CONSTRUCTOR_USER_SQLTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter + Friend WithEvents TBPMO_CONSTRUCTOR_USER_SQLTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter Friend WithEvents lblsaveSQLUser As System.Windows.Forms.Label Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx b/app/DD-Record-Organizer/frmConstructorDesigner.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx rename to app/DD-Record-Organizer/frmConstructorDesigner.en-US.resx diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.en.resx b/app/DD-Record-Organizer/frmConstructorDesigner.en.resx similarity index 100% rename from app/DD-Record-Organiser/frmConstructorDesigner.en.resx rename to app/DD-Record-Organizer/frmConstructorDesigner.en.resx diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.resx b/app/DD-Record-Organizer/frmConstructorDesigner.resx similarity index 99% rename from app/DD-Record-Organiser/frmConstructorDesigner.resx rename to app/DD-Record-Organizer/frmConstructorDesigner.resx index faad3d7..2cd7b53 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.resx +++ b/app/DD-Record-Organizer/frmConstructorDesigner.resx @@ -9563,7 +9563,7 @@ Home Tab DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_FORM_CONSTRUCTORBindingSource @@ -9575,19 +9575,19 @@ Home Tab TBPMO_FORM_CONSTRUCTORTableAdapter - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorAddNewItem @@ -9827,7 +9827,7 @@ Home Tab DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null tslblSaveDetail @@ -9857,13 +9857,13 @@ Home Tab TBPMO_FORM_CONSTRUCTORTableAdapter1 - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager1 - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null OFDWindreamsuche @@ -9875,13 +9875,13 @@ Home Tab TBTEMP_QUICKDISPLAYTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager2 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ImageCollection1 @@ -9893,13 +9893,13 @@ Home Tab TableAdapterManager3 - DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager, DD_DMSDataSetCalendar.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager, DD_DMSDataSetCalendar.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_CONSTRUCTOR_USER_SQLTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridViewlUsers2Menue diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.vb b/app/DD-Record-Organizer/frmConstructorDesigner.vb similarity index 100% rename from app/DD-Record-Organiser/frmConstructorDesigner.vb rename to app/DD-Record-Organizer/frmConstructorDesigner.vb diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmConstructor_Main.Designer.vb rename to app/DD-Record-Organizer/frmConstructor_Main.Designer.vb index 4acc0db..772573b 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb @@ -159,7 +159,7 @@ Partial Class frmConstructor_Main Me.TabPageVariant = New DevExpress.XtraTab.XtraTabPage() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.TBPMO_RECORD_VARIANTBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.GridViewVariants = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colREASON_CODE = New DevExpress.XtraGrid.Columns.GridColumn() @@ -211,19 +211,19 @@ Partial Class frmConstructor_Main Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel() Me.progressLoadEntity = New System.Windows.Forms.ToolStripProgressBar() Me.labelLoadEntity = New System.Windows.Forms.ToolStripStatusLabel() - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components) Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components) Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cmsrpContainer = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ChangeHidepanelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components) - Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter() + Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter() Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components) CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerMain.SuspendLayout() @@ -337,7 +337,7 @@ Partial Class frmConstructor_Main ' 'AuswertungAnzeigenToolStripMenuItem ' - Me.AuswertungAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Reports_collapsed_12995_32x + Me.AuswertungAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Reports_collapsed_12995_32x Me.AuswertungAnzeigenToolStripMenuItem.Name = "AuswertungAnzeigenToolStripMenuItem" resources.ApplyResources(Me.AuswertungAnzeigenToolStripMenuItem, "AuswertungAnzeigenToolStripMenuItem") ' @@ -349,13 +349,13 @@ Partial Class frmConstructor_Main ' 'tsmiNodedownSearch ' - Me.tsmiNodedownSearch.Image = Global.DD_Record_Organiser.My.Resources.Resources.search_glyph + Me.tsmiNodedownSearch.Image = Global.DD_Record_Organizer.My.Resources.Resources.search_glyph Me.tsmiNodedownSearch.Name = "tsmiNodedownSearch" resources.ApplyResources(Me.tsmiNodedownSearch, "tsmiNodedownSearch") ' 'tsmientitySearch ' - Me.tsmientitySearch.Image = Global.DD_Record_Organiser.My.Resources.Resources.search_glyph + Me.tsmientitySearch.Image = Global.DD_Record_Organizer.My.Resources.Resources.search_glyph Me.tsmientitySearch.Name = "tsmientitySearch" resources.ApplyResources(Me.tsmientitySearch, "tsmientitySearch") ' @@ -445,7 +445,7 @@ Partial Class frmConstructor_Main 'AnsichtUmschaltenToolStripMenuItem ' Me.AnsichtUmschaltenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ButtonQuickViewCarousel, Me.ButtonQuickViewTiles, Me.ButtonDetailView}) - Me.AnsichtUmschaltenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.view_16xLG + Me.AnsichtUmschaltenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.view_16xLG Me.AnsichtUmschaltenToolStripMenuItem.Name = "AnsichtUmschaltenToolStripMenuItem" resources.ApplyResources(Me.AnsichtUmschaltenToolStripMenuItem, "AnsichtUmschaltenToolStripMenuItem") ' @@ -466,7 +466,7 @@ Partial Class frmConstructor_Main ' 'ButtonSetViewAsDefault ' - Me.ButtonSetViewAsDefault.Image = Global.DD_Record_Organiser.My.Resources.Resources.checkbox_16xLG + Me.ButtonSetViewAsDefault.Image = Global.DD_Record_Organizer.My.Resources.Resources.checkbox_16xLG Me.ButtonSetViewAsDefault.Name = "ButtonSetViewAsDefault" resources.ApplyResources(Me.ButtonSetViewAsDefault, "ButtonSetViewAsDefault") ' @@ -492,13 +492,13 @@ Partial Class frmConstructor_Main ' 'ButtonExportToExcel ' - Me.ButtonExportToExcel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel + Me.ButtonExportToExcel.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel Me.ButtonExportToExcel.Name = "ButtonExportToExcel" resources.ApplyResources(Me.ButtonExportToExcel, "ButtonExportToExcel") ' 'DatenNeuLadenToolStripMenuItem ' - Me.DatenNeuLadenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.DatenNeuLadenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.DatenNeuLadenToolStripMenuItem.Name = "DatenNeuLadenToolStripMenuItem" resources.ApplyResources(Me.DatenNeuLadenToolStripMenuItem, "DatenNeuLadenToolStripMenuItem") ' @@ -509,13 +509,13 @@ Partial Class frmConstructor_Main ' 'tsmi_RecordDelete ' - Me.tsmi_RecordDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.tsmi_RecordDelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.tsmi_RecordDelete.Name = "tsmi_RecordDelete" resources.ApplyResources(Me.tsmi_RecordDelete, "tsmi_RecordDelete") ' 'MassenänderungToolStripMenuItem ' - Me.MassenänderungToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources._4_four_rows_9716 + Me.MassenänderungToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources._4_four_rows_9716 Me.MassenänderungToolStripMenuItem.Name = "MassenänderungToolStripMenuItem" resources.ApplyResources(Me.MassenänderungToolStripMenuItem, "MassenänderungToolStripMenuItem") ' @@ -526,7 +526,7 @@ Partial Class frmConstructor_Main ' 'DetailAnsichtDatensatzToolStripMenuItem ' - Me.DetailAnsichtDatensatzToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_view_detail + Me.DetailAnsichtDatensatzToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_view_detail Me.DetailAnsichtDatensatzToolStripMenuItem.Name = "DetailAnsichtDatensatzToolStripMenuItem" resources.ApplyResources(Me.DetailAnsichtDatensatzToolStripMenuItem, "DetailAnsichtDatensatzToolStripMenuItem") ' @@ -600,7 +600,7 @@ Partial Class frmConstructor_Main 'NewVarianttsmi ' resources.ApplyResources(Me.NewVarianttsmi, "NewVarianttsmi") - Me.NewVarianttsmi.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xMD + Me.NewVarianttsmi.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD Me.NewVarianttsmi.Name = "NewVarianttsmi" ' 'ToolStripSeparator5 @@ -616,7 +616,7 @@ Partial Class frmConstructor_Main 'CreateWorkflowtaskstsmi ' resources.ApplyResources(Me.CreateWorkflowtaskstsmi, "CreateWorkflowtaskstsmi") - Me.CreateWorkflowtaskstsmi.Image = Global.DD_Record_Organiser.My.Resources.Resources.brick_go + Me.CreateWorkflowtaskstsmi.Image = Global.DD_Record_Organizer.My.Resources.Resources.brick_go Me.CreateWorkflowtaskstsmi.Name = "CreateWorkflowtaskstsmi" ' 'showRecordLogtsmi @@ -646,13 +646,13 @@ Partial Class frmConstructor_Main ' 'tsbtnRefresh_Entity ' - Me.tsbtnRefresh_Entity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnRefresh_Entity.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.tsbtnRefresh_Entity, "tsbtnRefresh_Entity") Me.tsbtnRefresh_Entity.Name = "tsbtnRefresh_Entity" ' 'tsbtnGeodata ' - Me.tsbtnGeodata.Image = Global.DD_Record_Organiser.My.Resources.Resources.base_globe_32 + Me.tsbtnGeodata.Image = Global.DD_Record_Organizer.My.Resources.Resources.base_globe_32 resources.ApplyResources(Me.tsbtnGeodata, "tsbtnGeodata") Me.tsbtnGeodata.Name = "tsbtnGeodata" ' @@ -740,7 +740,7 @@ Partial Class frmConstructor_Main 'tsButtonAdd ' resources.ApplyResources(Me.tsButtonAdd, "tsButtonAdd") - Me.tsButtonAdd.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.tsButtonAdd.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.tsButtonAdd.Name = "tsButtonAdd" ' 'tsButtonSave @@ -751,13 +751,13 @@ Partial Class frmConstructor_Main 'tsButtonDelete ' resources.ApplyResources(Me.tsButtonDelete, "tsButtonDelete") - Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG + Me.tsButtonDelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_Cancel_16xLG Me.tsButtonDelete.Name = "tsButtonDelete" ' 'tsButtonEdit ' resources.ApplyResources(Me.tsButtonEdit, "tsButtonEdit") - Me.tsButtonEdit.Image = Global.DD_Record_Organiser.My.Resources.Resources.EditLabel_13239 + Me.tsButtonEdit.Image = Global.DD_Record_Organizer.My.Resources.Resources.EditLabel_13239 Me.tsButtonEdit.Name = "tsButtonEdit" ' 'tsButtonShowTaskOverview @@ -765,7 +765,7 @@ Partial Class frmConstructor_Main Me.tsButtonShowTaskOverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.tsButtonShowTaskOverview.BackColor = System.Drawing.Color.HotPink resources.ApplyResources(Me.tsButtonShowTaskOverview, "tsButtonShowTaskOverview") - Me.tsButtonShowTaskOverview.Image = Global.DD_Record_Organiser.My.Resources.Resources.bricks + Me.tsButtonShowTaskOverview.Image = Global.DD_Record_Organizer.My.Resources.Resources.bricks Me.tsButtonShowTaskOverview.Name = "tsButtonShowTaskOverview" ' 'tsbtnRedo @@ -775,7 +775,7 @@ Partial Class frmConstructor_Main ' 'tsButtonCancel ' - Me.tsButtonCancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 + Me.tsButtonCancel.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1 resources.ApplyResources(Me.tsButtonCancel, "tsButtonCancel") Me.tsButtonCancel.Name = "tsButtonCancel" ' @@ -786,19 +786,19 @@ Partial Class frmConstructor_Main ' 'tsbtnPanel1Collapse ' - Me.tsbtnPanel1Collapse.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left + Me.tsbtnPanel1Collapse.Image = Global.DD_Record_Organizer.My.Resources.Resources.arrow_left resources.ApplyResources(Me.tsbtnPanel1Collapse, "tsbtnPanel1Collapse") Me.tsbtnPanel1Collapse.Name = "tsbtnPanel1Collapse" ' 'tslblLocked ' resources.ApplyResources(Me.tslblLocked, "tslblLocked") - Me.tslblLocked.Image = Global.DD_Record_Organiser.My.Resources.Resources.lock + Me.tslblLocked.Image = Global.DD_Record_Organizer.My.Resources.Resources.lock Me.tslblLocked.Name = "tslblLocked" ' 'tslblFileslocked ' - Me.tslblFileslocked.Image = Global.DD_Record_Organiser.My.Resources.Resources.lock + Me.tslblFileslocked.Image = Global.DD_Record_Organizer.My.Resources.Resources.lock Me.tslblFileslocked.Name = "tslblFileslocked" resources.ApplyResources(Me.tslblFileslocked, "tslblFileslocked") ' @@ -997,7 +997,7 @@ Partial Class frmConstructor_Main ' 'tsbtnDoc_Refresh ' - Me.tsbtnDoc_Refresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnDoc_Refresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.tsbtnDoc_Refresh, "tsbtnDoc_Refresh") Me.tsbtnDoc_Refresh.Name = "tsbtnDoc_Refresh" ' @@ -1221,7 +1221,7 @@ Partial Class frmConstructor_Main ' 'ToolStripButton1 ' - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") Me.ToolStripButton1.Name = "ToolStripButton1" ' @@ -1232,7 +1232,7 @@ Partial Class frmConstructor_Main ' 'tsbtnVariantDetailView ' - Me.tsbtnVariantDetailView.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 + Me.tsbtnVariantDetailView.Image = Global.DD_Record_Organizer.My.Resources.Resources.FileSystemEditor_5852 resources.ApplyResources(Me.tsbtnVariantDetailView, "tsbtnVariantDetailView") Me.tsbtnVariantDetailView.Name = "tsbtnVariantDetailView" ' @@ -1266,7 +1266,7 @@ Partial Class frmConstructor_Main ' 'docCM_Copy ' - Me.docCM_Copy.Image = Global.DD_Record_Organiser.My.Resources.Resources.Copy_6524 + Me.docCM_Copy.Image = Global.DD_Record_Organizer.My.Resources.Resources.Copy_6524 Me.docCM_Copy.Name = "docCM_Copy" resources.ApplyResources(Me.docCM_Copy, "docCM_Copy") ' @@ -1317,13 +1317,13 @@ Partial Class frmConstructor_Main ' 'docCM_InWork ' - Me.docCM_InWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 + Me.docCM_InWork.Image = Global.DD_Record_Organizer.My.Resources.Resources.FileSystemEditor_5852 Me.docCM_InWork.Name = "docCM_InWork" resources.ApplyResources(Me.docCM_InWork, "docCM_InWork") ' 'docCM_linkRecord ' - Me.docCM_linkRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link + Me.docCM_linkRecord.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link Me.docCM_linkRecord.Name = "docCM_linkRecord" resources.ApplyResources(Me.docCM_linkRecord, "docCM_linkRecord") ' @@ -1350,7 +1350,7 @@ Partial Class frmConstructor_Main ' 'docCM_CheckRights ' - Me.docCM_CheckRights.Image = Global.DD_Record_Organiser.My.Resources.Resources.RightFileOnly + Me.docCM_CheckRights.Image = Global.DD_Record_Organizer.My.Resources.Resources.RightFileOnly Me.docCM_CheckRights.Name = "docCM_CheckRights" resources.ApplyResources(Me.docCM_CheckRights, "docCM_CheckRights") ' @@ -1366,13 +1366,13 @@ Partial Class frmConstructor_Main ' 'docCM_DeleteFile ' - Me.docCM_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.docCM_DeleteFile.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.docCM_DeleteFile.Name = "docCM_DeleteFile" resources.ApplyResources(Me.docCM_DeleteFile, "docCM_DeleteFile") ' 'docCM_RemoveLink ' - Me.docCM_RemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938 + Me.docCM_RemoveLink.Image = Global.DD_Record_Organizer.My.Resources.Resources.RemoveLink_9938 Me.docCM_RemoveLink.Name = "docCM_RemoveLink" resources.ApplyResources(Me.docCM_RemoveLink, "docCM_RemoveLink") ' @@ -1393,7 +1393,7 @@ Partial Class frmConstructor_Main ' 'docCM_PropertiesFile ' - Me.docCM_PropertiesFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041 + Me.docCM_PropertiesFile.Image = Global.DD_Record_Organizer.My.Resources.Resources.PropertyGridEditorPart_6041 Me.docCM_PropertiesFile.Name = "docCM_PropertiesFile" resources.ApplyResources(Me.docCM_PropertiesFile, "docCM_PropertiesFile") ' @@ -1556,7 +1556,7 @@ Partial Class frmConstructor_Main Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'VWPMO_WF_ACTIVEBindingSource ' @@ -1658,7 +1658,7 @@ Partial Class frmConstructor_Main Friend WithEvents tsslblStatus As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tsslblRecord As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents NavButtonRefresh As DevExpress.XtraBars.Navigation.NavButton - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents ContextMenuGrid As System.Windows.Forms.ContextMenuStrip Friend WithEvents FunktionenDataGridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator @@ -1698,12 +1698,12 @@ Partial Class frmConstructor_Main Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents ttToolTip As System.Windows.Forms.ToolTip Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter Friend WithEvents cmsTreeView As System.Windows.Forms.ContextMenuStrip Friend WithEvents ResetEbenenAuswahlToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tsslblWorkflowstate As System.Windows.Forms.ToolStripStatusLabel @@ -1796,7 +1796,7 @@ Partial Class frmConstructor_Main Friend WithEvents ToolStripSeparator23 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents TBPMO_RECORD_VARIANTBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_RECORD_VARIANTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter + Friend WithEvents TBPMO_RECORD_VARIANTTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter Friend WithEvents tsbtnVariantDetailView As System.Windows.Forms.ToolStripButton Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewVariants As DevExpress.XtraGrid.Views.Grid.GridView diff --git a/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx b/app/DD-Record-Organizer/frmConstructor_Main.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmConstructor_Main.en-US.resx rename to app/DD-Record-Organizer/frmConstructor_Main.en-US.resx diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organizer/frmConstructor_Main.resx similarity index 99% rename from app/DD-Record-Organiser/frmConstructor_Main.resx rename to app/DD-Record-Organizer/frmConstructor_Main.resx index b99f887..5c147d9 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.resx +++ b/app/DD-Record-Organizer/frmConstructor_Main.resx @@ -3646,7 +3646,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridViewVariants @@ -3934,7 +3934,7 @@ DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ImageCollection1 @@ -3964,13 +3964,13 @@ VWPMO_WF_USER_ACTIVETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_WF_ACTIVEBindingSource @@ -3982,7 +3982,7 @@ VWPMO_WF_ACTIVETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ToolTipController @@ -3994,7 +3994,7 @@ TBPMO_RECORD_VARIANTTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TimerClearResultfiles diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organizer/frmConstructor_Main.vb similarity index 100% rename from app/DD-Record-Organiser/frmConstructor_Main.vb rename to app/DD-Record-Organizer/frmConstructor_Main.vb diff --git a/app/DD-Record-Organiser/frmCustomAppointment.Designer.vb b/app/DD-Record-Organizer/frmCustomAppointment.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/frmCustomAppointment.Designer.vb rename to app/DD-Record-Organizer/frmCustomAppointment.Designer.vb index 36ddc3a..92cac40 100644 --- a/app/DD-Record-Organiser/frmCustomAppointment.Designer.vb +++ b/app/DD-Record-Organizer/frmCustomAppointment.Designer.vb @@ -406,7 +406,7 @@ Partial Class frmCustomAppointment 'btnJumpToRecord ' resources.ApplyResources(Me.btnJumpToRecord, "btnJumpToRecord") - Me.btnJumpToRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_Forward_16xLG + Me.btnJumpToRecord.Image = Global.DD_Record_Organizer.My.Resources.Resources.arrow_Forward_16xLG Me.btnJumpToRecord.Name = "btnJumpToRecord" Me.btnJumpToRecord.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmCustomAppointment.en-US.resx b/app/DD-Record-Organizer/frmCustomAppointment.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmCustomAppointment.en-US.resx rename to app/DD-Record-Organizer/frmCustomAppointment.en-US.resx diff --git a/app/DD-Record-Organiser/frmCustomAppointment.resx b/app/DD-Record-Organizer/frmCustomAppointment.resx similarity index 100% rename from app/DD-Record-Organiser/frmCustomAppointment.resx rename to app/DD-Record-Organizer/frmCustomAppointment.resx diff --git a/app/DD-Record-Organiser/frmCustomAppointment.vb b/app/DD-Record-Organizer/frmCustomAppointment.vb similarity index 100% rename from app/DD-Record-Organiser/frmCustomAppointment.vb rename to app/DD-Record-Organizer/frmCustomAppointment.vb diff --git a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb b/app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb rename to app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.Designer.vb index 90605df..58d6ca1 100644 --- a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb +++ b/app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.Designer.vb @@ -38,7 +38,7 @@ Partial Class frmDD_EMAIL_ACCOUNT Me.TBDD_EMAIL_ACCOUNTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_EMAIL_ACCOUNTBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -66,8 +66,8 @@ Partial Class frmDD_EMAIL_ACCOUNT Me.txttestReceipiant = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.btnEmailTest = New System.Windows.Forms.Button() - Me.TBDD_EMAIL_ACCOUNTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_EMAIL_ACCOUNTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.PORTTextBox = New System.Windows.Forms.TextBox() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -336,7 +336,7 @@ Partial Class frmDD_EMAIL_ACCOUNT 'btnEmailTest ' resources.ApplyResources(Me.btnEmailTest, "btnEmailTest") - Me.btnEmailTest.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddressEnvelope_16xLG + Me.btnEmailTest.Image = Global.DD_Record_Organizer.My.Resources.Resources.AddressEnvelope_16xLG Me.btnEmailTest.Name = "btnEmailTest" Me.btnEmailTest.UseVisualStyleBackColor = True ' @@ -378,7 +378,7 @@ Partial Class frmDD_EMAIL_ACCOUNT Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'PORTLabel ' @@ -434,10 +434,10 @@ Partial Class frmDD_EMAIL_ACCOUNT Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBDD_EMAIL_ACCOUNTBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_EMAIL_ACCOUNTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_EMAIL_ACCOUNTTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBDD_EMAIL_ACCOUNTBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel diff --git a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.en-US.resx b/app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.en-US.resx rename to app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.en-US.resx diff --git a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx b/app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.resx similarity index 99% rename from app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx rename to app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.resx index ab9556c..0a85e74 100644 --- a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.resx +++ b/app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.resx @@ -1549,7 +1549,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorCountItem @@ -1621,13 +1621,13 @@ TBDD_EMAIL_ACCOUNTTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmDD_EMAIL_ACCOUNT diff --git a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb b/app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.vb similarity index 100% rename from app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb rename to app/DD-Record-Organizer/frmDD_EMAIL_ACCOUNT.vb diff --git a/app/DD-Record-Organiser/frmDiagrams.Designer.vb b/app/DD-Record-Organizer/frmDiagrams.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/frmDiagrams.Designer.vb rename to app/DD-Record-Organizer/frmDiagrams.Designer.vb index c86aa4f..30fa28b 100644 --- a/app/DD-Record-Organiser/frmDiagrams.Designer.vb +++ b/app/DD-Record-Organizer/frmDiagrams.Designer.vb @@ -166,7 +166,7 @@ Partial Class frmDiagrams 'ToolStripButton1 ' resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.pdf + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.pdf Me.ToolStripButton1.Name = "ToolStripButton1" ' 'ToolStripSeparator1 diff --git a/app/DD-Record-Organiser/frmDiagrams.en-US.resx b/app/DD-Record-Organizer/frmDiagrams.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmDiagrams.en-US.resx rename to app/DD-Record-Organizer/frmDiagrams.en-US.resx diff --git a/app/DD-Record-Organiser/frmDiagrams.resx b/app/DD-Record-Organizer/frmDiagrams.resx similarity index 100% rename from app/DD-Record-Organiser/frmDiagrams.resx rename to app/DD-Record-Organizer/frmDiagrams.resx diff --git a/app/DD-Record-Organiser/frmDiagrams.vb b/app/DD-Record-Organizer/frmDiagrams.vb similarity index 100% rename from app/DD-Record-Organiser/frmDiagrams.vb rename to app/DD-Record-Organizer/frmDiagrams.vb diff --git a/app/DD-Record-Organiser/frmDocLink_to_Record.Designer.vb b/app/DD-Record-Organizer/frmDocLink_to_Record.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmDocLink_to_Record.Designer.vb rename to app/DD-Record-Organizer/frmDocLink_to_Record.Designer.vb diff --git a/app/DD-Record-Organiser/frmDocLink_to_Record.en-US.resx b/app/DD-Record-Organizer/frmDocLink_to_Record.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmDocLink_to_Record.en-US.resx rename to app/DD-Record-Organizer/frmDocLink_to_Record.en-US.resx diff --git a/app/DD-Record-Organiser/frmDocLink_to_Record.resx b/app/DD-Record-Organizer/frmDocLink_to_Record.resx similarity index 100% rename from app/DD-Record-Organiser/frmDocLink_to_Record.resx rename to app/DD-Record-Organizer/frmDocLink_to_Record.resx diff --git a/app/DD-Record-Organiser/frmDocLink_to_Record.vb b/app/DD-Record-Organizer/frmDocLink_to_Record.vb similarity index 100% rename from app/DD-Record-Organiser/frmDocLink_to_Record.vb rename to app/DD-Record-Organizer/frmDocLink_to_Record.vb diff --git a/app/DD-Record-Organiser/frmDoctype_NameConvention.designer.vb b/app/DD-Record-Organizer/frmDoctype_NameConvention.designer.vb similarity index 96% rename from app/DD-Record-Organiser/frmDoctype_NameConvention.designer.vb rename to app/DD-Record-Organizer/frmDoctype_NameConvention.designer.vb index 52e24fc..bf19178 100644 --- a/app/DD-Record-Organiser/frmDoctype_NameConvention.designer.vb +++ b/app/DD-Record-Organizer/frmDoctype_NameConvention.designer.vb @@ -31,7 +31,7 @@ Partial Class frmDoctype_NameConvention Me.btnAddIndexM = New System.Windows.Forms.Button() Me.cmbIndex_AUTO = New System.Windows.Forms.ComboBox() Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.Label4 = New System.Windows.Forms.Label() Me.cmbEntity = New System.Windows.Forms.ComboBox() Me.btnAddIndexA = New System.Windows.Forms.Button() @@ -47,8 +47,8 @@ Partial Class frmDoctype_NameConvention Me.btndelete = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.btnclose = New System.Windows.Forms.Button() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBDD_INDEX_AUTOMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_INDEX_AUTOMTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() Me.VERSION_DELIMITERTextBox = New System.Windows.Forms.TextBox() Me.FILE_DELIMITERTextBox = New System.Windows.Forms.TextBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() @@ -64,7 +64,7 @@ Partial Class frmDoctype_NameConvention Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter() + Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -118,7 +118,7 @@ Partial Class frmDoctype_NameConvention ' 'btnAddIndexM ' - Me.btnAddIndexM.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xMD + Me.btnAddIndexM.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM") Me.btnAddIndexM.Name = "btnAddIndexM" Me.btnAddIndexM.UseVisualStyleBackColor = True @@ -155,7 +155,7 @@ Partial Class frmDoctype_NameConvention 'btnAddIndexA ' resources.ApplyResources(Me.btnAddIndexA, "btnAddIndexA") - Me.btnAddIndexA.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xMD + Me.btnAddIndexA.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD Me.btnAddIndexA.Name = "btnAddIndexA" Me.btnAddIndexA.UseVisualStyleBackColor = True ' @@ -187,7 +187,7 @@ Partial Class frmDoctype_NameConvention ' 'btnAddDivers ' - Me.btnAddDivers.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xMD + Me.btnAddDivers.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD resources.ApplyResources(Me.btnAddDivers, "btnAddDivers") Me.btnAddDivers.Name = "btnAddDivers" Me.btnAddDivers.UseVisualStyleBackColor = True @@ -206,7 +206,7 @@ Partial Class frmDoctype_NameConvention ' 'Button1 ' - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xMD + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True @@ -225,21 +225,21 @@ Partial Class frmDoctype_NameConvention ' 'btndelete ' - Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btndelete, "btndelete") Me.btndelete.Name = "btndelete" Me.btndelete.UseVisualStyleBackColor = True ' 'btnOK ' - Me.btnOK.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.btnOK.Image = Global.DD_Record_Organizer.My.Resources.Resources.save resources.ApplyResources(Me.btnOK, "btnOK") Me.btnOK.Name = "btnOK" Me.btnOK.UseVisualStyleBackColor = True ' 'btnclose ' - Me.btnclose.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel + Me.btnclose.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel resources.ApplyResources(Me.btnclose, "btnclose") Me.btnclose.Name = "btnclose" Me.btnclose.UseVisualStyleBackColor = True @@ -280,7 +280,7 @@ Partial Class frmDoctype_NameConvention Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_INDEX_AUTOMTableAdapter ' @@ -482,7 +482,7 @@ Partial Class frmDoctype_NameConvention 'ToolStripButtonSave ' Me.ToolStripButtonSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.ToolStripButtonSave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save resources.ApplyResources(Me.ToolStripButtonSave, "ToolStripButtonSave") Me.ToolStripButtonSave.Name = "ToolStripButtonSave" ' @@ -556,11 +556,11 @@ Partial Class frmDoctype_NameConvention Friend WithEvents btnOK As System.Windows.Forms.Button Friend WithEvents btnclose As System.Windows.Forms.Button - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents VERSION_DELIMITERTextBox As System.Windows.Forms.TextBox Friend WithEvents FILE_DELIMITERTextBox As System.Windows.Forms.TextBox - Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents cmbDate As System.Windows.Forms.ComboBox @@ -575,7 +575,7 @@ Partial Class frmDoctype_NameConvention Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents TBPMO_WD_NAMECONVENTION_FORMATBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WD_NAMECONVENTION_FORMATTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + Friend WithEvents TBPMO_WD_NAMECONVENTION_FORMATTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPATTERN As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colFORMAT_RULE As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmDoctype_NameConvention.en-US.resx b/app/DD-Record-Organizer/frmDoctype_NameConvention.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmDoctype_NameConvention.en-US.resx rename to app/DD-Record-Organizer/frmDoctype_NameConvention.en-US.resx diff --git a/app/DD-Record-Organiser/frmDoctype_NameConvention.resx b/app/DD-Record-Organizer/frmDoctype_NameConvention.resx similarity index 99% rename from app/DD-Record-Organiser/frmDoctype_NameConvention.resx rename to app/DD-Record-Organizer/frmDoctype_NameConvention.resx index aaa3fdd..d5160b2 100644 --- a/app/DD-Record-Organiser/frmDoctype_NameConvention.resx +++ b/app/DD-Record-Organizer/frmDoctype_NameConvention.resx @@ -1270,19 +1270,19 @@ genutzt werden. DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_INDEX_AUTOMTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WD_NAMECONVENTION_FORMATBindingSource @@ -1336,7 +1336,7 @@ genutzt werden. TBPMO_WD_NAMECONVENTION_FORMATTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorAddNewItem diff --git a/app/DD-Record-Organiser/frmDoctype_NameConvention.vb b/app/DD-Record-Organizer/frmDoctype_NameConvention.vb similarity index 100% rename from app/DD-Record-Organiser/frmDoctype_NameConvention.vb rename to app/DD-Record-Organizer/frmDoctype_NameConvention.vb diff --git a/app/DD-Record-Organiser/frmEntities.Designer.vb b/app/DD-Record-Organizer/frmEntities.Designer.vb similarity index 96% rename from app/DD-Record-Organiser/frmEntities.Designer.vb rename to app/DD-Record-Organizer/frmEntities.Designer.vb index f076c7a..1b1f1ff 100644 --- a/app/DD-Record-Organiser/frmEntities.Designer.vb +++ b/app/DD-Record-Organizer/frmEntities.Designer.vb @@ -35,7 +35,7 @@ Partial Class frmEntities Dim Label5 As System.Windows.Forms.Label Me.TBPMO_FORMBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.TBPMO_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.DESCRIPTIONTextBox = New System.Windows.Forms.TextBox() @@ -45,9 +45,9 @@ Partial Class frmEntities Me.PARENT_IDTextBox = New System.Windows.Forms.TextBox() Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.TBPMO_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() + Me.TBPMO_FORMTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Label4 = New System.Windows.Forms.Label() Me.SINGLE_RECORDCheckBox = New System.Windows.Forms.CheckBox() @@ -57,7 +57,7 @@ Partial Class frmEntities Me.TBPMO_FORM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.SHOW_FORM_CONSTRUCTCheckBox = New System.Windows.Forms.CheckBox() Me.TreeViewEntity = New System.Windows.Forms.TreeView() - Me.TBPMO_FORM_TYPETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter() + Me.TBPMO_FORM_TYPETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter() Me.btninsert = New System.Windows.Forms.Button() Me.btndelete = New System.Windows.Forms.Button() Me.btnsave = New System.Windows.Forms.Button() @@ -253,7 +253,7 @@ Partial Class frmEntities Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_FORM_VIEWTableAdapter ' @@ -418,10 +418,10 @@ Partial Class frmEntities Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_FORMBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FORMTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_FORMBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents PARENT_IDTextBox As System.Windows.Forms.TextBox @@ -429,7 +429,7 @@ Partial Class frmEntities Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter + Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter Friend WithEvents CHANGED_WHOTextBoxPMOForm As System.Windows.Forms.TextBox Friend WithEvents DESCRIPTIONTextBox As System.Windows.Forms.TextBox Friend WithEvents FORM_TITLETextBox As System.Windows.Forms.TextBox @@ -437,7 +437,7 @@ Partial Class frmEntities Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents SHOW_FORM_CONSTRUCTCheckBox As System.Windows.Forms.CheckBox Friend WithEvents TBPMO_FORM_TYPEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORM_TYPETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter + Friend WithEvents TBPMO_FORM_TYPETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter Friend WithEvents TreeViewEntity As System.Windows.Forms.TreeView Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox Friend WithEvents btninsert As System.Windows.Forms.Button diff --git a/app/DD-Record-Organiser/frmEntities.en-US.resx b/app/DD-Record-Organizer/frmEntities.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmEntities.en-US.resx rename to app/DD-Record-Organizer/frmEntities.en-US.resx diff --git a/app/DD-Record-Organiser/frmEntities.resx b/app/DD-Record-Organizer/frmEntities.resx similarity index 99% rename from app/DD-Record-Organiser/frmEntities.resx rename to app/DD-Record-Organizer/frmEntities.resx index 1f6fd14..d29701a 100644 --- a/app/DD-Record-Organiser/frmEntities.resx +++ b/app/DD-Record-Organizer/frmEntities.resx @@ -1741,7 +1741,7 @@ welche die links dargestellte TreeView-Struktur umsetzt. DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ToolStripButton1 @@ -1765,19 +1765,19 @@ welche die links dargestellte TreeView-Struktur umsetzt. TBPMO_FORMTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_FORM_VIEWTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_FORM_TYPEBindingSource @@ -1789,7 +1789,7 @@ welche die links dargestellte TreeView-Struktur umsetzt. TBPMO_FORM_TYPETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_TYPETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmEntities diff --git a/app/DD-Record-Organiser/frmEntities.vb b/app/DD-Record-Organizer/frmEntities.vb similarity index 100% rename from app/DD-Record-Organiser/frmEntities.vb rename to app/DD-Record-Organizer/frmEntities.vb diff --git a/app/DD-Record-Organiser/frmFileInWork.Designer.vb b/app/DD-Record-Organizer/frmFileInWork.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmFileInWork.Designer.vb rename to app/DD-Record-Organizer/frmFileInWork.Designer.vb index bdb2376..8080580 100644 --- a/app/DD-Record-Organiser/frmFileInWork.Designer.vb +++ b/app/DD-Record-Organizer/frmFileInWork.Designer.vb @@ -41,7 +41,7 @@ Partial Class frmFileInWork 'btnInWork ' resources.ApplyResources(Me.btnInWork, "btnInWork") - Me.btnInWork.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 + Me.btnInWork.Image = Global.DD_Record_Organizer.My.Resources.Resources.FileSystemEditor_5852 Me.btnInWork.Name = "btnInWork" Me.btnInWork.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmFileInWork.en-US.resx b/app/DD-Record-Organizer/frmFileInWork.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmFileInWork.en-US.resx rename to app/DD-Record-Organizer/frmFileInWork.en-US.resx diff --git a/app/DD-Record-Organiser/frmFileInWork.resx b/app/DD-Record-Organizer/frmFileInWork.resx similarity index 100% rename from app/DD-Record-Organiser/frmFileInWork.resx rename to app/DD-Record-Organizer/frmFileInWork.resx diff --git a/app/DD-Record-Organiser/frmFileInWork.vb b/app/DD-Record-Organizer/frmFileInWork.vb similarity index 100% rename from app/DD-Record-Organiser/frmFileInWork.vb rename to app/DD-Record-Organizer/frmFileInWork.vb diff --git a/app/DD-Record-Organiser/frmFollowUp.Designer.vb b/app/DD-Record-Organizer/frmFollowUp.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmFollowUp.Designer.vb rename to app/DD-Record-Organizer/frmFollowUp.Designer.vb index 7eb470a..e24616a 100644 --- a/app/DD-Record-Organiser/frmFollowUp.Designer.vb +++ b/app/DD-Record-Organizer/frmFollowUp.Designer.vb @@ -53,14 +53,14 @@ Partial Class frmFollowUp Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.cmbCTRLGroup_direct = New System.Windows.Forms.ComboBox() Me.TBPMO_FOLLOW_UP_EMAILBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.cmbCTRLUser_direct = New System.Windows.Forms.ComboBox() Me.cmbConstructor = New System.Windows.Forms.ComboBox() Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -133,9 +133,9 @@ Partial Class frmFollowUp Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() Me.GridResult = New DevExpress.XtraGrid.GridControl() Me.grvwResult = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.TBPMO_FOLLOW_UP_EMAILTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TBPMO_FOLLOW_UP_EMAILTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() GUIDLabel = New System.Windows.Forms.Label() FOLLOW_UP_SEQUENCELabel = New System.Windows.Forms.Label() FOLLOW_UP_TIME_SPANLabel = New System.Windows.Forms.Label() @@ -570,7 +570,7 @@ Partial Class frmFollowUp ' Me.btnAddUser_WV.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) resources.ApplyResources(Me.btnAddUser_WV, "btnAddUser_WV") - Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left + Me.btnAddUser_WV.Image = Global.DD_Record_Organizer.My.Resources.Resources.arrow_left Me.btnAddUser_WV.Name = "btnAddUser_WV" Me.btnAddUser_WV.TabStop = False Me.btnAddUser_WV.UseVisualStyleBackColor = False @@ -578,7 +578,7 @@ Partial Class frmFollowUp 'btndelete ' resources.ApplyResources(Me.btndelete, "btndelete") - Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.btndelete.Name = "btndelete" Me.btndelete.TabStop = False Me.btndelete.UseVisualStyleBackColor = True @@ -931,7 +931,7 @@ Partial Class frmFollowUp ' 'btnEmailConfig ' - Me.btnEmailConfig.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_edit + Me.btnEmailConfig.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_edit resources.ApplyResources(Me.btnEmailConfig, "btnEmailConfig") Me.btnEmailConfig.Name = "btnEmailConfig" Me.btnEmailConfig.UseVisualStyleBackColor = True @@ -1020,7 +1020,7 @@ Partial Class frmFollowUp Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_FORM_CONSTRUCTORTableAdapter ' @@ -1064,10 +1064,10 @@ Partial Class frmFollowUp Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_FOLLOW_UP_EMAILBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FOLLOW_UP_EMAILTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_FOLLOW_UP_EMAILTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_FOLLOW_UP_EMAILBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -1128,7 +1128,7 @@ Partial Class frmFollowUp Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents cmbConstructor As System.Windows.Forms.ComboBox Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter Friend WithEvents cmbCTRLGroup_direct As System.Windows.Forms.ComboBox Friend WithEvents cmbCTRLUser_direct As System.Windows.Forms.ComboBox Friend WithEvents GridResult As DevExpress.XtraGrid.GridControl @@ -1141,7 +1141,7 @@ Partial Class frmFollowUp Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents TBWH_Users1BindingSource As System.Windows.Forms.BindingSource - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmFollowUp.en-US.resx b/app/DD-Record-Organizer/frmFollowUp.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmFollowUp.en-US.resx rename to app/DD-Record-Organizer/frmFollowUp.en-US.resx diff --git a/app/DD-Record-Organiser/frmFollowUp.resx b/app/DD-Record-Organizer/frmFollowUp.resx similarity index 99% rename from app/DD-Record-Organiser/frmFollowUp.resx rename to app/DD-Record-Organizer/frmFollowUp.resx index 50b828a..4ccf14a 100644 --- a/app/DD-Record-Organiser/frmFollowUp.resx +++ b/app/DD-Record-Organizer/frmFollowUp.resx @@ -3011,7 +3011,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_FORM_CONSTRUCTORBindingSource @@ -3029,7 +3029,7 @@ DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridView1 @@ -3179,19 +3179,19 @@ TBPMO_FOLLOW_UP_EMAILTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_FORM_CONSTRUCTORTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmFollowUp diff --git a/app/DD-Record-Organiser/frmFollowUp.vb b/app/DD-Record-Organizer/frmFollowUp.vb similarity index 100% rename from app/DD-Record-Organiser/frmFollowUp.vb rename to app/DD-Record-Organizer/frmFollowUp.vb diff --git a/app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb b/app/DD-Record-Organizer/frmGeodataNavigation.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb rename to app/DD-Record-Organizer/frmGeodataNavigation.Designer.vb index 507db73..714b1d9 100644 --- a/app/DD-Record-Organiser/frmGeodataNavigation.Designer.vb +++ b/app/DD-Record-Organizer/frmGeodataNavigation.Designer.vb @@ -69,7 +69,7 @@ Partial Class frmGeodataNavigation ' 'btnReload ' - Me.btnReload.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnReload.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.btnReload.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnReload.Name = "btnReload" Me.btnReload.Size = New System.Drawing.Size(81, 22) @@ -182,7 +182,7 @@ Partial Class frmGeodataNavigation ' 'btnDelete ' - Me.btnDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btnDelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.btnDelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnDelete.Location = New System.Drawing.Point(379, 96) Me.btnDelete.Name = "btnDelete" @@ -193,7 +193,7 @@ Partial Class frmGeodataNavigation ' 'btnSave ' - Me.btnSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.btnSave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSave.Location = New System.Drawing.Point(277, 96) Me.btnSave.Name = "btnSave" diff --git a/app/DD-Record-Organiser/frmGeodataNavigation.resx b/app/DD-Record-Organizer/frmGeodataNavigation.resx similarity index 100% rename from app/DD-Record-Organiser/frmGeodataNavigation.resx rename to app/DD-Record-Organizer/frmGeodataNavigation.resx diff --git a/app/DD-Record-Organiser/frmGeodataNavigation.vb b/app/DD-Record-Organizer/frmGeodataNavigation.vb similarity index 100% rename from app/DD-Record-Organiser/frmGeodataNavigation.vb rename to app/DD-Record-Organizer/frmGeodataNavigation.vb diff --git a/app/DD-Record-Organiser/frmGeodataSelect.Designer.vb b/app/DD-Record-Organizer/frmGeodataSelect.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmGeodataSelect.Designer.vb rename to app/DD-Record-Organizer/frmGeodataSelect.Designer.vb index eb0472e..4068c80 100644 --- a/app/DD-Record-Organiser/frmGeodataSelect.Designer.vb +++ b/app/DD-Record-Organizer/frmGeodataSelect.Designer.vb @@ -49,7 +49,7 @@ Partial Class frmGeodataSelect ' 'btnSave ' - Me.btnSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG1 + Me.btnSave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG1 Me.btnSave.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnSave.Name = "btnSave" Me.btnSave.Size = New System.Drawing.Size(79, 22) @@ -93,7 +93,7 @@ Partial Class frmGeodataSelect ' 'tsbtnactivate ' - Me.tsbtnactivate.Image = Global.DD_Record_Organiser.My.Resources.Resources.base_globe_32 + Me.tsbtnactivate.Image = Global.DD_Record_Organizer.My.Resources.Resources.base_globe_32 Me.tsbtnactivate.ImageTransparentColor = System.Drawing.Color.Magenta Me.tsbtnactivate.Name = "tsbtnactivate" Me.tsbtnactivate.Size = New System.Drawing.Size(148, 22) diff --git a/app/DD-Record-Organiser/frmGeodataSelect.resx b/app/DD-Record-Organizer/frmGeodataSelect.resx similarity index 100% rename from app/DD-Record-Organiser/frmGeodataSelect.resx rename to app/DD-Record-Organizer/frmGeodataSelect.resx diff --git a/app/DD-Record-Organiser/frmGeodataSelect.vb b/app/DD-Record-Organizer/frmGeodataSelect.vb similarity index 100% rename from app/DD-Record-Organiser/frmGeodataSelect.vb rename to app/DD-Record-Organizer/frmGeodataSelect.vb diff --git a/app/DD-Record-Organiser/frmGlobalSearch.Designer.vb b/app/DD-Record-Organizer/frmGlobalSearch.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmGlobalSearch.Designer.vb rename to app/DD-Record-Organizer/frmGlobalSearch.Designer.vb index fb89e9c..7e73d69 100644 --- a/app/DD-Record-Organiser/frmGlobalSearch.Designer.vb +++ b/app/DD-Record-Organizer/frmGlobalSearch.Designer.vb @@ -107,13 +107,13 @@ Partial Class frmGlobalSearch 'ExportExcelToolStripMenuItem ' resources.ApplyResources(Me.ExportExcelToolStripMenuItem, "ExportExcelToolStripMenuItem") - Me.ExportExcelToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel + Me.ExportExcelToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel Me.ExportExcelToolStripMenuItem.Name = "ExportExcelToolStripMenuItem" ' 'ShowRecordToolStripMenuItem ' resources.ApplyResources(Me.ShowRecordToolStripMenuItem, "ShowRecordToolStripMenuItem") - Me.ShowRecordToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_view_detail + Me.ShowRecordToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_view_detail Me.ShowRecordToolStripMenuItem.Name = "ShowRecordToolStripMenuItem" ' 'GridViewRecords @@ -158,13 +158,13 @@ Partial Class frmGlobalSearch 'ToolStripButton1 ' resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel Me.ToolStripButton1.Name = "ToolStripButton1" ' 'tsbtnviewDetail ' resources.ApplyResources(Me.tsbtnviewDetail, "tsbtnviewDetail") - Me.tsbtnviewDetail.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_view_detail + Me.tsbtnviewDetail.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_view_detail Me.tsbtnviewDetail.Name = "tsbtnviewDetail" ' 'GridControlFiles @@ -225,7 +225,7 @@ Partial Class frmGlobalSearch ' resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripButton2.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel + Me.ToolStripButton2.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel Me.ToolStripButton2.Name = "ToolStripButton2" ' 'ToolStripMain @@ -237,7 +237,7 @@ Partial Class frmGlobalSearch 'tsbtnRefresh ' resources.ApplyResources(Me.tsbtnRefresh, "tsbtnRefresh") - Me.tsbtnRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnRefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.tsbtnRefresh.Name = "tsbtnRefresh" ' 'Label1 diff --git a/app/DD-Record-Organiser/frmGlobalSearch.en-US.resx b/app/DD-Record-Organizer/frmGlobalSearch.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmGlobalSearch.en-US.resx rename to app/DD-Record-Organizer/frmGlobalSearch.en-US.resx diff --git a/app/DD-Record-Organiser/frmGlobalSearch.resx b/app/DD-Record-Organizer/frmGlobalSearch.resx similarity index 100% rename from app/DD-Record-Organiser/frmGlobalSearch.resx rename to app/DD-Record-Organizer/frmGlobalSearch.resx diff --git a/app/DD-Record-Organiser/frmGlobalSearch.vb b/app/DD-Record-Organizer/frmGlobalSearch.vb similarity index 100% rename from app/DD-Record-Organiser/frmGlobalSearch.vb rename to app/DD-Record-Organizer/frmGlobalSearch.vb diff --git a/app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb b/app/DD-Record-Organizer/frmLanguage_Translator.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb rename to app/DD-Record-Organizer/frmLanguage_Translator.Designer.vb index f788d20..8edb3f9 100644 --- a/app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb +++ b/app/DD-Record-Organizer/frmLanguage_Translator.Designer.vb @@ -45,7 +45,7 @@ Partial Class frmLanguage_Translator Me.tsbtnExcel = New System.Windows.Forms.ToolStripButton() Me.GridControlObjects = New DevExpress.XtraGrid.GridControl() Me.TBPMO_LANGUAGE_OBJECTBindingSource1 = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.grvwGridObjects = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colLANGUAGE_TYPE = New DevExpress.XtraGrid.Columns.GridColumn() @@ -58,8 +58,8 @@ Partial Class frmLanguage_Translator Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.TBPMO_LANGUAGE_OBJECTBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_LANGUAGE_OBJECTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_LANGUAGE_OBJECTTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_LANGUAGE_OBJECTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_LANGUAGE_OBJECTTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.ts_statelbl = New System.Windows.Forms.ToolStripStatusLabel() Me.Panel1 = New System.Windows.Forms.Panel() @@ -88,7 +88,7 @@ Partial Class frmLanguage_Translator ' 'btnclearFilter ' - Me.btnclearFilter.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btnclearFilter.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btnclearFilter, "btnclearFilter") Me.btnclearFilter.Name = "btnclearFilter" Me.btnclearFilter.UseVisualStyleBackColor = True @@ -183,7 +183,7 @@ Partial Class frmLanguage_Translator ' 'tsbtnRefresh_Grid ' - Me.tsbtnRefresh_Grid.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnRefresh_Grid.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.tsbtnRefresh_Grid, "tsbtnRefresh_Grid") Me.tsbtnRefresh_Grid.Name = "tsbtnRefresh_Grid" ' @@ -195,7 +195,7 @@ Partial Class frmLanguage_Translator 'tsbtnExcel ' Me.tsbtnExcel.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsbtnExcel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Excel_25ixel + Me.tsbtnExcel.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel resources.ApplyResources(Me.tsbtnExcel, "tsbtnExcel") Me.tsbtnExcel.Name = "tsbtnExcel" ' @@ -338,7 +338,7 @@ Partial Class frmLanguage_Translator Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'StatusStrip1 ' @@ -403,10 +403,10 @@ Partial Class frmLanguage_Translator Friend WithEvents grvwGridObjects As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents TBPMO_LANGUAGE_OBJECTBindingSource As System.Windows.Forms.BindingSource Friend WithEvents tsbtnRefresh_Grid As System.Windows.Forms.ToolStripButton - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_LANGUAGE_OBJECTBindingSource1 As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_LANGUAGE_OBJECTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_LANGUAGE_OBJECTTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_LANGUAGE_OBJECTTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_LANGUAGE_OBJECTTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colLANGUAGE_TYPE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colSCREEN_ID As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmLanguage_Translator.resx b/app/DD-Record-Organizer/frmLanguage_Translator.resx similarity index 99% rename from app/DD-Record-Organiser/frmLanguage_Translator.resx rename to app/DD-Record-Organizer/frmLanguage_Translator.resx index bd3e1f3..b3d0d18 100644 --- a/app/DD-Record-Organiser/frmLanguage_Translator.resx +++ b/app/DD-Record-Organizer/frmLanguage_Translator.resx @@ -1204,7 +1204,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null grvwGridObjects @@ -1282,13 +1282,13 @@ TBPMO_LANGUAGE_OBJECTTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_LANGUAGE_OBJECTTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_LANGUAGE_OBJECTTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ts_statelbl diff --git a/app/DD-Record-Organiser/frmLanguage_Translator.vb b/app/DD-Record-Organizer/frmLanguage_Translator.vb similarity index 100% rename from app/DD-Record-Organiser/frmLanguage_Translator.vb rename to app/DD-Record-Organizer/frmLanguage_Translator.vb diff --git a/app/DD-Record-Organiser/frmLevel_Designer.Designer.vb b/app/DD-Record-Organizer/frmLevel_Designer.Designer.vb similarity index 92% rename from app/DD-Record-Organiser/frmLevel_Designer.Designer.vb rename to app/DD-Record-Organizer/frmLevel_Designer.Designer.vb index eabb437..218f662 100644 --- a/app/DD-Record-Organiser/frmLevel_Designer.Designer.vb +++ b/app/DD-Record-Organizer/frmLevel_Designer.Designer.vb @@ -57,7 +57,7 @@ Partial Class frmLevel_Designer Me.btnlabel = New System.Windows.Forms.Button() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components) - Me.pnlDesigner = New SnapPanelControl.SnapPanel() + Me.pnlDesigner = New ClassSnapPanel() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -103,7 +103,7 @@ Partial Class frmLevel_Designer 'ToolStripButton1 ' Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_go resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") Me.ToolStripButton1.Name = "ToolStripButton1" ' @@ -115,7 +115,7 @@ Partial Class frmLevel_Designer ' 'tsstatus ' - Me.tsstatus.Image = Global.DD_Record_Organiser.My.Resources.Resources.lightbulb + Me.tsstatus.Image = Global.DD_Record_Organizer.My.Resources.Resources.lightbulb Me.tsstatus.Name = "tsstatus" resources.ApplyResources(Me.tsstatus, "tsstatus") ' @@ -149,7 +149,7 @@ Partial Class frmLevel_Designer ' 'lblStatus ' - Me.lblStatus.Image = Global.DD_Record_Organiser.My.Resources.Resources.flag_green + Me.lblStatus.Image = Global.DD_Record_Organizer.My.Resources.Resources.flag_green Me.lblStatus.Name = "lblStatus" resources.ApplyResources(Me.lblStatus, "lblStatus") ' @@ -162,13 +162,13 @@ Partial Class frmLevel_Designer ' 'btnSaveControl ' - Me.btnSaveControl.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.btnSaveControl.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG resources.ApplyResources(Me.btnSaveControl, "btnSaveControl") Me.btnSaveControl.Name = "btnSaveControl" ' 'btnDeleteControl ' - Me.btnDeleteControl.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG + Me.btnDeleteControl.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_Cancel_16xLG resources.ApplyResources(Me.btnDeleteControl, "btnDeleteControl") Me.btnDeleteControl.Name = "btnDeleteControl" ' @@ -191,7 +191,7 @@ Partial Class frmLevel_Designer 'btn_addformdata ' resources.ApplyResources(Me.btn_addformdata, "btn_addformdata") - Me.btn_addformdata.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580 + Me.btn_addformdata.Image = Global.DD_Record_Organizer.My.Resources.Resources.AddMark_10580 Me.btn_addformdata.Name = "btn_addformdata" Me.btn_addformdata.TabStop = False Me.btn_addformdata.Tag = "f_addformdata" @@ -200,7 +200,7 @@ Partial Class frmLevel_Designer 'btn_addtocal ' resources.ApplyResources(Me.btn_addtocal, "btn_addtocal") - Me.btn_addtocal.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632 + Me.btn_addtocal.Image = Global.DD_Record_Organizer.My.Resources.Resources.AddTable_5632 Me.btn_addtocal.Name = "btn_addtocal" Me.btn_addtocal.TabStop = False Me.btn_addtocal.Tag = "f_addappointment" @@ -227,7 +227,7 @@ Partial Class frmLevel_Designer 'btnTableCheckable ' resources.ApplyResources(Me.btnTableCheckable, "btnTableCheckable") - Me.btnTableCheckable.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24 + Me.btnTableCheckable.Image = Global.DD_Record_Organizer.My.Resources.Resources.ListBox_686_24 Me.btnTableCheckable.Name = "btnTableCheckable" Me.btnTableCheckable.Tag = "dgvcheck" Me.btnTableCheckable.UseVisualStyleBackColor = True @@ -235,7 +235,7 @@ Partial Class frmLevel_Designer 'btnListBox ' resources.ApplyResources(Me.btnListBox, "btnListBox") - Me.btnListBox.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24 + Me.btnListBox.Image = Global.DD_Record_Organizer.My.Resources.Resources.ListBox_686_24 Me.btnListBox.Name = "btnListBox" Me.btnListBox.Tag = "lstbx" Me.btnListBox.UseVisualStyleBackColor = True @@ -243,7 +243,7 @@ Partial Class frmLevel_Designer 'btnListBoxCheckable ' resources.ApplyResources(Me.btnListBoxCheckable, "btnListBoxCheckable") - Me.btnListBoxCheckable.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24 + Me.btnListBoxCheckable.Image = Global.DD_Record_Organizer.My.Resources.Resources.ListBox_686_24 Me.btnListBoxCheckable.Name = "btnListBoxCheckable" Me.btnListBoxCheckable.Tag = "lstbxcheck" Me.btnListBoxCheckable.UseVisualStyleBackColor = True @@ -251,7 +251,7 @@ Partial Class frmLevel_Designer 'btnRadioButton ' resources.ApplyResources(Me.btnRadioButton, "btnRadioButton") - Me.btnRadioButton.Image = Global.DD_Record_Organiser.My.Resources.Resources.RadioButton_701 + Me.btnRadioButton.Image = Global.DD_Record_Organizer.My.Resources.Resources.RadioButton_701 Me.btnRadioButton.Name = "btnRadioButton" Me.btnRadioButton.TabStop = False Me.btnRadioButton.Tag = "rb" @@ -260,7 +260,7 @@ Partial Class frmLevel_Designer 'btngb ' resources.ApplyResources(Me.btngb, "btngb") - Me.btngb.Image = Global.DD_Record_Organiser.My.Resources.Resources.GroupBox_680 + Me.btngb.Image = Global.DD_Record_Organizer.My.Resources.Resources.GroupBox_680 Me.btngb.Name = "btngb" Me.btngb.TabStop = False Me.btngb.Tag = "gb" @@ -269,7 +269,7 @@ Partial Class frmLevel_Designer 'btnpb ' resources.ApplyResources(Me.btnpb, "btnpb") - Me.btnpb.Image = Global.DD_Record_Organiser.My.Resources.Resources.ImageListControl_683 + Me.btnpb.Image = Global.DD_Record_Organizer.My.Resources.Resources.ImageListControl_683 Me.btnpb.Name = "btnpb" Me.btnpb.TabStop = False Me.btnpb.Tag = "pb" @@ -278,7 +278,7 @@ Partial Class frmLevel_Designer 'btnTabelle ' resources.ApplyResources(Me.btnTabelle, "btnTabelle") - Me.btnTabelle.Image = Global.DD_Record_Organiser.My.Resources.Resources.Table_748 + Me.btnTabelle.Image = Global.DD_Record_Organizer.My.Resources.Resources.Table_748 Me.btnTabelle.Name = "btnTabelle" Me.btnTabelle.TabStop = False Me.btnTabelle.Tag = "dgv" @@ -287,7 +287,7 @@ Partial Class frmLevel_Designer 'btnCheckbox ' resources.ApplyResources(Me.btnCheckbox, "btnCheckbox") - Me.btnCheckbox.Image = Global.DD_Record_Organiser.My.Resources.Resources.CheckBox_669 + Me.btnCheckbox.Image = Global.DD_Record_Organizer.My.Resources.Resources.CheckBox_669 Me.btnCheckbox.Name = "btnCheckbox" Me.btnCheckbox.TabStop = False Me.btnCheckbox.Tag = "chk" @@ -296,7 +296,7 @@ Partial Class frmLevel_Designer 'btndtp ' resources.ApplyResources(Me.btndtp, "btndtp") - Me.btndtp.Image = Global.DD_Record_Organiser.My.Resources.Resources.DateOrTimePicker_675 + Me.btndtp.Image = Global.DD_Record_Organizer.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.Name = "btndtp" Me.btndtp.TabStop = False Me.btndtp.Tag = "dtp" @@ -305,7 +305,7 @@ Partial Class frmLevel_Designer 'btncmb ' resources.ApplyResources(Me.btncmb, "btncmb") - Me.btncmb.Image = Global.DD_Record_Organiser.My.Resources.Resources.ComboBox_672 + Me.btncmb.Image = Global.DD_Record_Organizer.My.Resources.Resources.ComboBox_672 Me.btncmb.Name = "btncmb" Me.btncmb.TabStop = False Me.btncmb.Tag = "cmb" @@ -314,7 +314,7 @@ Partial Class frmLevel_Designer 'btntextbox ' resources.ApplyResources(Me.btntextbox, "btntextbox") - Me.btntextbox.Image = Global.DD_Record_Organiser.My.Resources.Resources.TextBox_708 + Me.btntextbox.Image = Global.DD_Record_Organizer.My.Resources.Resources.TextBox_708 Me.btntextbox.Name = "btntextbox" Me.btntextbox.TabStop = False Me.btntextbox.Tag = "txt" @@ -323,7 +323,7 @@ Partial Class frmLevel_Designer 'btnlabel ' resources.ApplyResources(Me.btnlabel, "btnlabel") - Me.btnlabel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Label_684 + Me.btnlabel.Image = Global.DD_Record_Organizer.My.Resources.Resources.Label_684 Me.btnlabel.Name = "btnlabel" Me.btnlabel.TabStop = False Me.btnlabel.Tag = "lbl" @@ -404,6 +404,6 @@ Partial Class frmLevel_Designer Friend WithEvents btn_addformdata As System.Windows.Forms.Button Friend WithEvents btn_addtocal As System.Windows.Forms.Button Friend WithEvents pgControlProperties As System.Windows.Forms.PropertyGrid - Friend WithEvents pnlDesigner As SnapPanelControl.SnapPanel + Friend WithEvents pnlDesigner As ClassSnapPanel Friend WithEvents btnTableCheckable As System.Windows.Forms.Button End Class diff --git a/app/DD-Record-Organiser/frmLevel_Designer.en-US.resx b/app/DD-Record-Organizer/frmLevel_Designer.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmLevel_Designer.en-US.resx rename to app/DD-Record-Organizer/frmLevel_Designer.en-US.resx diff --git a/app/DD-Record-Organiser/frmLevel_Designer.resx b/app/DD-Record-Organizer/frmLevel_Designer.resx similarity index 100% rename from app/DD-Record-Organiser/frmLevel_Designer.resx rename to app/DD-Record-Organizer/frmLevel_Designer.resx diff --git a/app/DD-Record-Organiser/frmLevel_Designer.vb b/app/DD-Record-Organizer/frmLevel_Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmLevel_Designer.vb rename to app/DD-Record-Organizer/frmLevel_Designer.vb diff --git a/app/DD-Record-Organiser/frmLicense.designer.vb b/app/DD-Record-Organizer/frmLicense.designer.vb similarity index 99% rename from app/DD-Record-Organiser/frmLicense.designer.vb rename to app/DD-Record-Organizer/frmLicense.designer.vb index ba3e453..a50265d 100644 --- a/app/DD-Record-Organiser/frmLicense.designer.vb +++ b/app/DD-Record-Organizer/frmLicense.designer.vb @@ -122,7 +122,7 @@ Partial Class frmLicense ' 'btnnewLicenses ' - Me.btnnewLicenses.Image = Global.DD_Record_Organiser.My.Resources.Resources.key_go1 + Me.btnnewLicenses.Image = Global.DD_Record_Organizer.My.Resources.Resources.key_go1 resources.ApplyResources(Me.btnnewLicenses, "btnnewLicenses") Me.btnnewLicenses.Name = "btnnewLicenses" Me.btnnewLicenses.UseVisualStyleBackColor = True diff --git a/app/DD-Record-Organiser/frmLicense.en-US.resx b/app/DD-Record-Organizer/frmLicense.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmLicense.en-US.resx rename to app/DD-Record-Organizer/frmLicense.en-US.resx diff --git a/app/DD-Record-Organiser/frmLicense.resx b/app/DD-Record-Organizer/frmLicense.resx similarity index 100% rename from app/DD-Record-Organiser/frmLicense.resx rename to app/DD-Record-Organizer/frmLicense.resx diff --git a/app/DD-Record-Organiser/frmLicense.vb b/app/DD-Record-Organizer/frmLicense.vb similarity index 100% rename from app/DD-Record-Organiser/frmLicense.vb rename to app/DD-Record-Organizer/frmLicense.vb diff --git a/app/DD-Record-Organiser/frmLicense_Login.Designer.vb b/app/DD-Record-Organizer/frmLicense_Login.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmLicense_Login.Designer.vb rename to app/DD-Record-Organizer/frmLicense_Login.Designer.vb diff --git a/app/DD-Record-Organiser/frmLicense_Login.resx b/app/DD-Record-Organizer/frmLicense_Login.resx similarity index 100% rename from app/DD-Record-Organiser/frmLicense_Login.resx rename to app/DD-Record-Organizer/frmLicense_Login.resx diff --git a/app/DD-Record-Organiser/frmLicense_Login.vb b/app/DD-Record-Organizer/frmLicense_Login.vb similarity index 100% rename from app/DD-Record-Organiser/frmLicense_Login.vb rename to app/DD-Record-Organizer/frmLicense_Login.vb diff --git a/app/DD-Record-Organiser/frmLicense_User.Designer.vb b/app/DD-Record-Organizer/frmLicense_User.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmLicense_User.Designer.vb rename to app/DD-Record-Organizer/frmLicense_User.Designer.vb diff --git a/app/DD-Record-Organiser/frmLicense_User.en-US.resx b/app/DD-Record-Organizer/frmLicense_User.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmLicense_User.en-US.resx rename to app/DD-Record-Organizer/frmLicense_User.en-US.resx diff --git a/app/DD-Record-Organiser/frmLicense_User.resx b/app/DD-Record-Organizer/frmLicense_User.resx similarity index 100% rename from app/DD-Record-Organiser/frmLicense_User.resx rename to app/DD-Record-Organizer/frmLicense_User.resx diff --git a/app/DD-Record-Organiser/frmLicense_User.vb b/app/DD-Record-Organizer/frmLicense_User.vb similarity index 100% rename from app/DD-Record-Organiser/frmLicense_User.vb rename to app/DD-Record-Organizer/frmLicense_User.vb diff --git a/app/DD-Record-Organiser/frmLogRecord.Designer.vb b/app/DD-Record-Organizer/frmLogRecord.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmLogRecord.Designer.vb rename to app/DD-Record-Organizer/frmLogRecord.Designer.vb index 17837de..37b3684 100644 --- a/app/DD-Record-Organiser/frmLogRecord.Designer.vb +++ b/app/DD-Record-Organizer/frmLogRecord.Designer.vb @@ -35,7 +35,7 @@ Partial Class frmLogRecord Me.Label1 = New System.Windows.Forms.Label() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.TBPMO_RECORD_LOG_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.FORM_IDComboBox = New System.Windows.Forms.ComboBox() Me.lblSaveWVEmail = New System.Windows.Forms.Label() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() @@ -59,8 +59,8 @@ Partial Class frmLogRecord Me.TBPMO_RECORD_LOG_CONFIGBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.TBPMO_RECORD_LOG_CONFIGTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_RECORD_LOG_CONFIGTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() GUIDLabel = New System.Windows.Forms.Label() CONTROL_IDLabel = New System.Windows.Forms.Label() ADDED_WHENLabel = New System.Windows.Forms.Label() @@ -344,7 +344,7 @@ Partial Class frmLogRecord Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmLogRecord ' @@ -367,10 +367,10 @@ Partial Class frmLogRecord Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_RECORD_LOG_CONFIGBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_RECORD_LOG_CONFIGTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_RECORD_LOG_CONFIGTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_RECORD_LOG_CONFIGBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel diff --git a/app/DD-Record-Organiser/frmLogRecord.en-US.resx b/app/DD-Record-Organizer/frmLogRecord.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmLogRecord.en-US.resx rename to app/DD-Record-Organizer/frmLogRecord.en-US.resx diff --git a/app/DD-Record-Organiser/frmLogRecord.resx b/app/DD-Record-Organizer/frmLogRecord.resx similarity index 99% rename from app/DD-Record-Organiser/frmLogRecord.resx rename to app/DD-Record-Organizer/frmLogRecord.resx index 1824f19..463cca1 100644 --- a/app/DD-Record-Organiser/frmLogRecord.resx +++ b/app/DD-Record-Organizer/frmLogRecord.resx @@ -165,7 +165,7 @@ XtraTabControl1 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -402,7 +402,7 @@ XtraTabPage1 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_LOG_CONFIGTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -841,7 +841,7 @@ D.h. der alte und der Neue Wert werden gespeichert und können nachverfolgt werd LOG_UPDATECheckBox - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null Vorherige verschieben diff --git a/app/DD-Record-Organiser/frmLogRecord.vb b/app/DD-Record-Organizer/frmLogRecord.vb similarity index 100% rename from app/DD-Record-Organiser/frmLogRecord.vb rename to app/DD-Record-Organizer/frmLogRecord.vb diff --git a/app/DD-Record-Organiser/frmLogin.Designer.vb b/app/DD-Record-Organizer/frmLogin.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmLogin.Designer.vb rename to app/DD-Record-Organizer/frmLogin.Designer.vb diff --git a/app/DD-Record-Organiser/frmLogin.en-US.resx b/app/DD-Record-Organizer/frmLogin.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmLogin.en-US.resx rename to app/DD-Record-Organizer/frmLogin.en-US.resx diff --git a/app/DD-Record-Organiser/frmLogin.resx b/app/DD-Record-Organizer/frmLogin.resx similarity index 100% rename from app/DD-Record-Organiser/frmLogin.resx rename to app/DD-Record-Organizer/frmLogin.resx diff --git a/app/DD-Record-Organiser/frmLogin.vb b/app/DD-Record-Organizer/frmLogin.vb similarity index 100% rename from app/DD-Record-Organiser/frmLogin.vb rename to app/DD-Record-Organizer/frmLogin.vb diff --git a/app/DD-Record-Organiser/frmLoginUserSelect.Designer.vb b/app/DD-Record-Organizer/frmLoginUserSelect.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmLoginUserSelect.Designer.vb rename to app/DD-Record-Organizer/frmLoginUserSelect.Designer.vb index 5415550..dca5747 100644 --- a/app/DD-Record-Organiser/frmLoginUserSelect.Designer.vb +++ b/app/DD-Record-Organizer/frmLoginUserSelect.Designer.vb @@ -24,7 +24,7 @@ Partial Class frmLoginUserSelect Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLoginUserSelect)) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() @@ -141,7 +141,7 @@ Partial Class frmLoginUserSelect ' 'btnLogin ' - Me.btnLogin.Image = Global.DD_Record_Organiser.My.Resources.Resources.user_16xLG + Me.btnLogin.Image = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG Me.btnLogin.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnLogin.Location = New System.Drawing.Point(15, 307) Me.btnLogin.Name = "btnLogin" @@ -190,7 +190,7 @@ Partial Class frmLoginUserSelect Me.PerformLayout() End Sub - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource Friend WithEvents GridControlUsers2Menue As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewlUsers2Menue As DevExpress.XtraGrid.Views.Grid.GridView diff --git a/app/DD-Record-Organiser/frmLoginUserSelect.resx b/app/DD-Record-Organizer/frmLoginUserSelect.resx similarity index 100% rename from app/DD-Record-Organiser/frmLoginUserSelect.resx rename to app/DD-Record-Organizer/frmLoginUserSelect.resx diff --git a/app/DD-Record-Organiser/frmLoginUserSelect.vb b/app/DD-Record-Organizer/frmLoginUserSelect.vb similarity index 100% rename from app/DD-Record-Organiser/frmLoginUserSelect.vb rename to app/DD-Record-Organizer/frmLoginUserSelect.vb diff --git a/app/DD-Record-Organiser/frmMain.Designer.vb b/app/DD-Record-Organizer/frmMain.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmMain.Designer.vb rename to app/DD-Record-Organizer/frmMain.Designer.vb index 2cd99f5..0c5f1f6 100644 --- a/app/DD-Record-Organiser/frmMain.Designer.vb +++ b/app/DD-Record-Organizer/frmMain.Designer.vb @@ -29,10 +29,10 @@ Partial Class frmMain Me.ADDIBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.CockpitAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TimerTasks = New System.Windows.Forms.Timer(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) Me.itemSettings = New DevExpress.XtraBars.BarButtonItem() @@ -119,13 +119,13 @@ Partial Class frmMain 'ADDIBeendenToolStripMenuItem ' resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem") - Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 + Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1 Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem" ' 'CockpitAnzeigenToolStripMenuItem ' resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem") - Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.WebUserControl_ascx__11270_16x + Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.WebUserControl_ascx__11270_16x Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem" ' 'TimerTasks @@ -186,7 +186,7 @@ Partial Class frmMain Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'ribbonMain ' @@ -263,7 +263,7 @@ Partial Class frmMain 'LabelMachine ' resources.ApplyResources(Me.LabelMachine, "LabelMachine") - Me.LabelMachine.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Monitor_Screen_16xLG + Me.LabelMachine.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Monitor_Screen_16xLG Me.LabelMachine.Id = 3 Me.LabelMachine.Name = "LabelMachine" Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near @@ -271,7 +271,7 @@ Partial Class frmMain 'LabelLoggedIn ' resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn") - Me.LabelLoggedIn.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.UserInterfaceEditor_5845 + Me.LabelLoggedIn.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.UserInterfaceEditor_5845 Me.LabelLoggedIn.Id = 5 Me.LabelLoggedIn.Name = "LabelLoggedIn" Me.LabelLoggedIn.TextAlignment = System.Drawing.StringAlignment.Near @@ -286,7 +286,7 @@ Partial Class frmMain 'BarButtonItem1 ' resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") - Me.BarButtonItem1.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.calendar_32x32 + Me.BarButtonItem1.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.calendar_32x32 Me.BarButtonItem1.Id = 11 Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large @@ -334,7 +334,7 @@ Partial Class frmMain 'BarButtonItem2 ' resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") - Me.BarButtonItem2.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Einstellungen5 + Me.BarButtonItem2.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Einstellungen5 Me.BarButtonItem2.Id = 22 Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItem2.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) @@ -342,7 +342,7 @@ Partial Class frmMain 'BarButtonItem10 ' resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10") - Me.BarButtonItem10.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Einstellungen3 + Me.BarButtonItem10.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Einstellungen3 Me.BarButtonItem10.Id = 23 Me.BarButtonItem10.Name = "BarButtonItem10" Me.BarButtonItem10.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) @@ -421,7 +421,7 @@ Partial Class frmMain ' resources.ApplyResources(Me.BarButtonItemSAPConnect, "BarButtonItemSAPConnect") Me.BarButtonItemSAPConnect.Enabled = False - Me.BarButtonItemSAPConnect.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.Connection_Manager + Me.BarButtonItemSAPConnect.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.Connection_Manager Me.BarButtonItemSAPConnect.Id = 36 Me.BarButtonItemSAPConnect.Name = "BarButtonItemSAPConnect" Me.BarButtonItemSAPConnect.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large @@ -501,7 +501,7 @@ Partial Class frmMain 'LabelUser ' resources.ApplyResources(Me.LabelUser, "LabelUser") - Me.LabelUser.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.user_16xLG + Me.LabelUser.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG Me.LabelUser.Id = 4 Me.LabelUser.Name = "LabelUser" ' @@ -554,7 +554,7 @@ Partial Class frmMain 'StatusPersonifiedLogin ' resources.ApplyResources(Me.StatusPersonifiedLogin, "StatusPersonifiedLogin") - Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.user_16xLG + Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG Me.StatusPersonifiedLogin.Id = 5 Me.StatusPersonifiedLogin.ItemAppearance.Normal.Font = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.Font"), System.Drawing.Font) Me.StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta"), Integer) @@ -573,7 +573,7 @@ Partial Class frmMain 'pageHome ' Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm, Me.groupSearchAllOver}) - Me.pageHome.Image = Global.DD_Record_Organiser.My.Resources.Resources.HomeHS + Me.pageHome.Image = Global.DD_Record_Organizer.My.Resources.Resources.HomeHS Me.pageHome.Name = "pageHome" resources.ApplyResources(Me.pageHome, "pageHome") ' @@ -608,7 +608,7 @@ Partial Class frmMain Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image) Me.pageForms.Appearance.Options.UseBackColor = True Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2}) - Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form + Me.pageForms.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form Me.pageForms.Name = "pageForms" resources.ApplyResources(Me.pageForms, "pageForms") ' @@ -620,7 +620,7 @@ Partial Class frmMain 'pageAdmin ' Me.pageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupProgram, Me.RibbonPageGroupTask, Me.RibbonPageGroupMenue, Me.RibbonPageGroup1}) - Me.pageAdmin.Image = Global.DD_Record_Organiser.My.Resources.Resources.Property_501 + Me.pageAdmin.Image = Global.DD_Record_Organizer.My.Resources.Resources.Property_501 Me.pageAdmin.Name = "pageAdmin" resources.ApplyResources(Me.pageAdmin, "pageAdmin") Me.pageAdmin.Visible = False @@ -686,7 +686,7 @@ Partial Class frmMain 'BarButtonItem11 ' resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11") - Me.BarButtonItem11.Glyph = Global.DD_Record_Organiser.My.Resources.Resources._005_Task_32x42_72 + Me.BarButtonItem11.Glyph = Global.DD_Record_Organizer.My.Resources.Resources._005_Task_32x42_72 Me.BarButtonItem11.Id = 14 Me.BarButtonItem11.Name = "BarButtonItem11" Me.BarButtonItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large @@ -739,10 +739,10 @@ Partial Class frmMain End Sub Friend WithEvents NotifyIcon As System.Windows.Forms.NotifyIcon - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TimerTasks As System.Windows.Forms.Timer Friend WithEvents ribbonMain As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents pageForms As DevExpress.XtraBars.Ribbon.RibbonPage diff --git a/app/DD-Record-Organiser/frmMain.de-DE.resx b/app/DD-Record-Organizer/frmMain.de-DE.resx similarity index 100% rename from app/DD-Record-Organiser/frmMain.de-DE.resx rename to app/DD-Record-Organizer/frmMain.de-DE.resx diff --git a/app/DD-Record-Organiser/frmMain.de.resx b/app/DD-Record-Organizer/frmMain.de.resx similarity index 100% rename from app/DD-Record-Organiser/frmMain.de.resx rename to app/DD-Record-Organizer/frmMain.de.resx diff --git a/app/DD-Record-Organiser/frmMain.en-US.resx b/app/DD-Record-Organizer/frmMain.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmMain.en-US.resx rename to app/DD-Record-Organizer/frmMain.en-US.resx diff --git a/app/DD-Record-Organiser/frmMain.resx b/app/DD-Record-Organizer/frmMain.resx similarity index 99% rename from app/DD-Record-Organiser/frmMain.resx rename to app/DD-Record-Organizer/frmMain.resx index 836de6d..8558c27 100644 --- a/app/DD-Record-Organiser/frmMain.resx +++ b/app/DD-Record-Organizer/frmMain.resx @@ -272,7 +272,7 @@ Login Auswertungen - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -3709,7 +3709,7 @@ Konfiguration BarButtonItemSAPConnect - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null RibbonPageGroup2 @@ -3817,7 +3817,7 @@ Konfiguration DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organizer/frmMain.vb similarity index 100% rename from app/DD-Record-Organiser/frmMain.vb rename to app/DD-Record-Organizer/frmMain.vb diff --git a/app/DD-Record-Organiser/frmMass_Change.Designer.vb b/app/DD-Record-Organizer/frmMass_Change.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmMass_Change.Designer.vb rename to app/DD-Record-Organizer/frmMass_Change.Designer.vb index fb38b64..1589d5a 100644 --- a/app/DD-Record-Organiser/frmMass_Change.Designer.vb +++ b/app/DD-Record-Organizer/frmMass_Change.Designer.vb @@ -90,14 +90,14 @@ Partial Class frmMass_Change 'btnRefresh ' resources.ApplyResources(Me.btnRefresh, "btnRefresh") - Me.btnRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.btnRefresh.Name = "btnRefresh" Me.btnRefresh.UseVisualStyleBackColor = True ' 'btncancel ' resources.ApplyResources(Me.btncancel, "btncancel") - Me.btncancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG + Me.btncancel.Image = Global.DD_Record_Organizer.My.Resources.Resources.Close_16xLG Me.btncancel.Name = "btncancel" Me.btncancel.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmMass_Change.en-US.resx b/app/DD-Record-Organizer/frmMass_Change.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmMass_Change.en-US.resx rename to app/DD-Record-Organizer/frmMass_Change.en-US.resx diff --git a/app/DD-Record-Organiser/frmMass_Change.resx b/app/DD-Record-Organizer/frmMass_Change.resx similarity index 100% rename from app/DD-Record-Organiser/frmMass_Change.resx rename to app/DD-Record-Organizer/frmMass_Change.resx diff --git a/app/DD-Record-Organiser/frmMass_Change.vb b/app/DD-Record-Organizer/frmMass_Change.vb similarity index 100% rename from app/DD-Record-Organiser/frmMass_Change.vb rename to app/DD-Record-Organizer/frmMass_Change.vb diff --git a/app/DD-Record-Organiser/frmMenuDesigner.Designer.vb b/app/DD-Record-Organizer/frmMenuDesigner.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmMenuDesigner.Designer.vb rename to app/DD-Record-Organizer/frmMenuDesigner.Designer.vb index 4517cdb..41eca61 100644 --- a/app/DD-Record-Organiser/frmMenuDesigner.Designer.vb +++ b/app/DD-Record-Organizer/frmMenuDesigner.Designer.vb @@ -35,7 +35,7 @@ Partial Class frmMenuDesigner Me.CHANGEDWHODataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.CHANGEDWHENDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.FormBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() Me.MenuEntriesSplitContainer = New System.Windows.Forms.SplitContainer() @@ -49,7 +49,7 @@ Partial Class frmMenuDesigner Me.CHANGEDWHODataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.CHANGEDWHENDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.MenuBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSetMenuDesigner = New DD_Record_Organiser.DD_DMSDataSetMenuDesigner() + Me.DD_DMSDataSetMenuDesigner = New DD_Record_Organizer.DD_DMSDataSetMenuDesigner() Me.MenuBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() @@ -75,9 +75,9 @@ Partial Class frmMenuDesigner Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() - Me.TBPMO_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() - Me.TBPMO_MENU_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter() - Me.TBPMO_MENU_FORM_ENTRIESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter() + Me.TBPMO_FORMTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() + Me.TBPMO_MENU_FORMTableAdapter = New DD_Record_Organizer.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter() + Me.TBPMO_MENU_FORM_ENTRIESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter() Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -527,7 +527,7 @@ Partial Class frmMenuDesigner ' resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG Me.ToolStripButton1.Name = "ToolStripButton1" ' 'BindingNavigatorAddNewItem1 @@ -570,7 +570,7 @@ Partial Class frmMenuDesigner ' resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.ToolStripButton2.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG Me.ToolStripButton2.Name = "ToolStripButton2" ' 'frmMenuDesigner @@ -621,7 +621,7 @@ Partial Class frmMenuDesigner Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents MenuBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents DD_DMSDataSetMenuDesigner As DD_Record_Organiser.DD_DMSDataSetMenuDesigner + Friend WithEvents DD_DMSDataSetMenuDesigner As DD_Record_Organizer.DD_DMSDataSetMenuDesigner Friend WithEvents MenuBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -634,7 +634,7 @@ Partial Class frmMenuDesigner Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents TBPMO_MENU_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter + Friend WithEvents TBPMO_MENU_FORMTableAdapter As DD_Record_Organizer.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter Friend WithEvents dgvMenuEntry As System.Windows.Forms.DataGridView Friend WithEvents MenuEntrybindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem1 As System.Windows.Forms.ToolStripButton @@ -649,7 +649,7 @@ Partial Class frmMenuDesigner Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator Friend WithEvents MenuEntryBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_MENU_FORM_ENTRIESTableAdapter As DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter + Friend WithEvents TBPMO_MENU_FORM_ENTRIESTableAdapter As DD_Record_Organizer.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter Friend WithEvents GUIDDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents MENUFORMIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents FORMIDDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn @@ -660,9 +660,9 @@ Partial Class frmMenuDesigner Friend WithEvents ADDEDWHENDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents CHANGEDWHODataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents CHANGEDWHENDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents FormBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter + Friend WithEvents TBPMO_FORMTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents dgvForm As System.Windows.Forms.DataGridView Friend WithEvents GUIDDataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn diff --git a/app/DD-Record-Organiser/frmMenuDesigner.en-US.resx b/app/DD-Record-Organizer/frmMenuDesigner.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmMenuDesigner.en-US.resx rename to app/DD-Record-Organizer/frmMenuDesigner.en-US.resx diff --git a/app/DD-Record-Organiser/frmMenuDesigner.resx b/app/DD-Record-Organizer/frmMenuDesigner.resx similarity index 99% rename from app/DD-Record-Organiser/frmMenuDesigner.resx rename to app/DD-Record-Organizer/frmMenuDesigner.resx index 4e6630f..de988df 100644 --- a/app/DD-Record-Organiser/frmMenuDesigner.resx +++ b/app/DD-Record-Organizer/frmMenuDesigner.resx @@ -310,7 +310,7 @@ NAME - DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter, DD_DMSDataSetMenuDesigner.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORMTableAdapter, DD_DMSDataSetMenuDesigner.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null MENU_ENTRY @@ -554,7 +554,7 @@ - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -641,7 +641,7 @@ 1098, 561 - DD_Record_Organiser.DD_DMSDataSetMenuDesigner, DD_DMSDataSetMenuDesigner.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetMenuDesigner, DD_DMSDataSetMenuDesigner.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 0 @@ -871,7 +871,7 @@ MenuEntryBindingSource - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1081,7 +1081,7 @@ CHANGED_WHEN - DD_Record_Organiser.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter, DD_DMSDataSetMenuDesigner.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetMenuDesignerTableAdapters.TBPMO_MENU_FORM_ENTRIESTableAdapter, DD_DMSDataSetMenuDesigner.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/app/DD-Record-Organiser/frmMenuDesigner.vb b/app/DD-Record-Organizer/frmMenuDesigner.vb similarity index 100% rename from app/DD-Record-Organiser/frmMenuDesigner.vb rename to app/DD-Record-Organizer/frmMenuDesigner.vb diff --git a/app/DD-Record-Organiser/frmMessageBox.Designer.vb b/app/DD-Record-Organizer/frmMessageBox.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmMessageBox.Designer.vb rename to app/DD-Record-Organizer/frmMessageBox.Designer.vb diff --git a/app/DD-Record-Organiser/frmMessageBox.resx b/app/DD-Record-Organizer/frmMessageBox.resx similarity index 100% rename from app/DD-Record-Organiser/frmMessageBox.resx rename to app/DD-Record-Organizer/frmMessageBox.resx diff --git a/app/DD-Record-Organiser/frmMessageBox.vb b/app/DD-Record-Organizer/frmMessageBox.vb similarity index 100% rename from app/DD-Record-Organiser/frmMessageBox.vb rename to app/DD-Record-Organizer/frmMessageBox.vb diff --git a/app/DD-Record-Organiser/frmNewKombiForm.Designer.vb b/app/DD-Record-Organizer/frmNewKombiForm.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmNewKombiForm.Designer.vb rename to app/DD-Record-Organizer/frmNewKombiForm.Designer.vb diff --git a/app/DD-Record-Organiser/frmNewKombiForm.en-US.resx b/app/DD-Record-Organizer/frmNewKombiForm.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmNewKombiForm.en-US.resx rename to app/DD-Record-Organizer/frmNewKombiForm.en-US.resx diff --git a/app/DD-Record-Organiser/frmNewKombiForm.resx b/app/DD-Record-Organizer/frmNewKombiForm.resx similarity index 100% rename from app/DD-Record-Organiser/frmNewKombiForm.resx rename to app/DD-Record-Organizer/frmNewKombiForm.resx diff --git a/app/DD-Record-Organiser/frmNewKombiForm.vb b/app/DD-Record-Organizer/frmNewKombiForm.vb similarity index 100% rename from app/DD-Record-Organiser/frmNewKombiForm.vb rename to app/DD-Record-Organizer/frmNewKombiForm.vb diff --git a/app/DD-Record-Organiser/frmNewVariant.Designer.vb b/app/DD-Record-Organizer/frmNewVariant.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmNewVariant.Designer.vb rename to app/DD-Record-Organizer/frmNewVariant.Designer.vb diff --git a/app/DD-Record-Organiser/frmNewVariant.resx b/app/DD-Record-Organizer/frmNewVariant.resx similarity index 100% rename from app/DD-Record-Organiser/frmNewVariant.resx rename to app/DD-Record-Organizer/frmNewVariant.resx diff --git a/app/DD-Record-Organiser/frmNewVariant.vb b/app/DD-Record-Organizer/frmNewVariant.vb similarity index 100% rename from app/DD-Record-Organiser/frmNewVariant.vb rename to app/DD-Record-Organizer/frmNewVariant.vb diff --git a/app/DD-Record-Organiser/frmQuickStart_Images.Designer.vb b/app/DD-Record-Organizer/frmQuickStart_Images.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmQuickStart_Images.Designer.vb rename to app/DD-Record-Organizer/frmQuickStart_Images.Designer.vb index 4bb60d9..f593602 100644 --- a/app/DD-Record-Organiser/frmQuickStart_Images.Designer.vb +++ b/app/DD-Record-Organizer/frmQuickStart_Images.Designer.vb @@ -27,7 +27,7 @@ Partial Class frmQuickStart_Images Me.btnDeleteImage = New System.Windows.Forms.Button() Me.btnSelectImage = New System.Windows.Forms.Button() Me.ImageBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.btnSaveImage = New System.Windows.Forms.Button() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() @@ -40,7 +40,7 @@ Partial Class frmQuickStart_Images Me.colSEQUENCE_MENU = New DevExpress.XtraGrid.Columns.GridColumn() Me.colMENU_IMG = New DevExpress.XtraGrid.Columns.GridColumn() Me.pbCurrent = New System.Windows.Forms.PictureBox() - Me.ImageTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.ImageTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() Me.Label2 = New System.Windows.Forms.Label() Me.pbNew = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() @@ -97,7 +97,7 @@ Partial Class frmQuickStart_Images 'btnRefresh ' resources.ApplyResources(Me.btnRefresh, "btnRefresh") - Me.btnRefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.btnRefresh.Name = "btnRefresh" ' 'GridControl1 @@ -231,9 +231,9 @@ Partial Class frmQuickStart_Images Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents gvMainView As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents pbCurrent As System.Windows.Forms.PictureBox - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents ImageBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents ImageTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents ImageTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter Friend WithEvents btnRefresh As System.Windows.Forms.ToolStripButton Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents pbNew As System.Windows.Forms.PictureBox diff --git a/app/DD-Record-Organiser/frmQuickStart_Images.en-US.resx b/app/DD-Record-Organizer/frmQuickStart_Images.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmQuickStart_Images.en-US.resx rename to app/DD-Record-Organizer/frmQuickStart_Images.en-US.resx diff --git a/app/DD-Record-Organiser/frmQuickStart_Images.resx b/app/DD-Record-Organizer/frmQuickStart_Images.resx similarity index 99% rename from app/DD-Record-Organiser/frmQuickStart_Images.resx rename to app/DD-Record-Organizer/frmQuickStart_Images.resx index 7a867a1..0bf2792 100644 --- a/app/DD-Record-Organiser/frmQuickStart_Images.resx +++ b/app/DD-Record-Organizer/frmQuickStart_Images.resx @@ -326,7 +326,7 @@ $this - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 13 @@ -478,7 +478,7 @@ 6 - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/app/DD-Record-Organiser/frmQuickStart_Images.vb b/app/DD-Record-Organizer/frmQuickStart_Images.vb similarity index 100% rename from app/DD-Record-Organiser/frmQuickStart_Images.vb rename to app/DD-Record-Organizer/frmQuickStart_Images.vb diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb b/app/DD-Record-Organizer/frmRecOrgConfig_Basic.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb rename to app/DD-Record-Organizer/frmRecOrgConfig_Basic.Designer.vb index 980623a..26d0b77 100644 --- a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb +++ b/app/DD-Record-Organizer/frmRecOrgConfig_Basic.Designer.vb @@ -172,16 +172,16 @@ Partial Class frmRecOrgConfig_Basic 'btnsave ' resources.ApplyResources(Me.btnsave, "btnsave") - Me.btnsave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.btnsave.Image = Global.DD_Record_Organizer.My.Resources.Resources.save Me.btnsave.Name = "btnsave" Me.btnsave.UseVisualStyleBackColor = True ' 'chkChildWindow ' resources.ApplyResources(Me.chkChildWindow, "chkChildWindow") - Me.chkChildWindow.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_DesignPanels_areChild + Me.chkChildWindow.Checked = Global.DD_Record_Organizer.My.MySettings.Default.User_DesignPanels_areChild Me.chkChildWindow.CheckState = System.Windows.Forms.CheckState.Checked - Me.chkChildWindow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_DesignPanels_areChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkChildWindow.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organizer.My.MySettings.Default, "User_DesignPanels_areChild", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.chkChildWindow.Name = "chkChildWindow" Me.chkChildWindow.UseVisualStyleBackColor = True ' @@ -204,7 +204,7 @@ Partial Class frmRecOrgConfig_Basic 'btnTest_Anmeldung ' Me.btnTest_Anmeldung.BackColor = System.Drawing.SystemColors.Control - Me.btnTest_Anmeldung.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + Me.btnTest_Anmeldung.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect resources.ApplyResources(Me.btnTest_Anmeldung, "btnTest_Anmeldung") Me.btnTest_Anmeldung.Name = "btnTest_Anmeldung" Me.btnTest_Anmeldung.UseVisualStyleBackColor = False diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.en-US.resx b/app/DD-Record-Organizer/frmRecOrgConfig_Basic.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmRecOrgConfig_Basic.en-US.resx rename to app/DD-Record-Organizer/frmRecOrgConfig_Basic.en-US.resx diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.resx b/app/DD-Record-Organizer/frmRecOrgConfig_Basic.resx similarity index 100% rename from app/DD-Record-Organiser/frmRecOrgConfig_Basic.resx rename to app/DD-Record-Organizer/frmRecOrgConfig_Basic.resx diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb b/app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb similarity index 100% rename from app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb rename to app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb diff --git a/app/DD-Record-Organiser/frmRecordView.Designer.vb b/app/DD-Record-Organizer/frmRecordView.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmRecordView.Designer.vb rename to app/DD-Record-Organizer/frmRecordView.Designer.vb index 379e74a..0f71474 100644 --- a/app/DD-Record-Organiser/frmRecordView.Designer.vb +++ b/app/DD-Record-Organizer/frmRecordView.Designer.vb @@ -83,12 +83,12 @@ Partial Class frmRecordView Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.txtStateActual = New System.Windows.Forms.TextBox() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() Me.GridControlUsersSelection = New DevExpress.XtraGrid.GridControl() Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.GridViewlUsers2Group = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -124,9 +124,9 @@ Partial Class frmRecordView Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter() + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter() Label1 = New System.Windows.Forms.Label() WF_IDLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() @@ -230,7 +230,7 @@ Partial Class frmRecordView ' 'SplitContainerMain ' - Me.SplitContainerMain.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_Record_Organiser.My.MySettings.Default, "frmRecordViewSplitter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SplitContainerMain.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_Record_Organizer.My.MySettings.Default, "frmRecordViewSplitter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain") Me.SplitContainerMain.Name = "SplitContainerMain" ' @@ -241,7 +241,7 @@ Partial Class frmRecordView 'SplitContainerMain.Panel2 ' Me.SplitContainerMain.Panel2.Controls.Add(Me.TabControlBottom) - Me.SplitContainerMain.SplitterDistance = Global.DD_Record_Organiser.My.MySettings.Default.frmRecordViewSplitter + Me.SplitContainerMain.SplitterDistance = Global.DD_Record_Organizer.My.MySettings.Default.frmRecordViewSplitter ' 'TCDetails ' @@ -258,7 +258,7 @@ Partial Class frmRecordView 'TabDetails ' Me.TabDetails.Controls.Add(Me.pnlDetails) - Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD + Me.TabDetails.Image = Global.DD_Record_Organizer.My.Resources.Resources.grid_Data_16xMD Me.TabDetails.Name = "TabDetails" resources.ApplyResources(Me.TabDetails, "TabDetails") ' @@ -273,7 +273,7 @@ Partial Class frmRecordView Me.TabFollowUp.Controls.Add(Me.ListViewFollowUps) Me.TabFollowUp.Controls.Add(Me.grpbxFU_Profile) Me.TabFollowUp.Controls.Add(Me.Label5) - Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD + Me.TabFollowUp.Image = Global.DD_Record_Organizer.My.Resources.Resources.Task_16xMD Me.TabFollowUp.Name = "TabFollowUp" resources.ApplyResources(Me.TabFollowUp, "TabFollowUp") ' @@ -327,7 +327,7 @@ Partial Class frmRecordView 'btnAddUser_FollowUp ' resources.ApplyResources(Me.btnAddUser_FollowUp, "btnAddUser_FollowUp") - Me.btnAddUser_FollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddMark_10580 + Me.btnAddUser_FollowUp.Image = Global.DD_Record_Organizer.My.Resources.Resources.AddMark_10580 Me.btnAddUser_FollowUp.Name = "btnAddUser_FollowUp" Me.btnAddUser_FollowUp.UseVisualStyleBackColor = True ' @@ -505,7 +505,7 @@ Partial Class frmRecordView Me.TabPageDoc.AllowDrop = True Me.TabPageDoc.Controls.Add(Me.GridControlDocSearch) Me.TabPageDoc.Controls.Add(Me.ToolStrip2) - Me.TabPageDoc.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 + Me.TabPageDoc.Image = Global.DD_Record_Organizer.My.Resources.Resources.Files_7954 Me.TabPageDoc.Name = "TabPageDoc" resources.ApplyResources(Me.TabPageDoc, "TabPageDoc") ' @@ -531,7 +531,7 @@ Partial Class frmRecordView ' 'PropertiesToolStripMenuItem ' - Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.PropertyGridEditorPart_6041 + Me.PropertiesToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.PropertyGridEditorPart_6041 Me.PropertiesToolStripMenuItem.Name = "PropertiesToolStripMenuItem" resources.ApplyResources(Me.PropertiesToolStripMenuItem, "PropertiesToolStripMenuItem") ' @@ -711,7 +711,7 @@ Partial Class frmRecordView ' 'btnAddUser ' - Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left + Me.btnAddUser.Image = Global.DD_Record_Organizer.My.Resources.Resources.arrow_left resources.ApplyResources(Me.btnAddUser, "btnAddUser") Me.btnAddUser.Name = "btnAddUser" Me.btnAddUser.UseVisualStyleBackColor = True @@ -724,7 +724,7 @@ Partial Class frmRecordView ' 'btndeleteuser ' - Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndeleteuser.Image = Global.DD_Record_Organizer.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndeleteuser, "btndeleteuser") Me.btndeleteuser.Name = "btndeleteuser" Me.btndeleteuser.UseVisualStyleBackColor = True @@ -838,7 +838,7 @@ Partial Class frmRecordView 'btnSaveWorkflow ' resources.ApplyResources(Me.btnSaveWorkflow, "btnSaveWorkflow") - Me.btnSaveWorkflow.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.btnSaveWorkflow.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG Me.btnSaveWorkflow.Name = "btnSaveWorkflow" Me.btnSaveWorkflow.UseVisualStyleBackColor = True ' @@ -933,7 +933,7 @@ Partial Class frmRecordView Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_WORKFLOW_TASK_HISTORYTableAdapter ' @@ -1073,16 +1073,16 @@ Partial Class frmRecordView Friend WithEvents dtpFollowUp As System.Windows.Forms.DateTimePicker Friend WithEvents lblWiedervorlage_Control As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents TBPMO_WORKFLOW_TASK_HISTORYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WORKFLOW_TASK_HISTORYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter + Friend WithEvents TBPMO_WORKFLOW_TASK_HISTORYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colSTATE_DESC As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colCOMMENT As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmRecordView.en-US.resx b/app/DD-Record-Organizer/frmRecordView.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmRecordView.en-US.resx rename to app/DD-Record-Organizer/frmRecordView.en-US.resx diff --git a/app/DD-Record-Organiser/frmRecordView.resx b/app/DD-Record-Organizer/frmRecordView.resx similarity index 99% rename from app/DD-Record-Organiser/frmRecordView.resx rename to app/DD-Record-Organizer/frmRecordView.resx index 0e5e612..8b196af 100644 --- a/app/DD-Record-Organiser/frmRecordView.resx +++ b/app/DD-Record-Organizer/frmRecordView.resx @@ -2529,7 +2529,7 @@ zuordnen DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBAD_UsersBindingSource @@ -2541,7 +2541,7 @@ zuordnen DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridViewlUsers2Group @@ -2637,19 +2637,19 @@ zuordnen VWPMO_WF_ACTIVETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WORKFLOW_TASK_HISTORYTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmRecordView diff --git a/app/DD-Record-Organiser/frmRecordView.vb b/app/DD-Record-Organizer/frmRecordView.vb similarity index 100% rename from app/DD-Record-Organiser/frmRecordView.vb rename to app/DD-Record-Organizer/frmRecordView.vb diff --git a/app/DD-Record-Organiser/frmRecord_Changes.Designer.vb b/app/DD-Record-Organizer/frmRecord_Changes.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmRecord_Changes.Designer.vb rename to app/DD-Record-Organizer/frmRecord_Changes.Designer.vb index 1dd789b..cbbeedf 100644 --- a/app/DD-Record-Organiser/frmRecord_Changes.Designer.vb +++ b/app/DD-Record-Organizer/frmRecord_Changes.Designer.vb @@ -28,7 +28,7 @@ Partial Class frmRecord_Changes Me.grvwCarousel = New DevExpress.XtraGrid.Views.Layout.LayoutView() Me.GridControlSelection = New DevExpress.XtraGrid.GridControl() Me.VWPMO_RECORD_CHANGESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.grvwSelection = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -46,8 +46,8 @@ Partial Class frmRecord_Changes Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_RECORD_CHANGESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.VWPMO_RECORD_CHANGESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_RECORD_CHANGESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -262,7 +262,7 @@ Partial Class frmRecord_Changes Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmRecord_Changes ' @@ -298,10 +298,10 @@ Partial Class frmRecord_Changes Friend WithEvents grvwCarousel As DevExpress.XtraGrid.Views.Layout.LayoutView Friend WithEvents grvwSelection As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents VWPMO_RECORD_CHANGESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_RECORD_CHANGESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_RECORD_CHANGESTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmRecord_Changes.en-US.resx b/app/DD-Record-Organizer/frmRecord_Changes.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmRecord_Changes.en-US.resx rename to app/DD-Record-Organizer/frmRecord_Changes.en-US.resx diff --git a/app/DD-Record-Organiser/frmRecord_Changes.resx b/app/DD-Record-Organizer/frmRecord_Changes.resx similarity index 99% rename from app/DD-Record-Organiser/frmRecord_Changes.resx rename to app/DD-Record-Organizer/frmRecord_Changes.resx index fc0fa92..661ca58 100644 --- a/app/DD-Record-Organiser/frmRecord_Changes.resx +++ b/app/DD-Record-Organizer/frmRecord_Changes.resx @@ -218,7 +218,7 @@ Ziehen Sie Spaltenüberschriften in diesen Bereich um nach diesen gruppieren zu lassen - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 863, 321 @@ -248,7 +248,7 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_RECORD_CHANGESTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null CenterScreen @@ -394,7 +394,7 @@ Center - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_RECORD_CHANGESBindingSource diff --git a/app/DD-Record-Organiser/frmRecord_Changes.vb b/app/DD-Record-Organizer/frmRecord_Changes.vb similarity index 100% rename from app/DD-Record-Organiser/frmRecord_Changes.vb rename to app/DD-Record-Organizer/frmRecord_Changes.vb diff --git a/app/DD-Record-Organiser/frmRight_Management.Designer.vb b/app/DD-Record-Organizer/frmRight_Management.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmRight_Management.Designer.vb rename to app/DD-Record-Organizer/frmRight_Management.Designer.vb index a2729b5..24607d7 100644 --- a/app/DD-Record-Organiser/frmRight_Management.Designer.vb +++ b/app/DD-Record-Organizer/frmRight_Management.Designer.vb @@ -28,7 +28,7 @@ Partial Class frmRight_Management Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBPMO_RIGHT_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -45,7 +45,7 @@ Partial Class frmRight_Management Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewComboBoxColumn() Me.TBWH_ENTITIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewComboBoxColumn() Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() @@ -107,15 +107,15 @@ Partial Class frmRight_Management Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBWH_ENTITIESTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter() - Me.TableAdapterManager1 = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBWH_ENTITIESTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() Me.TBWH_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBWH_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter() - Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter() - Me.TBDD_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() - Me.USER_RIGHTSTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter() + Me.TBWH_USER_GROUPSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter() + Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_RIGHT_GROUPTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter() + Me.TBDD_USERTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() + Me.USER_RIGHTSTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() CType(Me.TBPMO_RIGHT_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -230,14 +230,14 @@ Partial Class frmRight_Management 'ToolStripButton1 ' Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.save resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") Me.ToolStripButton1.Name = "ToolStripButton1" ' 'ToolStripButton2 ' Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton2.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton2.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") Me.ToolStripButton2.Name = "ToolStripButton2" ' @@ -687,7 +687,7 @@ Partial Class frmRight_Management 'ToolStripButton4 ' Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton4.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton4.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") Me.ToolStripButton4.Name = "ToolStripButton4" ' @@ -709,7 +709,7 @@ Partial Class frmRight_Management Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_SAP_FUBATableAdapter = Nothing - Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBWH_USER_GROUPSBindingSource ' @@ -762,7 +762,7 @@ Partial Class frmRight_Management Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_RIGHT_GROUPTableAdapter ' @@ -814,12 +814,12 @@ Partial Class frmRight_Management Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBDD_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USER_GROUPSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_USER_GROUPSTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_RIGHT_GROUPBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_RIGHT_GROUPTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter + Friend WithEvents TBPMO_RIGHT_GROUPTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -833,12 +833,12 @@ Partial Class frmRight_Management Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPMO_RIGHT_GROUPDataGridView As System.Windows.Forms.DataGridView - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBWH_ENTITIESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBWH_ENTITIESTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter - Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBWH_ENTITIESTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter + Friend WithEvents TableAdapterManager1 As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents TBWH_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBWH_USER_GROUPSTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter + Friend WithEvents TBWH_USER_GROUPSTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents TabControl1 As System.Windows.Forms.TabControl @@ -870,12 +870,12 @@ Partial Class frmRight_Management Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton Friend WithEvents colFILES_VISIBLE As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource Friend WithEvents USER_RIGHTSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents USER_RIGHTSTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter + Friend WithEvents USER_RIGHTSTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmRight_Management.en-US.resx b/app/DD-Record-Organizer/frmRight_Management.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmRight_Management.en-US.resx rename to app/DD-Record-Organizer/frmRight_Management.en-US.resx diff --git a/app/DD-Record-Organiser/frmRight_Management.resx b/app/DD-Record-Organizer/frmRight_Management.resx similarity index 99% rename from app/DD-Record-Organiser/frmRight_Management.resx rename to app/DD-Record-Organizer/frmRight_Management.resx index 642b101..d2d0811 100644 --- a/app/DD-Record-Organiser/frmRight_Management.resx +++ b/app/DD-Record-Organizer/frmRight_Management.resx @@ -1261,7 +1261,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorCountItem @@ -1357,7 +1357,7 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null DataGridViewTextBoxColumn3 @@ -1651,13 +1651,13 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende TBWH_ENTITIESTableAdapter - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_ENTITIESTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager1 - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBWH_USER_GROUPSBindingSource @@ -1669,37 +1669,37 @@ Des Weiteren werden die Rechte für die Zugriffsrechte auf die Dateien angewende TBWH_USER_GROUPSTableAdapter - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBWH_USER_GROUPSTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_USER_GROUPSTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_RIGHT_GROUPTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RIGHT_GROUPTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_USERTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null USER_RIGHTSTableAdapter - DD_Record_Organiser.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.USER_RIGHTSTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmRight_Management diff --git a/app/DD-Record-Organiser/frmRight_Management.vb b/app/DD-Record-Organizer/frmRight_Management.vb similarity index 100% rename from app/DD-Record-Organiser/frmRight_Management.vb rename to app/DD-Record-Organizer/frmRight_Management.vb diff --git a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb b/app/DD-Record-Organizer/frmSAP_FuBa.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb rename to app/DD-Record-Organizer/frmSAP_FuBa.Designer.vb index eafb2ab..34f05cd 100644 --- a/app/DD-Record-Organiser/frmSAP_FuBa.Designer.vb +++ b/app/DD-Record-Organizer/frmSAP_FuBa.Designer.vb @@ -58,10 +58,10 @@ Partial Class frmSAP_FuBa Dim Label19 As System.Windows.Forms.Label Dim Label20 As System.Windows.Forms.Label Dim Label21 As System.Windows.Forms.Label - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.TBPMO_SAP_FUBABindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_SAP_FUBATableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBPMO_SAP_FUBATableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() Me.TBPMO_SAP_FUBABindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -460,7 +460,7 @@ Partial Class frmSAP_FuBa Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Me.TBPMO_SAP_FUBATableAdapter - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_SAP_FUBABindingNavigator ' @@ -577,7 +577,7 @@ Partial Class frmSAP_FuBa 'ToolStripButton1 ' Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) @@ -742,7 +742,7 @@ Partial Class frmSAP_FuBa 'btnERPConnect ' Me.btnERPConnect.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) - Me.btnERPConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + Me.btnERPConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect Me.btnERPConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnERPConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnERPConnect.Location = New System.Drawing.Point(768, 117) @@ -831,7 +831,7 @@ Partial Class frmSAP_FuBa 'btnInsertData ' Me.btnInsertData.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnInsertData.Image = Global.DD_Record_Organiser.My.Resources.Resources.InsertColumn_5626 + Me.btnInsertData.Image = Global.DD_Record_Organizer.My.Resources.Resources.InsertColumn_5626 Me.btnInsertData.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnInsertData.Location = New System.Drawing.Point(493, 161) Me.btnInsertData.Name = "btnInsertData" @@ -907,7 +907,7 @@ Partial Class frmSAP_FuBa 'btnGetResult ' Me.btnGetResult.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnGetResult.Image = Global.DD_Record_Organiser.My.Resources.Resources.TableView_nameonly_263 + Me.btnGetResult.Image = Global.DD_Record_Organizer.My.Resources.Resources.TableView_nameonly_263 Me.btnGetResult.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnGetResult.Location = New System.Drawing.Point(493, 203) Me.btnGetResult.Name = "btnGetResult" @@ -1173,7 +1173,7 @@ Partial Class frmSAP_FuBa 'Button1 ' Me.Button1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Button1.Location = New System.Drawing.Point(141, 265) @@ -1205,7 +1205,7 @@ Partial Class frmSAP_FuBa 'Button2 ' Me.Button2.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) - Me.Button2.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + Me.Button2.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Button2.Location = New System.Drawing.Point(450, 404) @@ -1365,10 +1365,10 @@ Partial Class frmSAP_FuBa Me.ResumeLayout(False) End Sub - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBPMO_SAP_FUBABindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_SAP_FUBATableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_SAP_FUBATableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_SAP_FUBATableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents TBPMO_SAP_FUBABindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel diff --git a/app/DD-Record-Organiser/frmSAP_FuBa.resx b/app/DD-Record-Organizer/frmSAP_FuBa.resx similarity index 100% rename from app/DD-Record-Organiser/frmSAP_FuBa.resx rename to app/DD-Record-Organizer/frmSAP_FuBa.resx diff --git a/app/DD-Record-Organiser/frmSAP_FuBa.vb b/app/DD-Record-Organizer/frmSAP_FuBa.vb similarity index 100% rename from app/DD-Record-Organiser/frmSAP_FuBa.vb rename to app/DD-Record-Organizer/frmSAP_FuBa.vb diff --git a/app/DD-Record-Organiser/frmSQLEditor.Designer.vb b/app/DD-Record-Organizer/frmSQLEditor.Designer.vb similarity index 96% rename from app/DD-Record-Organiser/frmSQLEditor.Designer.vb rename to app/DD-Record-Organizer/frmSQLEditor.Designer.vb index 3f5556b..3dc454f 100644 --- a/app/DD-Record-Organiser/frmSQLEditor.Designer.vb +++ b/app/DD-Record-Organizer/frmSQLEditor.Designer.vb @@ -32,10 +32,10 @@ Partial Class frmSQLEditor Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Button1 = New System.Windows.Forms.Button() Me.txtValue = New System.Windows.Forms.TextBox() - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.cmbConnection = New System.Windows.Forms.ComboBox() Me.Button2 = New System.Windows.Forms.Button() Me.btnTestSQL = New System.Windows.Forms.Button() @@ -77,7 +77,7 @@ Partial Class frmSQLEditor ' resources.ApplyResources(Me.Button1, "Button1") Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.save_16xLG Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' @@ -130,7 +130,7 @@ Partial Class frmSQLEditor Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'cmbConnection ' @@ -144,14 +144,14 @@ Partial Class frmSQLEditor 'Button2 ' resources.ApplyResources(Me.Button2, "Button2") - Me.Button2.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + Me.Button2.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect Me.Button2.Name = "Button2" Me.Button2.UseVisualStyleBackColor = True ' 'btnTestSQL ' resources.ApplyResources(Me.btnTestSQL, "btnTestSQL") - Me.btnTestSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.Go + Me.btnTestSQL.Image = Global.DD_Record_Organizer.My.Resources.Resources.Go Me.btnTestSQL.Name = "btnTestSQL" Me.btnTestSQL.UseVisualStyleBackColor = True ' @@ -165,14 +165,14 @@ Partial Class frmSQLEditor 'btnAddPlaceholder ' resources.ApplyResources(Me.btnAddPlaceholder, "btnAddPlaceholder") - Me.btnAddPlaceholder.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.btnAddPlaceholder.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.btnAddPlaceholder.Name = "btnAddPlaceholder" Me.btnAddPlaceholder.UseVisualStyleBackColor = True ' 'btnRefreshConnections ' resources.ApplyResources(Me.btnRefreshConnections, "btnRefreshConnections") - Me.btnRefreshConnections.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefreshConnections.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.btnRefreshConnections.Name = "btnRefreshConnections" Me.btnRefreshConnections.UseVisualStyleBackColor = True ' @@ -391,10 +391,10 @@ Partial Class frmSQLEditor End Sub Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents txtValue As System.Windows.Forms.TextBox - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents btnTestSQL As System.Windows.Forms.Button diff --git a/app/DD-Record-Organiser/frmSQLEditor.en-US.resx b/app/DD-Record-Organizer/frmSQLEditor.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmSQLEditor.en-US.resx rename to app/DD-Record-Organizer/frmSQLEditor.en-US.resx diff --git a/app/DD-Record-Organiser/frmSQLEditor.resx b/app/DD-Record-Organizer/frmSQLEditor.resx similarity index 99% rename from app/DD-Record-Organiser/frmSQLEditor.resx rename to app/DD-Record-Organizer/frmSQLEditor.resx index e019202..ec77c10 100644 --- a/app/DD-Record-Organiser/frmSQLEditor.resx +++ b/app/DD-Record-Organizer/frmSQLEditor.resx @@ -166,7 +166,7 @@ colReplace - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null Ersetzung @@ -532,7 +532,7 @@ GroupBox4 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null Button1 @@ -1290,7 +1290,7 @@ System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null Segoe UI, 9pt diff --git a/app/DD-Record-Organiser/frmSQLEditor.vb b/app/DD-Record-Organizer/frmSQLEditor.vb similarity index 100% rename from app/DD-Record-Organiser/frmSQLEditor.vb rename to app/DD-Record-Organizer/frmSQLEditor.vb diff --git a/app/DD-Record-Organiser/frmScanFiles.Designer.vb b/app/DD-Record-Organizer/frmScanFiles.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmScanFiles.Designer.vb rename to app/DD-Record-Organizer/frmScanFiles.Designer.vb index f308cca..961e445 100644 --- a/app/DD-Record-Organiser/frmScanFiles.Designer.vb +++ b/app/DD-Record-Organizer/frmScanFiles.Designer.vb @@ -126,12 +126,12 @@ Partial Class frmScanFiles 'pdfstatuslblPageNumber ' resources.ApplyResources(Me.pdfstatuslblPageNumber, "pdfstatuslblPageNumber") - Me.pdfstatuslblPageNumber.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_red + Me.pdfstatuslblPageNumber.Image = Global.DD_Record_Organizer.My.Resources.Resources.page_red Me.pdfstatuslblPageNumber.Name = "pdfstatuslblPageNumber" ' 'ToolStripDropDownButton1 ' - Me.ToolStripDropDownButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.magifier_zoom_out + Me.ToolStripDropDownButton1.Image = Global.DD_Record_Organizer.My.Resources.Resources.magifier_zoom_out resources.ApplyResources(Me.ToolStripDropDownButton1, "ToolStripDropDownButton1") Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" ' @@ -317,7 +317,7 @@ Partial Class frmScanFiles ' 'btnrefresh ' - Me.btnrefresh.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnrefresh.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.btnrefresh, "btnrefresh") Me.btnrefresh.Name = "btnrefresh" Me.btnrefresh.UseVisualStyleBackColor = True @@ -353,7 +353,7 @@ Partial Class frmScanFiles ' 'btndelete ' - Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btndelete, "btndelete") Me.btndelete.Name = "btndelete" Me.ToolTip1.SetToolTip(Me.btndelete, resources.GetString("btndelete.ToolTip")) @@ -362,8 +362,8 @@ Partial Class frmScanFiles 'chkInFront ' resources.ApplyResources(Me.chkInFront, "chkInFront") - Me.chkInFront.Checked = Global.DD_Record_Organiser.My.MySettings.Default.User_InBoxScan_NotinFront - Me.chkInFront.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organiser.My.MySettings.Default, "User_InBoxScan_NotinFront", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkInFront.Checked = Global.DD_Record_Organizer.My.MySettings.Default.User_InBoxScan_NotinFront + Me.chkInFront.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.DD_Record_Organizer.My.MySettings.Default, "User_InBoxScan_NotinFront", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.chkInFront.Name = "chkInFront" Me.chkInFront.UseVisualStyleBackColor = True ' @@ -373,7 +373,7 @@ Partial Class frmScanFiles ' 'Button1 ' - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.ToolTip1.SetToolTip(Me.Button1, resources.GetString("Button1.ToolTip")) diff --git a/app/DD-Record-Organiser/frmScanFiles.en-US.resx b/app/DD-Record-Organizer/frmScanFiles.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmScanFiles.en-US.resx rename to app/DD-Record-Organizer/frmScanFiles.en-US.resx diff --git a/app/DD-Record-Organiser/frmScanFiles.resx b/app/DD-Record-Organizer/frmScanFiles.resx similarity index 100% rename from app/DD-Record-Organiser/frmScanFiles.resx rename to app/DD-Record-Organizer/frmScanFiles.resx diff --git a/app/DD-Record-Organiser/frmScanFiles.vb b/app/DD-Record-Organizer/frmScanFiles.vb similarity index 100% rename from app/DD-Record-Organiser/frmScanFiles.vb rename to app/DD-Record-Organizer/frmScanFiles.vb diff --git a/app/DD-Record-Organiser/frmSplash.Designer.vb b/app/DD-Record-Organizer/frmSplash.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmSplash.Designer.vb rename to app/DD-Record-Organizer/frmSplash.Designer.vb index b06b740..59797a1 100644 --- a/app/DD-Record-Organiser/frmSplash.Designer.vb +++ b/app/DD-Record-Organizer/frmSplash.Designer.vb @@ -79,14 +79,14 @@ Partial Class frmSplash ' 'PictureBox1 ' - Me.PictureBox1.Image = Global.DD_Record_Organiser.My.Resources.Resources.windream_Logo_transparent + Me.PictureBox1.Image = Global.DD_Record_Organizer.My.Resources.Resources.windream_Logo_transparent resources.ApplyResources(Me.PictureBox1, "PictureBox1") Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.TabStop = False ' 'PictureBox2 ' - Me.PictureBox2.Image = Global.DD_Record_Organiser.My.Resources.Resources.DD_Icons_ADDI + Me.PictureBox2.Image = Global.DD_Record_Organizer.My.Resources.Resources.DD_Icons_ADDI resources.ApplyResources(Me.PictureBox2, "PictureBox2") Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.TabStop = False diff --git a/app/DD-Record-Organiser/frmSplash.resx b/app/DD-Record-Organizer/frmSplash.resx similarity index 100% rename from app/DD-Record-Organiser/frmSplash.resx rename to app/DD-Record-Organizer/frmSplash.resx diff --git a/app/DD-Record-Organiser/frmSplash.vb b/app/DD-Record-Organizer/frmSplash.vb similarity index 100% rename from app/DD-Record-Organiser/frmSplash.vb rename to app/DD-Record-Organizer/frmSplash.vb diff --git a/app/DD-Record-Organiser/frmStaticListEditor.Designer.vb b/app/DD-Record-Organizer/frmStaticListEditor.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmStaticListEditor.Designer.vb rename to app/DD-Record-Organizer/frmStaticListEditor.Designer.vb diff --git a/app/DD-Record-Organiser/frmStaticListEditor.en-US.resx b/app/DD-Record-Organizer/frmStaticListEditor.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmStaticListEditor.en-US.resx rename to app/DD-Record-Organizer/frmStaticListEditor.en-US.resx diff --git a/app/DD-Record-Organiser/frmStaticListEditor.resx b/app/DD-Record-Organizer/frmStaticListEditor.resx similarity index 100% rename from app/DD-Record-Organiser/frmStaticListEditor.resx rename to app/DD-Record-Organizer/frmStaticListEditor.resx diff --git a/app/DD-Record-Organiser/frmStaticListEditor.vb b/app/DD-Record-Organizer/frmStaticListEditor.vb similarity index 100% rename from app/DD-Record-Organiser/frmStaticListEditor.vb rename to app/DD-Record-Organizer/frmStaticListEditor.vb diff --git a/app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb b/app/DD-Record-Organizer/frmStatistiscsADDI.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb rename to app/DD-Record-Organizer/frmStatistiscsADDI.Designer.vb index 3463264..6c73a94 100644 --- a/app/DD-Record-Organiser/frmStatistiscsADDI.Designer.vb +++ b/app/DD-Record-Organizer/frmStatistiscsADDI.Designer.vb @@ -32,7 +32,7 @@ Partial Class frmStatistiscsADDI Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.VWDD_LOGIN_USER_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.GridViewLoginHistory = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCLIENT_NAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -44,8 +44,8 @@ Partial Class frmStatistiscsADDI Me.colVERSION_CLIENT = New DevExpress.XtraGrid.Columns.GridColumn() Me.SplitContainerBottom = New DevExpress.XtraEditors.SplitContainerControl() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.VWDD_LOGIN_USER_HISTORYTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.VWDD_LOGIN_USER_HISTORYTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.VWDD_LOGIN_USER_HISTORYTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.VWDD_LOGIN_USER_HISTORYTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() Me.colMACHINE_NAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSER_ID = New DevExpress.XtraGrid.Columns.GridColumn() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -263,7 +263,7 @@ Partial Class frmStatistiscsADDI Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'colMACHINE_NAME ' @@ -312,10 +312,10 @@ Partial Class frmStatistiscsADDI Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewLoginHistory As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents VWDD_LOGIN_USER_HISTORYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWDD_LOGIN_USER_HISTORYTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.VWDD_LOGIN_USER_HISTORYTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents VWDD_LOGIN_USER_HISTORYTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.VWDD_LOGIN_USER_HISTORYTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colCLIENT_NAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmStatistiscsADDI.resx b/app/DD-Record-Organizer/frmStatistiscsADDI.resx similarity index 100% rename from app/DD-Record-Organiser/frmStatistiscsADDI.resx rename to app/DD-Record-Organizer/frmStatistiscsADDI.resx diff --git a/app/DD-Record-Organiser/frmStatistiscsADDI.vb b/app/DD-Record-Organizer/frmStatistiscsADDI.vb similarity index 100% rename from app/DD-Record-Organiser/frmStatistiscsADDI.vb rename to app/DD-Record-Organizer/frmStatistiscsADDI.vb diff --git a/app/DD-Record-Organiser/frmStructureNodeConfig.Designer.vb b/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmStructureNodeConfig.Designer.vb rename to app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb index 4916b5f..30aea08 100644 --- a/app/DD-Record-Organiser/frmStructureNodeConfig.Designer.vb +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb @@ -37,7 +37,7 @@ Partial Class frmStructureNodeConfig Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -67,9 +67,9 @@ Partial Class frmStructureNodeConfig Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.COMMENTTextBox = New System.Windows.Forms.TextBox() Me.TreeView1 = New System.Windows.Forms.TreeView() - Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBWH_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() + Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBWH_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() Me.cmbEntity = New System.Windows.Forms.ComboBox() GUIDLabel = New System.Windows.Forms.Label() ENTITY_IDLabel = New System.Windows.Forms.Label() @@ -519,7 +519,7 @@ Partial Class frmStructureNodeConfig Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBWH_ENTITYTableAdapter ' @@ -594,10 +594,10 @@ Partial Class frmStructureNodeConfig Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -625,7 +625,7 @@ Partial Class frmStructureNodeConfig Friend WithEvents pbBackground As System.Windows.Forms.PictureBox Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents TBWH_ENTITYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBWH_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter + Friend WithEvents TBWH_ENTITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox diff --git a/app/DD-Record-Organiser/frmStructureNodeConfig.resx b/app/DD-Record-Organizer/frmStructureNodeConfig.resx similarity index 100% rename from app/DD-Record-Organiser/frmStructureNodeConfig.resx rename to app/DD-Record-Organizer/frmStructureNodeConfig.resx diff --git a/app/DD-Record-Organiser/frmStructureNodeConfig.vb b/app/DD-Record-Organizer/frmStructureNodeConfig.vb similarity index 100% rename from app/DD-Record-Organiser/frmStructureNodeConfig.vb rename to app/DD-Record-Organizer/frmStructureNodeConfig.vb diff --git a/app/DD-Record-Organiser/frmTask_Editor.Designer.vb b/app/DD-Record-Organizer/frmTask_Editor.Designer.vb similarity index 95% rename from app/DD-Record-Organiser/frmTask_Editor.Designer.vb rename to app/DD-Record-Organizer/frmTask_Editor.Designer.vb index 2aa0730..60298d3 100644 --- a/app/DD-Record-Organiser/frmTask_Editor.Designer.vb +++ b/app/DD-Record-Organizer/frmTask_Editor.Designer.vb @@ -37,11 +37,11 @@ Partial Class frmTask_Editor Dim WF_IDLabel As System.Windows.Forms.Label Me.OK_Button = New System.Windows.Forms.Button() Me.Cancel_Button = New System.Windows.Forms.Button() - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBPMO_WORKFLOW_TASKBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_WORKFLOW_TASKTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() + Me.TBPMO_WORKFLOW_TASKTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.WF_IDTextBox = New System.Windows.Forms.TextBox() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -71,7 +71,7 @@ Partial Class frmTask_Editor Me.Label2 = New System.Windows.Forms.Label() Me.btndelete_following = New System.Windows.Forms.Button() Me.ListBoxFollowing = New System.Windows.Forms.ListBox() - Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() CHANGED_WHENLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() @@ -149,14 +149,14 @@ Partial Class frmTask_Editor 'OK_Button ' resources.ApplyResources(Me.OK_Button, "OK_Button") - Me.OK_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.OK_Button.Image = Global.DD_Record_Organizer.My.Resources.Resources.save Me.OK_Button.Name = "OK_Button" ' 'Cancel_Button ' resources.ApplyResources(Me.Cancel_Button, "Cancel_Button") Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel - Me.Cancel_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 + Me.Cancel_Button.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1 Me.Cancel_Button.Name = "Cancel_Button" ' 'DD_DMSDataSet @@ -209,7 +209,7 @@ Partial Class frmTask_Editor Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Me.TBPMO_WORKFLOW_TASK_STATETableAdapter Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_WORKFLOW_TASK_STATETableAdapter ' @@ -273,14 +273,14 @@ Partial Class frmTask_Editor ' 'btnAddAppointment ' - Me.btnAddAppointment.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632 + Me.btnAddAppointment.Image = Global.DD_Record_Organizer.My.Resources.Resources.AddTable_5632 resources.ApplyResources(Me.btnAddAppointment, "btnAddAppointment") Me.btnAddAppointment.Name = "btnAddAppointment" Me.btnAddAppointment.UseVisualStyleBackColor = True ' 'btndeleteTask ' - Me.btndeleteTask.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndeleteTask.Image = Global.DD_Record_Organizer.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndeleteTask, "btndeleteTask") Me.btndeleteTask.Name = "btndeleteTask" Me.btndeleteTask.UseVisualStyleBackColor = True @@ -369,7 +369,7 @@ Partial Class frmTask_Editor ' 'btnAddUser ' - Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left + Me.btnAddUser.Image = Global.DD_Record_Organizer.My.Resources.Resources.arrow_left resources.ApplyResources(Me.btnAddUser, "btnAddUser") Me.btnAddUser.Name = "btnAddUser" Me.btnAddUser.UseVisualStyleBackColor = True @@ -410,7 +410,7 @@ Partial Class frmTask_Editor ' 'btndeleteuser ' - Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndeleteuser.Image = Global.DD_Record_Organizer.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndeleteuser, "btndeleteuser") Me.btndeleteuser.Name = "btndeleteuser" Me.btndeleteuser.UseVisualStyleBackColor = True @@ -423,7 +423,7 @@ Partial Class frmTask_Editor ' 'btndelete_following ' - Me.btndelete_following.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete + Me.btndelete_following.Image = Global.DD_Record_Organizer.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndelete_following, "btndelete_following") Me.btndelete_following.Name = "btndelete_following" Me.btndelete_following.UseVisualStyleBackColor = True @@ -471,11 +471,11 @@ Partial Class frmTask_Editor End Sub Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents Cancel_Button As System.Windows.Forms.Button - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_WORKFLOW_TASKBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WORKFLOW_TASKTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager - Friend WithEvents TBPMO_WORKFLOW_TASK_STATETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter + Friend WithEvents TBPMO_WORKFLOW_TASKTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WORKFLOW_TASK_STATETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox @@ -503,7 +503,7 @@ Partial Class frmTask_Editor Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents ListBoxFollowing As System.Windows.Forms.ListBox Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter Friend WithEvents RECORD_IDTextBox As System.Windows.Forms.TextBox Friend WithEvents WF_IDTextBox As System.Windows.Forms.TextBox diff --git a/app/DD-Record-Organiser/frmTask_Editor.en-US.resx b/app/DD-Record-Organizer/frmTask_Editor.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmTask_Editor.en-US.resx rename to app/DD-Record-Organizer/frmTask_Editor.en-US.resx diff --git a/app/DD-Record-Organiser/frmTask_Editor.resx b/app/DD-Record-Organizer/frmTask_Editor.resx similarity index 99% rename from app/DD-Record-Organiser/frmTask_Editor.resx rename to app/DD-Record-Organizer/frmTask_Editor.resx index a20deea..9e4adeb 100644 --- a/app/DD-Record-Organiser/frmTask_Editor.resx +++ b/app/DD-Record-Organizer/frmTask_Editor.resx @@ -1679,7 +1679,7 @@ Task löschen DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WORKFLOW_TASKBindingSource @@ -1691,19 +1691,19 @@ Task löschen TBPMO_WORKFLOW_TASKTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASKTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WORKFLOW_TASK_STATETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_WF_ACTIVEBindingSource @@ -1739,7 +1739,7 @@ Task löschen VWPMO_WF_ACTIVETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmTask_Editor diff --git a/app/DD-Record-Organiser/frmTask_Editor.vb b/app/DD-Record-Organizer/frmTask_Editor.vb similarity index 100% rename from app/DD-Record-Organiser/frmTask_Editor.vb rename to app/DD-Record-Organizer/frmTask_Editor.vb diff --git a/app/DD-Record-Organiser/frmTask_Management.designer.vb b/app/DD-Record-Organizer/frmTask_Management.designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmTask_Management.designer.vb rename to app/DD-Record-Organizer/frmTask_Management.designer.vb index edc0327..9562fba 100644 --- a/app/DD-Record-Organiser/frmTask_Management.designer.vb +++ b/app/DD-Record-Organizer/frmTask_Management.designer.vb @@ -42,7 +42,7 @@ Partial Class frmTask_Management Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.TBPMO_WORKFLOWBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() @@ -109,12 +109,12 @@ Partial Class frmTask_Management Me.VWPMO_GUI_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tslbl = New System.Windows.Forms.ToolStripStatusLabel() - Me.TBPMO_WORKFLOWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.VWPMO_GUI_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter() - Me.TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter() - Me.TableAdapterManager1 = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() - Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() + Me.TBPMO_WORKFLOWTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.VWPMO_GUI_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter() + Me.TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() Me.ColorDialog1 = New System.Windows.Forms.ColorDialog() CHANGED_WHENLabel1 = New System.Windows.Forms.Label() ADDED_WHENLabel1 = New System.Windows.Forms.Label() @@ -420,7 +420,7 @@ Partial Class frmTask_Management 'btnSaveComment ' resources.ApplyResources(Me.btnSaveComment, "btnSaveComment") - Me.btnSaveComment.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.btnSaveComment.Image = Global.DD_Record_Organizer.My.Resources.Resources.save Me.btnSaveComment.Name = "btnSaveComment" Me.btnSaveComment.UseVisualStyleBackColor = True ' @@ -459,7 +459,7 @@ Partial Class frmTask_Management 'btnAddWorkflowConfig ' resources.ApplyResources(Me.btnAddWorkflowConfig, "btnAddWorkflowConfig") - Me.btnAddWorkflowConfig.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.btnAddWorkflowConfig.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.btnAddWorkflowConfig.Name = "btnAddWorkflowConfig" Me.btnAddWorkflowConfig.UseVisualStyleBackColor = True ' @@ -499,7 +499,7 @@ Partial Class frmTask_Management ' resources.ApplyResources(Me.btndeleteEntityWorkflow, "btndeleteEntityWorkflow") Me.btndeleteEntityWorkflow.ForeColor = System.Drawing.Color.Firebrick - Me.btndeleteEntityWorkflow.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndeleteEntityWorkflow.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.btndeleteEntityWorkflow.Name = "btndeleteEntityWorkflow" Me.btndeleteEntityWorkflow.UseVisualStyleBackColor = True ' @@ -511,7 +511,7 @@ Partial Class frmTask_Management ' 'btncolordialog ' - Me.btncolordialog.Image = Global.DD_Record_Organiser.My.Resources.Resources.color_wheel + Me.btncolordialog.Image = Global.DD_Record_Organizer.My.Resources.Resources.color_wheel resources.ApplyResources(Me.btncolordialog, "btncolordialog") Me.btncolordialog.Name = "btncolordialog" Me.btncolordialog.UseVisualStyleBackColor = True @@ -712,7 +712,7 @@ Partial Class frmTask_Management 'tsbtnrefresh_Stati ' Me.tsbtnrefresh_Stati.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnrefresh_Stati.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tsbtnrefresh_Stati.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.tsbtnrefresh_Stati, "tsbtnrefresh_Stati") Me.tsbtnrefresh_Stati.Name = "tsbtnrefresh_Stati" ' @@ -729,7 +729,7 @@ Partial Class frmTask_Management ' 'tslbl ' - Me.tslbl.Image = Global.DD_Record_Organiser.My.Resources.Resources.lightbulb + Me.tslbl.Image = Global.DD_Record_Organizer.My.Resources.Resources.lightbulb Me.tslbl.Name = "tslbl" resources.ApplyResources(Me.tslbl, "tslbl") ' @@ -775,7 +775,7 @@ Partial Class frmTask_Management Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Me.TBPMO_WORKFLOWTableAdapter - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'VWPMO_GUI_ENTITYTableAdapter ' @@ -791,7 +791,7 @@ Partial Class frmTask_Management Me.TableAdapterManager1.Connection = Nothing Me.TableAdapterManager1.TBPMO_APPOINTMENTSTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_RESOURCESTableAdapter = Nothing - Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_WORKFLOW_TASK_STATETableAdapter ' @@ -841,10 +841,10 @@ Partial Class frmTask_Management Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslbl As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_WORKFLOWBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WORKFLOWTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WORKFLOWTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_WORKFLOWBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -859,13 +859,13 @@ Partial Class frmTask_Management Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPMO_WORKFLOWBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton Friend WithEvents VWPMO_GUI_ENTITYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_GUI_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter + Friend WithEvents VWPMO_GUI_ENTITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter - Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager + Friend WithEvents TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter + Friend WithEvents TableAdapterManager1 As DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager Friend WithEvents TBPMO_WORKFLOW_TASK_STATEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WORKFLOW_TASK_STATETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter + Friend WithEvents TBPMO_WORKFLOW_TASK_STATETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter Friend WithEvents TBPMO_WORKFLOW_TASK_STATEBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel diff --git a/app/DD-Record-Organiser/frmTask_Management.en-US.resx b/app/DD-Record-Organizer/frmTask_Management.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmTask_Management.en-US.resx rename to app/DD-Record-Organizer/frmTask_Management.en-US.resx diff --git a/app/DD-Record-Organiser/frmTask_Management.resx b/app/DD-Record-Organizer/frmTask_Management.resx similarity index 99% rename from app/DD-Record-Organiser/frmTask_Management.resx rename to app/DD-Record-Organizer/frmTask_Management.resx index b5c92e6..37c71ae 100644 --- a/app/DD-Record-Organiser/frmTask_Management.resx +++ b/app/DD-Record-Organizer/frmTask_Management.resx @@ -2070,7 +2070,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorAddNewItem @@ -2244,37 +2244,37 @@ TBPMO_WORKFLOWTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_GUI_ENTITYTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager1 - DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager, DD_DMSDataSetCalendar.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager, DD_DMSDataSetCalendar.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WORKFLOW_TASK_STATETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ColorDialog1 diff --git a/app/DD-Record-Organiser/frmTask_Management.vb b/app/DD-Record-Organizer/frmTask_Management.vb similarity index 100% rename from app/DD-Record-Organiser/frmTask_Management.vb rename to app/DD-Record-Organizer/frmTask_Management.vb diff --git a/app/DD-Record-Organiser/frmTask_Overview.designer.vb b/app/DD-Record-Organizer/frmTask_Overview.designer.vb similarity index 95% rename from app/DD-Record-Organiser/frmTask_Overview.designer.vb rename to app/DD-Record-Organizer/frmTask_Overview.designer.vb index d94f6bc..2ace6b6 100644 --- a/app/DD-Record-Organiser/frmTask_Overview.designer.vb +++ b/app/DD-Record-Organizer/frmTask_Overview.designer.vb @@ -31,9 +31,9 @@ Partial Class frmTask_Overview Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) Me.VWPMO_WF_OVERVIEW_AUTHORITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() - Me.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() + Me.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.ListViewDone = New System.Windows.Forms.ListView() @@ -129,7 +129,7 @@ Partial Class frmTask_Overview Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'GroupBox1 ' @@ -192,7 +192,7 @@ Partial Class frmTask_Overview 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.bricks + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.bricks Me.Button1.Name = "Button1" Me.ToolTip1.SetToolTip(Me.Button1, resources.GetString("Button1.ToolTip")) Me.Button1.UseVisualStyleBackColor = True @@ -200,7 +200,7 @@ Partial Class frmTask_Overview 'chkinFront ' resources.ApplyResources(Me.chkinFront, "chkinFront") - Me.chkinFront.Image = Global.DD_Record_Organiser.My.Resources.Resources._138_PushPin_32x42_72 + Me.chkinFront.Image = Global.DD_Record_Organizer.My.Resources.Resources._138_PushPin_32x42_72 Me.chkinFront.Name = "chkinFront" Me.ToolTip1.SetToolTip(Me.chkinFront, resources.GetString("chkinFront.ToolTip")) Me.chkinFront.UseVisualStyleBackColor = True @@ -235,10 +235,10 @@ Partial Class frmTask_Overview Friend WithEvents chkinFront As System.Windows.Forms.CheckBox Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents VWPMO_WF_OVERVIEW_AUTHORITYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents ListViewActive As System.Windows.Forms.ListView Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader diff --git a/app/DD-Record-Organiser/frmTask_Overview.en-US.resx b/app/DD-Record-Organizer/frmTask_Overview.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmTask_Overview.en-US.resx rename to app/DD-Record-Organizer/frmTask_Overview.en-US.resx diff --git a/app/DD-Record-Organiser/frmTask_Overview.resx b/app/DD-Record-Organizer/frmTask_Overview.resx similarity index 99% rename from app/DD-Record-Organiser/frmTask_Overview.resx rename to app/DD-Record-Organizer/frmTask_Overview.resx index 32c5c32..cfe5ae2 100644 --- a/app/DD-Record-Organiser/frmTask_Overview.resx +++ b/app/DD-Record-Organizer/frmTask_Overview.resx @@ -178,7 +178,7 @@ 0, 0 - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GroupBox2 @@ -371,7 +371,7 @@ User - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 631, 421 @@ -440,7 +440,7 @@ chkinFront - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null $this diff --git a/app/DD-Record-Organiser/frmTask_Overview.vb b/app/DD-Record-Organizer/frmTask_Overview.vb similarity index 100% rename from app/DD-Record-Organiser/frmTask_Overview.vb rename to app/DD-Record-Organizer/frmTask_Overview.vb diff --git a/app/DD-Record-Organiser/frmTemplates.Designer.vb b/app/DD-Record-Organizer/frmTemplates.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmTemplates.Designer.vb rename to app/DD-Record-Organizer/frmTemplates.Designer.vb index 773e652..a0456aa 100644 --- a/app/DD-Record-Organiser/frmTemplates.Designer.vb +++ b/app/DD-Record-Organizer/frmTemplates.Designer.vb @@ -39,10 +39,10 @@ Partial Class frmTemplates Dim CONNECTION_IDLabel As System.Windows.Forms.Label Dim SQL_COMMANDLabel As System.Windows.Forms.Label Dim Label5 As System.Windows.Forms.Label - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBPMO_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_TEMPLATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATETableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_TEMPLATETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATETableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBPMO_TEMPLATEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -60,9 +60,9 @@ Partial Class frmTemplates Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.TBPMO_TEMPLATE_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_TEMPLATE_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_ENTITYTableAdapter() + Me.TBPMO_TEMPLATE_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_ENTITYTableAdapter() Me.TBPMO_TEMPLATE_PATTERNBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_TEMPLATE_PATTERNTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_PATTERNTableAdapter() + Me.TBPMO_TEMPLATE_PATTERNTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_PATTERNTableAdapter() Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.TEMPLATE_PATHTextBox = New System.Windows.Forms.TextBox() Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() @@ -74,8 +74,8 @@ Partial Class frmTemplates Me.VWPMO_GUI_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DOCTYPE_IDComboBox = New System.Windows.Forms.ComboBox() Me.VWPMO_DOKUMENTTYPESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_DOKUMENTTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter() - Me.VWPMO_GUI_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter() + Me.VWPMO_DOKUMENTTYPESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter() + Me.VWPMO_GUI_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter() Me.ListBox_Entity = New System.Windows.Forms.ListBox() Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() @@ -111,7 +111,7 @@ Partial Class frmTemplates Me.Panel2 = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() Me.cmbControls = New System.Windows.Forms.ComboBox() - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.DT_VORSCHAUBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.ListBoxVorschau = New System.Windows.Forms.ListBox() Me.FIXED_VALUETextBox = New System.Windows.Forms.TextBox() @@ -268,7 +268,7 @@ Partial Class frmTemplates Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_TEMPLATEBindingNavigator ' @@ -565,7 +565,7 @@ Partial Class frmTemplates ' resources.ApplyResources(Me.ToolStripButton16, "ToolStripButton16") Me.ToolStripButton16.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton16.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton16.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG Me.ToolStripButton16.Name = "ToolStripButton16" ' 'ToolStripSeparator1 @@ -576,7 +576,7 @@ Partial Class frmTemplates 'tsbtnGetPatterns ' resources.ApplyResources(Me.tsbtnGetPatterns, "tsbtnGetPatterns") - Me.tsbtnGetPatterns.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_Forward_16xLG + Me.tsbtnGetPatterns.Image = Global.DD_Record_Organizer.My.Resources.Resources.arrow_Forward_16xLG Me.tsbtnGetPatterns.Name = "tsbtnGetPatterns" ' 'GUIDTextBox2 @@ -681,7 +681,7 @@ Partial Class frmTemplates 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' @@ -694,7 +694,7 @@ Partial Class frmTemplates 'btndeleteEntityZO ' resources.ApplyResources(Me.btndeleteEntityZO, "btndeleteEntityZO") - Me.btndeleteEntityZO.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndeleteEntityZO.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete Me.btndeleteEntityZO.Name = "btndeleteEntityZO" Me.btndeleteEntityZO.UseVisualStyleBackColor = True ' @@ -760,7 +760,7 @@ Partial Class frmTemplates 'btnRefreshControlPattern ' resources.ApplyResources(Me.btnRefreshControlPattern, "btnRefreshControlPattern") - Me.btnRefreshControlPattern.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.btnRefreshControlPattern.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.btnRefreshControlPattern.Name = "btnRefreshControlPattern" Me.btnRefreshControlPattern.UseVisualStyleBackColor = True ' @@ -820,10 +820,10 @@ Partial Class frmTemplates Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_TEMPLATEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_TEMPLATETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATETableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_TEMPLATETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_TEMPLATEBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -840,9 +840,9 @@ Partial Class frmTemplates Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents TBPMO_TEMPLATE_ENTITYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_TEMPLATE_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_ENTITYTableAdapter + Friend WithEvents TBPMO_TEMPLATE_ENTITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_ENTITYTableAdapter Friend WithEvents TBPMO_TEMPLATE_PATTERNBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_TEMPLATE_PATTERNTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_PATTERNTableAdapter + Friend WithEvents TBPMO_TEMPLATE_PATTERNTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_PATTERNTableAdapter Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox Friend WithEvents TEMPLATE_PATHTextBox As System.Windows.Forms.TextBox Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox @@ -853,9 +853,9 @@ Partial Class frmTemplates Friend WithEvents cmbEntities As System.Windows.Forms.ComboBox Friend WithEvents DOCTYPE_IDComboBox As System.Windows.Forms.ComboBox Friend WithEvents VWPMO_DOKUMENTTYPESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_DOKUMENTTYPESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter + Friend WithEvents VWPMO_DOKUMENTTYPESTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter Friend WithEvents VWPMO_GUI_ENTITYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_GUI_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter + Friend WithEvents VWPMO_GUI_ENTITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter Friend WithEvents ListBox_Entity As System.Windows.Forms.ListBox Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel @@ -890,7 +890,7 @@ Partial Class frmTemplates Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents cmbControls As System.Windows.Forms.ComboBox - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents DT_VORSCHAUBindingSource As System.Windows.Forms.BindingSource Friend WithEvents ListBoxVorschau As System.Windows.Forms.ListBox Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator diff --git a/app/DD-Record-Organiser/frmTemplates.en-US.resx b/app/DD-Record-Organizer/frmTemplates.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmTemplates.en-US.resx rename to app/DD-Record-Organizer/frmTemplates.en-US.resx diff --git a/app/DD-Record-Organiser/frmTemplates.resx b/app/DD-Record-Organizer/frmTemplates.resx similarity index 99% rename from app/DD-Record-Organiser/frmTemplates.resx rename to app/DD-Record-Organizer/frmTemplates.resx index 3a55666..8a67001 100644 --- a/app/DD-Record-Organiser/frmTemplates.resx +++ b/app/DD-Record-Organizer/frmTemplates.resx @@ -614,7 +614,7 @@ 6, 25 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_ENTITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_ENTITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GroupBox1 @@ -838,7 +838,7 @@ Panel1 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_PATTERNTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATE_PATTERNTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 78 @@ -1271,7 +1271,7 @@ MiddleLeft - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_TEMPLATETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null @@ -1373,7 +1373,7 @@ Vorherige verschieben - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null $this @@ -1496,7 +1496,7 @@ Panel1 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 189, 159 @@ -1559,7 +1559,7 @@ 23 - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 302, 521 @@ -1817,7 +1817,7 @@ 0 - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 177, 154 @@ -1896,7 +1896,7 @@ BindingNavigatorMovePreviousItem - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 23, 22 diff --git a/app/DD-Record-Organiser/frmTemplates.vb b/app/DD-Record-Organizer/frmTemplates.vb similarity index 100% rename from app/DD-Record-Organiser/frmTemplates.vb rename to app/DD-Record-Organizer/frmTemplates.vb diff --git a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb b/app/DD-Record-Organizer/frmUserKonfig.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmUserKonfig.Designer.vb rename to app/DD-Record-Organizer/frmUserKonfig.Designer.vb index f4122ac..850a686 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb +++ b/app/DD-Record-Organizer/frmUserKonfig.Designer.vb @@ -55,10 +55,10 @@ Partial Class frmUserKonfig Dim COMMENTLabel2 As System.Windows.Forms.Label Dim DATE_FORMATLabel As System.Windows.Forms.Label Dim LOG_OUT_WHENLabel As System.Windows.Forms.Label - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_USERTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBDD_USERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -101,7 +101,7 @@ Partial Class frmUserKonfig Me.TabPage2 = New System.Windows.Forms.TabPage() Me.GridControlWH_Users1 = New DevExpress.XtraGrid.GridControl() Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.GridViewWH_Users1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -194,14 +194,14 @@ Partial Class frmUserKonfig Me.Label17 = New System.Windows.Forms.Label() Me.cmbClientsforUser = New System.Windows.Forms.ComboBox() Me.VWPMO_USERS_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() - Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter() + Me.TBDD_USER_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() + Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter() Me.lblsave = New System.Windows.Forms.Label() Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.Label5 = New System.Windows.Forms.Label() Me.lstbxUserMandant = New System.Windows.Forms.ListBox() - Me.TBDD_CLIENTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter() + Me.TBDD_CLIENTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -511,7 +511,7 @@ Partial Class frmUserKonfig Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_USERBindingNavigator ' @@ -599,14 +599,14 @@ Partial Class frmUserKonfig 'tbRefreshUsers ' Me.tbRefreshUsers.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tbRefreshUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.tbRefreshUsers.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.tbRefreshUsers, "tbRefreshUsers") Me.tbRefreshUsers.Name = "tbRefreshUsers" ' 'tsAddUser ' Me.tsAddUser.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3 + Me.tsAddUser.Image = Global.DD_Record_Organizer.My.Resources.Resources.benutzer3 resources.ApplyResources(Me.tsAddUser, "tsAddUser") Me.tsAddUser.Name = "tsAddUser" ' @@ -744,7 +744,7 @@ Partial Class frmUserKonfig ' 'btnRemoveUserFromGroup ' - Me.btnRemoveUserFromGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btnRemoveUserFromGroup.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btnRemoveUserFromGroup, "btnRemoveUserFromGroup") Me.btnRemoveUserFromGroup.Name = "btnRemoveUserFromGroup" Me.btnRemoveUserFromGroup.UseVisualStyleBackColor = True @@ -770,7 +770,7 @@ Partial Class frmUserKonfig ' 'btnAddUserToGroup ' - Me.btnAddUserToGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnAddUserToGroup.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1 resources.ApplyResources(Me.btnAddUserToGroup, "btnAddUserToGroup") Me.btnAddUserToGroup.Name = "btnAddUserToGroup" Me.btnAddUserToGroup.UseVisualStyleBackColor = True @@ -917,7 +917,7 @@ Partial Class frmUserKonfig ' 'btndeleteUserfromGroup ' - Me.btndeleteUserfromGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndeleteUserfromGroup.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btndeleteUserfromGroup, "btndeleteUserfromGroup") Me.btndeleteUserfromGroup.Name = "btndeleteUserfromGroup" Me.btndeleteUserfromGroup.UseVisualStyleBackColor = True @@ -929,7 +929,7 @@ Partial Class frmUserKonfig ' 'btnaddSelectedUser2Group ' - Me.btnaddSelectedUser2Group.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnaddSelectedUser2Group.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1 resources.ApplyResources(Me.btnaddSelectedUser2Group, "btnaddSelectedUser2Group") Me.btnaddSelectedUser2Group.Name = "btnaddSelectedUser2Group" Me.btnaddSelectedUser2Group.UseVisualStyleBackColor = True @@ -1136,7 +1136,7 @@ Partial Class frmUserKonfig 'ToolStripButton8 ' Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton8.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton8.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton8, "ToolStripButton8") Me.ToolStripButton8.Name = "ToolStripButton8" ' @@ -1264,7 +1264,7 @@ Partial Class frmUserKonfig 'ToolStripButton24 ' Me.ToolStripButton24.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton24.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton24.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton24, "ToolStripButton24") Me.ToolStripButton24.Name = "ToolStripButton24" ' @@ -1467,7 +1467,7 @@ Partial Class frmUserKonfig ' 'btndeleteUserfromClient ' - Me.btndeleteUserfromClient.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndeleteUserfromClient.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete resources.ApplyResources(Me.btndeleteUserfromClient, "btndeleteUserfromClient") Me.btndeleteUserfromClient.Name = "btndeleteUserfromClient" Me.btndeleteUserfromClient.UseVisualStyleBackColor = True @@ -1479,7 +1479,7 @@ Partial Class frmUserKonfig ' 'btnsaddUser2Client ' - Me.btnsaddUser2Client.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnsaddUser2Client.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1 resources.ApplyResources(Me.btnsaddUser2Client, "btnsaddUser2Client") Me.btnsaddUser2Client.Name = "btnsaddUser2Client" Me.btnsaddUser2Client.UseVisualStyleBackColor = True @@ -1713,14 +1713,14 @@ Partial Class frmUserKonfig ' 'btnopenfolder ' - Me.btnopenfolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnopenfolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG resources.ApplyResources(Me.btnopenfolder, "btnopenfolder") Me.btnopenfolder.Name = "btnopenfolder" Me.btnopenfolder.UseVisualStyleBackColor = True ' 'btnUpdatePath ' - Me.btnUpdatePath.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnUpdatePath.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1 resources.ApplyResources(Me.btnUpdatePath, "btnUpdatePath") Me.btnUpdatePath.Name = "btnUpdatePath" Me.btnUpdatePath.UseVisualStyleBackColor = True @@ -1844,10 +1844,10 @@ Partial Class frmUserKonfig Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBDD_USERBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -1879,12 +1879,12 @@ Partial Class frmUserKonfig Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents TBDD_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USER_GROUPSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter + Friend WithEvents TBDD_USER_GROUPSTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents btnAddUserToGroup As System.Windows.Forms.Button Friend WithEvents cmbGroup As System.Windows.Forms.ComboBox Friend WithEvents VWPMO_USERS_GROUPSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_USERS_GROUPSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter + Friend WithEvents VWPMO_USERS_GROUPSTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter Friend WithEvents lbGroups As System.Windows.Forms.ListBox Friend WithEvents btnRemoveUserFromGroup As System.Windows.Forms.Button Friend WithEvents Label2 As System.Windows.Forms.Label @@ -1926,7 +1926,7 @@ Partial Class frmUserKonfig Friend WithEvents lblUserforGroup As System.Windows.Forms.Label Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents TBDD_CLIENTBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_CLIENTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter + Friend WithEvents TBDD_CLIENTTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox Friend WithEvents ADDED_WHOTextBox2 As System.Windows.Forms.TextBox @@ -1970,7 +1970,7 @@ Partial Class frmUserKonfig Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridControlWH_Users1 As DevExpress.XtraGrid.GridControl diff --git a/app/DD-Record-Organiser/frmUserKonfig.en-US.resx b/app/DD-Record-Organizer/frmUserKonfig.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmUserKonfig.en-US.resx rename to app/DD-Record-Organizer/frmUserKonfig.en-US.resx diff --git a/app/DD-Record-Organiser/frmUserKonfig.resx b/app/DD-Record-Organizer/frmUserKonfig.resx similarity index 99% rename from app/DD-Record-Organiser/frmUserKonfig.resx rename to app/DD-Record-Organizer/frmUserKonfig.resx index 97253c0..f92126a 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.resx +++ b/app/DD-Record-Organizer/frmUserKonfig.resx @@ -5066,7 +5066,7 @@ Mandant hinzufügen DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_USERBindingSource @@ -5078,13 +5078,13 @@ Mandant hinzufügen TBDD_USERTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorAddNewItem @@ -5186,7 +5186,7 @@ Mandant hinzufügen DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridViewWH_Users1 @@ -5504,13 +5504,13 @@ Mandant hinzufügen TBDD_USER_GROUPSTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_USERS_GROUPSTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_GROUPS_USERBindingSource @@ -5522,7 +5522,7 @@ Mandant hinzufügen TBDD_CLIENTTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridView1 diff --git a/app/DD-Record-Organiser/frmUserKonfig.vb b/app/DD-Record-Organizer/frmUserKonfig.vb similarity index 100% rename from app/DD-Record-Organiser/frmUserKonfig.vb rename to app/DD-Record-Organizer/frmUserKonfig.vb diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb b/app/DD-Record-Organizer/frmUserKonfig_AddUsers.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb rename to app/DD-Record-Organizer/frmUserKonfig_AddUsers.Designer.vb index 1984cf2..3485413 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb +++ b/app/DD-Record-Organizer/frmUserKonfig_AddUsers.Designer.vb @@ -30,7 +30,7 @@ Partial Class frmUserKonfig_AddUsers Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() Me.GridControlUsers = New DevExpress.XtraGrid.GridControl() Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn() @@ -221,14 +221,14 @@ Partial Class frmUserKonfig_AddUsers 'btnCancel ' resources.ApplyResources(Me.btnCancel, "btnCancel") - Me.btnCancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 + Me.btnCancel.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1 Me.btnCancel.Name = "btnCancel" Me.btnCancel.UseVisualStyleBackColor = True ' 'btnAddUsers ' resources.ApplyResources(Me.btnAddUsers, "btnAddUsers") - Me.btnAddUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btnAddUsers.Image = Global.DD_Record_Organizer.My.Resources.Resources.add1 Me.btnAddUsers.Name = "btnAddUsers" Me.btnAddUsers.UseVisualStyleBackColor = True ' @@ -282,7 +282,7 @@ Partial Class frmUserKonfig_AddUsers Friend WithEvents GridControlUsers As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewUsers As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPrename As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx b/app/DD-Record-Organizer/frmUserKonfig_AddUsers.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx rename to app/DD-Record-Organizer/frmUserKonfig_AddUsers.en-US.resx diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx b/app/DD-Record-Organizer/frmUserKonfig_AddUsers.resx similarity index 99% rename from app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx rename to app/DD-Record-Organizer/frmUserKonfig_AddUsers.resx index e1c6276..e5d77b3 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx +++ b/app/DD-Record-Organizer/frmUserKonfig_AddUsers.resx @@ -983,7 +983,7 @@ DD_ECMAdmin - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null GridViewUsers diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb b/app/DD-Record-Organizer/frmUserKonfig_AddUsers.vb similarity index 100% rename from app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb rename to app/DD-Record-Organizer/frmUserKonfig_AddUsers.vb diff --git a/app/DD-Record-Organiser/frmViewsUser.Designer.vb b/app/DD-Record-Organizer/frmViewsUser.Designer.vb similarity index 99% rename from app/DD-Record-Organiser/frmViewsUser.Designer.vb rename to app/DD-Record-Organizer/frmViewsUser.Designer.vb index c99df44..89b3a79 100644 --- a/app/DD-Record-Organiser/frmViewsUser.Designer.vb +++ b/app/DD-Record-Organizer/frmViewsUser.Designer.vb @@ -33,7 +33,7 @@ Partial Class frmViewsUser Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn() @@ -331,7 +331,7 @@ Partial Class frmViewsUser Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBWH_Users1BindingSource As System.Windows.Forms.BindingSource Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage diff --git a/app/DD-Record-Organiser/frmViewsUser.resx b/app/DD-Record-Organizer/frmViewsUser.resx similarity index 100% rename from app/DD-Record-Organiser/frmViewsUser.resx rename to app/DD-Record-Organizer/frmViewsUser.resx diff --git a/app/DD-Record-Organiser/frmViewsUser.vb b/app/DD-Record-Organizer/frmViewsUser.vb similarity index 100% rename from app/DD-Record-Organiser/frmViewsUser.vb rename to app/DD-Record-Organizer/frmViewsUser.vb diff --git a/app/DD-Record-Organiser/frmWD_ChangeDoctype.Designer.vb b/app/DD-Record-Organizer/frmWD_ChangeDoctype.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmWD_ChangeDoctype.Designer.vb rename to app/DD-Record-Organizer/frmWD_ChangeDoctype.Designer.vb index feebe1e..199d89e 100644 --- a/app/DD-Record-Organiser/frmWD_ChangeDoctype.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_ChangeDoctype.Designer.vb @@ -33,7 +33,7 @@ Partial Class frmWD_ChangeDoctype 'OK_Button ' resources.ApplyResources(Me.OK_Button, "OK_Button") - Me.OK_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.key_go + Me.OK_Button.Image = Global.DD_Record_Organizer.My.Resources.Resources.key_go Me.OK_Button.Name = "OK_Button" ' 'Cancel_Button diff --git a/app/DD-Record-Organiser/frmWD_ChangeDoctype.en-US.resx b/app/DD-Record-Organizer/frmWD_ChangeDoctype.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_ChangeDoctype.en-US.resx rename to app/DD-Record-Organizer/frmWD_ChangeDoctype.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_ChangeDoctype.resx b/app/DD-Record-Organizer/frmWD_ChangeDoctype.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_ChangeDoctype.resx rename to app/DD-Record-Organizer/frmWD_ChangeDoctype.resx diff --git a/app/DD-Record-Organiser/frmWD_ChangeDoctype.vb b/app/DD-Record-Organizer/frmWD_ChangeDoctype.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_ChangeDoctype.vb rename to app/DD-Record-Organizer/frmWD_ChangeDoctype.vb diff --git a/app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb b/app/DD-Record-Organizer/frmWD_CreateVersion.designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb rename to app/DD-Record-Organizer/frmWD_CreateVersion.designer.vb index 4f9f91c..ccad5e2 100644 --- a/app/DD-Record-Organiser/frmWD_CreateVersion.designer.vb +++ b/app/DD-Record-Organizer/frmWD_CreateVersion.designer.vb @@ -42,7 +42,7 @@ Partial Class frmWD_CreateVersion 'btnOK ' resources.ApplyResources(Me.btnOK, "btnOK") - Me.btnOK.Image = Global.DD_Record_Organiser.My.Resources.Resources.key_go + Me.btnOK.Image = Global.DD_Record_Organizer.My.Resources.Resources.key_go Me.btnOK.Name = "btnOK" Me.btnOK.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmWD_CreateVersion.en-US.resx b/app/DD-Record-Organizer/frmWD_CreateVersion.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_CreateVersion.en-US.resx rename to app/DD-Record-Organizer/frmWD_CreateVersion.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_CreateVersion.resx b/app/DD-Record-Organizer/frmWD_CreateVersion.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_CreateVersion.resx rename to app/DD-Record-Organizer/frmWD_CreateVersion.resx diff --git a/app/DD-Record-Organiser/frmWD_CreateVersion.vb b/app/DD-Record-Organizer/frmWD_CreateVersion.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_CreateVersion.vb rename to app/DD-Record-Organizer/frmWD_CreateVersion.vb diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb b/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb rename to app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb index b21da54..7bf83fb 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb @@ -46,7 +46,7 @@ Partial Class frmWD_Dokumentart_Konfig Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() @@ -84,10 +84,10 @@ Partial Class frmWD_Dokumentart_Konfig Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_EINGANGSARTENTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBDD_DOKUMENTARTTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter() - Me.TBDD_INDEX_AUTOMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.TBDD_EINGANGSARTENTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_DOKUMENTARTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter() + Me.TBDD_INDEX_AUTOMTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() @@ -184,9 +184,9 @@ Partial Class frmWD_Dokumentart_Konfig Me.Label18 = New System.Windows.Forms.Label() Me.cmbCrFolderIndex = New System.Windows.Forms.ComboBox() Me.Label17 = New System.Windows.Forms.Label() - Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() - Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter() - Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter() + Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() + Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter() + Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter() Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) GUIDLabel = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label() @@ -422,14 +422,14 @@ Partial Class frmWD_Dokumentart_Konfig 'ToolStripButton16 ' Me.ToolStripButton16.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton16.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton16.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton16, "ToolStripButton16") Me.ToolStripButton16.Name = "ToolStripButton16" ' 'ToolStripButton17 ' Me.ToolStripButton17.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripButton17.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton17.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton17, "ToolStripButton17") Me.ToolStripButton17.Name = "ToolStripButton17" ' @@ -511,7 +511,7 @@ Partial Class frmWD_Dokumentart_Konfig 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xMD + Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xMD Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' @@ -545,7 +545,7 @@ Partial Class frmWD_Dokumentart_Konfig ' resources.ApplyResources(Me.btnNamenkonvention, "btnNamenkonvention") Me.btnNamenkonvention.ForeColor = System.Drawing.Color.Crimson - Me.btnNamenkonvention.Image = Global.DD_Record_Organiser.My.Resources.Resources.FileSystemEditor_5852 + Me.btnNamenkonvention.Image = Global.DD_Record_Organizer.My.Resources.Resources.FileSystemEditor_5852 Me.btnNamenkonvention.Name = "btnNamenkonvention" Me.btnNamenkonvention.TabStop = False Me.btnNamenkonvention.UseVisualStyleBackColor = True @@ -681,7 +681,7 @@ Partial Class frmWD_Dokumentart_Konfig Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_DOKUMENTARTTableAdapter ' @@ -774,7 +774,7 @@ Partial Class frmWD_Dokumentart_Konfig ' 'Button2 ' - Me.Button2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.Button2.Image = Global.DD_Record_Organizer.My.Resources.Resources.save resources.ApplyResources(Me.Button2, "Button2") Me.Button2.Name = "Button2" Me.Button2.UseVisualStyleBackColor = True @@ -789,7 +789,7 @@ Partial Class frmWD_Dokumentart_Konfig 'btnAddIndexA ' resources.ApplyResources(Me.btnAddIndexA, "btnAddIndexA") - Me.btnAddIndexA.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddIndexA.Image = Global.DD_Record_Organizer.My.Resources.Resources.add Me.btnAddIndexA.Name = "btnAddIndexA" Me.btnAddIndexA.UseVisualStyleBackColor = True ' @@ -1179,7 +1179,7 @@ Partial Class frmWD_Dokumentart_Konfig ' 'btnAddDokart_Entity ' - Me.btnAddDokart_Entity.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.btnAddDokart_Entity.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG resources.ApplyResources(Me.btnAddDokart_Entity, "btnAddDokart_Entity") Me.btnAddDokart_Entity.Name = "btnAddDokart_Entity" Me.btnAddDokart_Entity.UseVisualStyleBackColor = False @@ -1278,7 +1278,7 @@ Partial Class frmWD_Dokumentart_Konfig 'ToolStripButton15 ' Me.ToolStripButton15.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton15.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton15.Image = Global.DD_Record_Organizer.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButton15, "ToolStripButton15") Me.ToolStripButton15.Name = "ToolStripButton15" ' @@ -1300,7 +1300,7 @@ Partial Class frmWD_Dokumentart_Konfig ' 'Button3 ' - Me.Button3.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.Button3.Image = Global.DD_Record_Organizer.My.Resources.Resources.save resources.ApplyResources(Me.Button3, "Button3") Me.Button3.Name = "Button3" Me.Button3.UseVisualStyleBackColor = True @@ -1349,7 +1349,7 @@ Partial Class frmWD_Dokumentart_Konfig 'btnaddcrFolderParameter ' resources.ApplyResources(Me.btnaddcrFolderParameter, "btnaddcrFolderParameter") - Me.btnaddcrFolderParameter.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.btnaddcrFolderParameter.Image = Global.DD_Record_Organizer.My.Resources.Resources.action_add_16xLG Me.btnaddcrFolderParameter.Name = "btnaddcrFolderParameter" Me.btnaddcrFolderParameter.UseVisualStyleBackColor = True ' @@ -1433,10 +1433,10 @@ Partial Class frmWD_Dokumentart_Konfig Me.PerformLayout() End Sub - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBDD_EINGANGSARTENBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_EINGANGSARTENTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_EINGANGSARTENTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBDD_DOKUMENTARTBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -1450,9 +1450,9 @@ Partial Class frmWD_Dokumentart_Konfig Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBDD_EINGANGSARTENBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton - Friend WithEvents TBDD_DOKUMENTARTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter + Friend WithEvents TBDD_DOKUMENTARTTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter Friend WithEvents TBDD_DOKUMENTARTBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox @@ -1508,9 +1508,9 @@ Partial Class frmWD_Dokumentart_Konfig Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter + Friend WithEvents TBPMO_FORM_VIEWTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter + Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter Friend WithEvents cmbEntity_Doctype As System.Windows.Forms.ComboBox Friend WithEvents btnAddDokart_Entity As System.Windows.Forms.Button Friend WithEvents TBPMO_WD_FORMVIEW_DOKTYPESDataGridView As System.Windows.Forms.DataGridView @@ -1532,7 +1532,7 @@ Partial Class frmWD_Dokumentart_Konfig Friend WithEvents ToolStripButton16 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton17 As System.Windows.Forms.ToolStripButton Friend WithEvents TBWH_DOKART_MODULEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBWH_DOKART_MODULETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter + Friend WithEvents TBWH_DOKART_MODULETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents ListBox3 As System.Windows.Forms.ListBox Friend WithEvents Button1 As System.Windows.Forms.Button diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.en-US.resx b/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.en-US.resx rename to app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx b/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx similarity index 99% rename from app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx rename to app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx index 4ff67a8..3f5c987 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx +++ b/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx @@ -3316,7 +3316,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorCountItem @@ -3430,25 +3430,25 @@ TBDD_EINGANGSARTENTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_DOKUMENTARTTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_INDEX_AUTOMTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_INDEX_AUTOMBindingSource @@ -3742,19 +3742,19 @@ TBPMO_FORM_VIEWTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBWH_DOKART_MODULETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ToolTipController1 diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb b/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb rename to app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.vb diff --git a/app/DD-Record-Organiser/frmWD_EntityImport.Designer.vb b/app/DD-Record-Organizer/frmWD_EntityImport.Designer.vb similarity index 92% rename from app/DD-Record-Organiser/frmWD_EntityImport.Designer.vb rename to app/DD-Record-Organizer/frmWD_EntityImport.Designer.vb index 5d3409f..e7e1a2c 100644 --- a/app/DD-Record-Organiser/frmWD_EntityImport.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_EntityImport.Designer.vb @@ -137,50 +137,50 @@ Partial Class frmWD_EntityImport 'cmbObjekttyp ' resources.ApplyResources(Me.cmbObjekttyp, "cmbObjekttyp") - Me.cmbObjekttyp.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_OBJECTTYPE", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbObjekttyp.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organizer.My.MySettings.Default, "WD_ENTITYIMP_OBJECTTYPE", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.cmbObjekttyp.FormattingEnabled = True Me.cmbObjekttyp.Name = "cmbObjekttyp" - Me.cmbObjekttyp.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_OBJECTTYPE + Me.cmbObjekttyp.Text = Global.DD_Record_Organizer.My.MySettings.Default.WD_ENTITYIMP_OBJECTTYPE ' 'txtFilter_exclude ' resources.ApplyResources(Me.txtFilter_exclude, "txtFilter_exclude") Me.txtFilter_exclude.BackColor = System.Drawing.SystemColors.Info - Me.txtFilter_exclude.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_EXCLUDE", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtFilter_exclude.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organizer.My.MySettings.Default, "WD_ENTITYIMP_EXCLUDE", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.txtFilter_exclude.Name = "txtFilter_exclude" - Me.txtFilter_exclude.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_EXCLUDE + Me.txtFilter_exclude.Text = Global.DD_Record_Organizer.My.MySettings.Default.WD_ENTITYIMP_EXCLUDE ' 'txtFilter ' resources.ApplyResources(Me.txtFilter, "txtFilter") Me.txtFilter.BackColor = System.Drawing.SystemColors.Info - Me.txtFilter.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_FILTER", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtFilter.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organizer.My.MySettings.Default, "WD_ENTITYIMP_FILTER", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.txtFilter.Name = "txtFilter" - Me.txtFilter.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_FILTER + Me.txtFilter.Text = Global.DD_Record_Organizer.My.MySettings.Default.WD_ENTITYIMP_FILTER ' 'txtBackupordner ' resources.ApplyResources(Me.txtBackupordner, "txtBackupordner") Me.txtBackupordner.BackColor = System.Drawing.SystemColors.Info - Me.txtBackupordner.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_SAFETYPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtBackupordner.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organizer.My.MySettings.Default, "WD_ENTITYIMP_SAFETYPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.txtBackupordner.Name = "txtBackupordner" - Me.txtBackupordner.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_SAFETYPATH + Me.txtBackupordner.Text = Global.DD_Record_Organizer.My.MySettings.Default.WD_ENTITYIMP_SAFETYPATH ' 'txtwindreamPath ' resources.ApplyResources(Me.txtwindreamPath, "txtwindreamPath") Me.txtwindreamPath.BackColor = System.Drawing.SystemColors.Info - Me.txtwindreamPath.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_TARGETPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtwindreamPath.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organizer.My.MySettings.Default, "WD_ENTITYIMP_TARGETPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.txtwindreamPath.Name = "txtwindreamPath" - Me.txtwindreamPath.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_TARGETPATH + Me.txtwindreamPath.Text = Global.DD_Record_Organizer.My.MySettings.Default.WD_ENTITYIMP_TARGETPATH ' 'txtpath ' resources.ApplyResources(Me.txtpath, "txtpath") Me.txtpath.BackColor = System.Drawing.SystemColors.Info - Me.txtpath.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organiser.My.MySettings.Default, "WD_ENTITYIMP_IMPPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtpath.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_Record_Organizer.My.MySettings.Default, "WD_ENTITYIMP_IMPPATH", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.txtpath.Name = "txtpath" - Me.txtpath.Text = Global.DD_Record_Organiser.My.MySettings.Default.WD_ENTITYIMP_IMPPATH + Me.txtpath.Text = Global.DD_Record_Organizer.My.MySettings.Default.WD_ENTITYIMP_IMPPATH ' 'Label8 ' @@ -190,28 +190,28 @@ Partial Class frmWD_EntityImport 'btnBackupordner ' resources.ApplyResources(Me.btnBackupordner, "btnBackupordner") - Me.btnBackupordner.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnBackupordner.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG Me.btnBackupordner.Name = "btnBackupordner" Me.btnBackupordner.UseVisualStyleBackColor = True ' 'btnrunImport ' resources.ApplyResources(Me.btnrunImport, "btnrunImport") - Me.btnrunImport.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + Me.btnrunImport.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_go Me.btnrunImport.Name = "btnrunImport" Me.btnrunImport.UseVisualStyleBackColor = True ' 'btnpathWD ' resources.ApplyResources(Me.btnpathWD, "btnpathWD") - Me.btnpathWD.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnpathWD.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG Me.btnpathWD.Name = "btnpathWD" Me.btnpathWD.UseVisualStyleBackColor = True ' 'btnopenfolder ' resources.ApplyResources(Me.btnopenfolder, "btnopenfolder") - Me.btnopenfolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_Open_16xLG + Me.btnopenfolder.Image = Global.DD_Record_Organizer.My.Resources.Resources.folder_Open_16xLG Me.btnopenfolder.Name = "btnopenfolder" Me.btnopenfolder.UseVisualStyleBackColor = True ' diff --git a/app/DD-Record-Organiser/frmWD_EntityImport.en-US.resx b/app/DD-Record-Organizer/frmWD_EntityImport.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_EntityImport.en-US.resx rename to app/DD-Record-Organizer/frmWD_EntityImport.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_EntityImport.resx b/app/DD-Record-Organizer/frmWD_EntityImport.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_EntityImport.resx rename to app/DD-Record-Organizer/frmWD_EntityImport.resx diff --git a/app/DD-Record-Organiser/frmWD_EntityImport.vb b/app/DD-Record-Organizer/frmWD_EntityImport.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_EntityImport.vb rename to app/DD-Record-Organizer/frmWD_EntityImport.vb diff --git a/app/DD-Record-Organiser/frmWD_FulltextChoice.Designer.vb b/app/DD-Record-Organizer/frmWD_FulltextChoice.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_FulltextChoice.Designer.vb rename to app/DD-Record-Organizer/frmWD_FulltextChoice.Designer.vb diff --git a/app/DD-Record-Organiser/frmWD_FulltextChoice.en-US.resx b/app/DD-Record-Organizer/frmWD_FulltextChoice.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_FulltextChoice.en-US.resx rename to app/DD-Record-Organizer/frmWD_FulltextChoice.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_FulltextChoice.resx b/app/DD-Record-Organizer/frmWD_FulltextChoice.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_FulltextChoice.resx rename to app/DD-Record-Organizer/frmWD_FulltextChoice.resx diff --git a/app/DD-Record-Organiser/frmWD_FulltextChoice.vb b/app/DD-Record-Organizer/frmWD_FulltextChoice.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_FulltextChoice.vb rename to app/DD-Record-Organizer/frmWD_FulltextChoice.vb diff --git a/app/DD-Record-Organiser/frmWD_Import_Doc_Record.Designer.vb b/app/DD-Record-Organizer/frmWD_Import_Doc_Record.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmWD_Import_Doc_Record.Designer.vb rename to app/DD-Record-Organizer/frmWD_Import_Doc_Record.Designer.vb index f946521..62603a0 100644 --- a/app/DD-Record-Organiser/frmWD_Import_Doc_Record.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_Import_Doc_Record.Designer.vb @@ -109,13 +109,13 @@ Partial Class frmWD_Import_Doc_Record Me.dlgWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.SQL_PARENT_RECORDTextBox = New System.Windows.Forms.TextBox() Me.TBPMO_WD_IMPORT_PROFILE_IDXBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBPMO_WD_IMPORT_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_WD_IMPORT_PROFILETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILETableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter() + Me.TBPMO_WD_IMPORT_PROFILETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILETableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter() Me.ONLY_RECORD_CREATINGCheckBox = New System.Windows.Forms.CheckBox() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -1058,7 +1058,7 @@ Partial Class frmWD_Import_Doc_Record Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_CONNECTIONTableAdapter ' @@ -1113,10 +1113,10 @@ Partial Class frmWD_Import_Doc_Record Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_WD_IMPORT_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WD_IMPORT_PROFILETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILETableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WD_IMPORT_PROFILETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_WD_IMPORT_PROFILEBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -1142,7 +1142,7 @@ Partial Class frmWD_Import_Doc_Record Friend WithEvents btnWDSearch As System.Windows.Forms.Button Friend WithEvents dlgWindreamsuche As System.Windows.Forms.OpenFileDialog Friend WithEvents lblSaveProfile As System.Windows.Forms.Label - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents lblStatusThread As System.Windows.Forms.Label Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar @@ -1155,7 +1155,7 @@ Partial Class frmWD_Import_Doc_Record Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents TBPMO_WD_IMPORT_PROFILE_IDXBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter + Friend WithEvents TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel diff --git a/app/DD-Record-Organiser/frmWD_Import_Doc_Record.resx b/app/DD-Record-Organizer/frmWD_Import_Doc_Record.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_Import_Doc_Record.resx rename to app/DD-Record-Organizer/frmWD_Import_Doc_Record.resx diff --git a/app/DD-Record-Organiser/frmWD_Import_Doc_Record.vb b/app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_Import_Doc_Record.vb rename to app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb b/app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb similarity index 95% rename from app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb rename to app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb index b126924..0ff22f6 100644 --- a/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb @@ -33,9 +33,9 @@ Partial Class frmWD_IndexFile Me.Label2 = New System.Windows.Forms.Label() Me.cmbDokumentart = New System.Windows.Forms.ComboBox() Me.VWPMO_DOKUMENTTYPESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() - Me.VWPMO_DOKUMENTTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() + Me.VWPMO_DOKUMENTTYPESTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.btnindex = New System.Windows.Forms.Button() Me.OBJECT_TYPETextBox = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() @@ -48,7 +48,7 @@ Partial Class frmWD_IndexFile Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.chkMultiIndexer = New System.Windows.Forms.CheckBox() Me.VWDDINDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWDDINDEX_AUTOMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter() + Me.VWDDINDEX_AUTOMTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter() Me.grbxControls = New System.Windows.Forms.GroupBox() Me.lblSubfolder = New System.Windows.Forms.Label() Me.txtSubfolder = New System.Windows.Forms.TextBox() @@ -161,12 +161,12 @@ Partial Class frmWD_IndexFile Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'btnindex ' resources.ApplyResources(Me.btnindex, "btnindex") - Me.btnindex.Image = Global.DD_Record_Organiser.My.Resources.Resources.key_go + Me.btnindex.Image = Global.DD_Record_Organizer.My.Resources.Resources.key_go Me.btnindex.Name = "btnindex" Me.btnindex.UseVisualStyleBackColor = True ' @@ -293,10 +293,10 @@ Partial Class frmWD_IndexFile Friend WithEvents txtFilepath As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents VWPMO_DOKUMENTTYPESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_DOKUMENTTYPESTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents VWPMO_DOKUMENTTYPESTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents btnindex As System.Windows.Forms.Button Friend WithEvents OBJECT_TYPETextBox As System.Windows.Forms.TextBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox @@ -309,7 +309,7 @@ Partial Class frmWD_IndexFile Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents chkMultiIndexer As System.Windows.Forms.CheckBox Friend WithEvents VWDDINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWDDINDEX_AUTOMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter + Friend WithEvents VWDDINDEX_AUTOMTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter Friend WithEvents grbxControls As System.Windows.Forms.GroupBox Friend WithEvents lblSubfolder As System.Windows.Forms.Label Friend WithEvents txtSubfolder As System.Windows.Forms.TextBox diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.en-US.resx b/app/DD-Record-Organizer/frmWD_IndexFile.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_IndexFile.en-US.resx rename to app/DD-Record-Organizer/frmWD_IndexFile.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.resx b/app/DD-Record-Organizer/frmWD_IndexFile.resx similarity index 99% rename from app/DD-Record-Organiser/frmWD_IndexFile.resx rename to app/DD-Record-Organizer/frmWD_IndexFile.resx index 84b41d0..fd46a6e 100644 --- a/app/DD-Record-Organiser/frmWD_IndexFile.resx +++ b/app/DD-Record-Organizer/frmWD_IndexFile.resx @@ -1185,19 +1185,19 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_DOKUMENTTYPESTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ColumnHeader1 @@ -1227,7 +1227,7 @@ VWDDINDEX_AUTOMTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmWD_IndexFile diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.vb b/app/DD-Record-Organizer/frmWD_IndexFile.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_IndexFile.vb rename to app/DD-Record-Organizer/frmWD_IndexFile.vb diff --git a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb b/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.Designer.vb similarity index 98% rename from app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb rename to app/DD-Record-Organizer/frmWD_ObjecttypeConfig.Designer.vb index 2864537..19773b8 100644 --- a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.Designer.vb @@ -36,10 +36,10 @@ Partial Class frmWD_ObjecttypeConfig Dim Label3 As System.Windows.Forms.Label Dim Label4 As System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label() - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.TBPMO_WD_OBJECTTYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_WD_OBJECTTYPETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_WD_OBJECTTYPETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBPMO_WD_OBJECTTYPEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -195,7 +195,7 @@ Partial Class frmWD_ObjecttypeConfig Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_WD_OBJECTTYPEBindingNavigator ' @@ -408,10 +408,10 @@ Partial Class frmWD_ObjecttypeConfig End Sub Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBPMO_WD_OBJECTTYPEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WD_OBJECTTYPETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_WD_OBJECTTYPETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPMO_WD_OBJECTTYPEBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel diff --git a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.en-US.resx b/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_ObjecttypeConfig.en-US.resx rename to app/DD-Record-Organizer/frmWD_ObjecttypeConfig.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.resx b/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.resx similarity index 99% rename from app/DD-Record-Organiser/frmWD_ObjecttypeConfig.resx rename to app/DD-Record-Organizer/frmWD_ObjecttypeConfig.resx index 7a2c6e3..bc00878 100644 --- a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.resx +++ b/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.resx @@ -1050,7 +1050,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WD_OBJECTTYPEBindingSource @@ -1062,13 +1062,13 @@ TBPMO_WD_OBJECTTYPETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WD_OBJECTTYPETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorAddNewItem diff --git a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.vb b/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_ObjecttypeConfig.vb rename to app/DD-Record-Organizer/frmWD_ObjecttypeConfig.vb diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb b/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb similarity index 97% rename from app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb rename to app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb index 1d035a9..f8da68f 100644 --- a/app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb +++ b/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb @@ -38,7 +38,7 @@ Partial Class frmWD_Resultlist_Config Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.GridMain = New DevExpress.XtraGrid.GridControl() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.grvwMain = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colENTITY_ID = New DevExpress.XtraGrid.Columns.GridColumn() @@ -61,7 +61,7 @@ Partial Class frmWD_Resultlist_Config Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.TBWH_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() + Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.COLUMN_VIEWTextBox = New System.Windows.Forms.TextBox() Me.HEADER_CAPTIONTextBox = New System.Windows.Forms.TextBox() @@ -71,8 +71,8 @@ Partial Class frmWD_Resultlist_Config Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.VISIBLECheckBox = New System.Windows.Forms.CheckBox() - Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter() - Me.TableAdapterManager = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager() + Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter() + Me.TableAdapterManager = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() @@ -86,9 +86,9 @@ Partial Class frmWD_Resultlist_Config Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() - Me.TBWH_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() - Me.TableAdapterManager1 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter() + Me.TBWH_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() + Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter() GUIDLabel = New System.Windows.Forms.Label() LANGUAGELabel1 = New System.Windows.Forms.Label() ENTITY_IDLabel = New System.Windows.Forms.Label() @@ -463,7 +463,7 @@ Partial Class frmWD_Resultlist_Config Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_SAP_FUBATableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator ' @@ -592,7 +592,7 @@ Partial Class frmWD_Resultlist_Config Me.TableAdapterManager1.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager1.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager1.TBPMO_WORKFLOWTableAdapter = Nothing - Me.TableAdapterManager1.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter ' @@ -627,10 +627,10 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer Friend WithEvents GridMain As DevExpress.XtraGrid.GridControl Friend WithEvents grvwMain As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter - Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager + Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter + Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel @@ -649,10 +649,10 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents HEADER_CAPTIONTextBox As System.Windows.Forms.TextBox Friend WithEvents WIDTHTextBox As System.Windows.Forms.TextBox Friend WithEvents VISIBLECheckBox As System.Windows.Forms.CheckBox - Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet + Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet Friend WithEvents TBWH_ENTITYBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBWH_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter - Friend WithEvents TableAdapterManager1 As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBWH_ENTITYTableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter + Friend WithEvents TableAdapterManager1 As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents LANGUAGEComboBox As System.Windows.Forms.ComboBox Friend WithEvents labelSuccess As System.Windows.Forms.Label @@ -677,5 +677,5 @@ Partial Class frmWD_Resultlist_Config Friend WithEvents CONFIG_CLOUMNSCheckbox As System.Windows.Forms.CheckBox Friend WithEvents TYPE_IDComboBox As System.Windows.Forms.ComboBox Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter As DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter + Friend WithEvents TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter As DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter End Class diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.en-US.resx b/app/DD-Record-Organizer/frmWD_Resultlist_Config.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmWD_Resultlist_Config.en-US.resx rename to app/DD-Record-Organizer/frmWD_Resultlist_Config.en-US.resx diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.resx b/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx similarity index 99% rename from app/DD-Record-Organiser/frmWD_Resultlist_Config.resx rename to app/DD-Record-Organizer/frmWD_Resultlist_Config.resx index 0e6d7f1..2cf3a19 100644 --- a/app/DD-Record-Organiser/frmWD_Resultlist_Config.resx +++ b/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx @@ -124,7 +124,7 @@ en-US - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 1 @@ -354,7 +354,7 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null True @@ -817,7 +817,7 @@ WIDTHLabel - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null SplitContainer1.Panel2 @@ -850,7 +850,7 @@ True - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 25 @@ -1078,7 +1078,7 @@ 3 - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null Tile @@ -1187,7 +1187,7 @@ 12, 97 - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1371,7 +1371,7 @@ True - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null 14 diff --git a/app/DD-Record-Organiser/frmWD_Resultlist_Config.vb b/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb similarity index 100% rename from app/DD-Record-Organiser/frmWD_Resultlist_Config.vb rename to app/DD-Record-Organizer/frmWD_Resultlist_Config.vb diff --git a/app/DD-Record-Organiser/frmwindreamView_Config.Designer.vb b/app/DD-Record-Organizer/frmwindreamView_Config.Designer.vb similarity index 100% rename from app/DD-Record-Organiser/frmwindreamView_Config.Designer.vb rename to app/DD-Record-Organizer/frmwindreamView_Config.Designer.vb diff --git a/app/DD-Record-Organiser/frmwindreamView_Config.en-US.resx b/app/DD-Record-Organizer/frmwindreamView_Config.en-US.resx similarity index 100% rename from app/DD-Record-Organiser/frmwindreamView_Config.en-US.resx rename to app/DD-Record-Organizer/frmwindreamView_Config.en-US.resx diff --git a/app/DD-Record-Organiser/frmwindreamView_Config.resx b/app/DD-Record-Organizer/frmwindreamView_Config.resx similarity index 100% rename from app/DD-Record-Organiser/frmwindreamView_Config.resx rename to app/DD-Record-Organizer/frmwindreamView_Config.resx diff --git a/app/DD-Record-Organiser/frmwindreamView_Config.vb b/app/DD-Record-Organizer/frmwindreamView_Config.vb similarity index 100% rename from app/DD-Record-Organiser/frmwindreamView_Config.vb rename to app/DD-Record-Organizer/frmwindreamView_Config.vb diff --git a/app/SetupWiX/Product.wxs b/app/SetupWiX/Product.wxs index 6597742..f59bada 100644 --- a/app/SetupWiX/Product.wxs +++ b/app/SetupWiX/Product.wxs @@ -133,7 +133,6 @@ - diff --git a/app/SetupWiX/SetupWiX.wixproj b/app/SetupWiX/SetupWiX.wixproj index 868cbcb..969e9b6 100644 --- a/app/SetupWiX/SetupWiX.wixproj +++ b/app/SetupWiX/SetupWiX.wixproj @@ -17,7 +17,7 @@ bin\$(Configuration)\ obj\$(Configuration)\ Debug - -b "$(SolutionDir)DD-Record-Organiser\bin\$(Configuration)" + -b "$(SolutionDir)DD-Record-Organizer\bin\$(Configuration)" -b "$(SolutionDir)RecordOrganizer_RightManager\bin\$(Configuration)" -b "$(SolutionDir)VERSION_CHECKER\bin\$(Configuration)" -cultures:de-DE,en-US @@ -48,7 +48,7 @@ --> - + @@ -58,7 +58,7 @@ - + diff --git a/app/SnapPanelControl/My Project/Application.Designer.vb b/app/SnapPanelControl/My Project/Application.Designer.vb deleted file mode 100644 index 9faf70b..0000000 --- a/app/SnapPanelControl/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.34014 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/app/SnapPanelControl/My Project/Application.myapp b/app/SnapPanelControl/My Project/Application.myapp deleted file mode 100644 index 758895d..0000000 --- a/app/SnapPanelControl/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 1 - true - diff --git a/app/SnapPanelControl/My Project/AssemblyInfo.vb b/app/SnapPanelControl/My Project/AssemblyInfo.vb deleted file mode 100644 index a7add2f..0000000 --- a/app/SnapPanelControl/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' Allgemeine Informationen über eine Assembly werden über die folgenden -' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, -' die mit einer Assembly verknüpft sind. - -' Die Werte der Assemblyattribute überprüfen - - - - - - - - - - -'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird - - -' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: -' -' Hauptversion -' Nebenversion -' Buildnummer -' Revision -' -' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern -' übernehmen, indem Sie "*" eingeben: - - - diff --git a/app/SnapPanelControl/My Project/Resources.Designer.vb b/app/SnapPanelControl/My Project/Resources.Designer.vb deleted file mode 100644 index a643587..0000000 --- a/app/SnapPanelControl/My Project/Resources.Designer.vb +++ /dev/null @@ -1,62 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.34014 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SnapPanelControl.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) - resourceCulture = value - End Set - End Property - End Module -End Namespace diff --git a/app/SnapPanelControl/My Project/Resources.resx b/app/SnapPanelControl/My Project/Resources.resx deleted file mode 100644 index af7dbeb..0000000 --- a/app/SnapPanelControl/My Project/Resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/app/SnapPanelControl/My Project/Settings.Designer.vb b/app/SnapPanelControl/My Project/Settings.Designer.vb deleted file mode 100644 index 6e9ef41..0000000 --- a/app/SnapPanelControl/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.34014 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.SnapPanelControl.My.MySettings - Get - Return Global.SnapPanelControl.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/app/SnapPanelControl/My Project/Settings.settings b/app/SnapPanelControl/My Project/Settings.settings deleted file mode 100644 index 85b890b..0000000 --- a/app/SnapPanelControl/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/app/SnapPanelControl/SnapPanelControl.vbproj b/app/SnapPanelControl/SnapPanelControl.vbproj deleted file mode 100644 index 999a223..0000000 --- a/app/SnapPanelControl/SnapPanelControl.vbproj +++ /dev/null @@ -1,123 +0,0 @@ - - - - - Debug - AnyCPU - {9B1BBAC7-F595-43BA-8B54-CF2B595847CD} - Library - SnapPanelControl - SnapPanelControl - 512 - Windows - v4.5 - - - true - full - true - true - bin\Debug\ - SnapPanelControl.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - SnapPanelControl.xml - _MYFORMS=True - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - Component - - - SnapPanel.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - - \ No newline at end of file