From f5aad6652f7f6d5ac6383976c8bdacc19ac0abdc Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 12 Jun 2018 15:31:54 +0200 Subject: [PATCH] MS: VWPM_PROFILE_USER_NATIV --- .../DD_DMSLiteDataSet.Designer.vb | 3654 +++++------------ app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc | 9 - app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 246 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 29 +- 4 files changed, 1172 insertions(+), 2766 deletions(-) diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 0783ce5..17c88f4 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -27,8 +27,6 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable - Private tableVWPM_PROFILE_USER As VWPM_PROFILE_USERDataTable - Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable Private tableTBDD_USER As TBDD_USERDataTable @@ -103,9 +101,6 @@ Partial Public Class DD_DMSLiteDataSet If (Not (ds.Tables("TBPM_PROFILE_FINAL_INDEXING")) Is Nothing) Then MyBase.Tables.Add(New TBPM_PROFILE_FINAL_INDEXINGDataTable(ds.Tables("TBPM_PROFILE_FINAL_INDEXING"))) End If - If (Not (ds.Tables("VWPM_PROFILE_USER")) Is Nothing) Then - MyBase.Tables.Add(New VWPM_PROFILE_USERDataTable(ds.Tables("VWPM_PROFILE_USER"))) - End If If (Not (ds.Tables("TBPM_KONFIGURATION")) Is Nothing) Then MyBase.Tables.Add(New TBPM_KONFIGURATIONDataTable(ds.Tables("TBPM_KONFIGURATION"))) End If @@ -181,16 +176,6 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property - _ - Public ReadOnly Property VWPM_PROFILE_USER() As VWPM_PROFILE_USERDataTable - Get - Return Me.tableVWPM_PROFILE_USER - End Get - End Property - _ - Private Function ShouldSerializeVWPM_PROFILE_USER() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBPM_KONFIGURATION() As Boolean @@ -844,9 +812,6 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent) - _ - Public Delegate Sub VWPM_PROFILE_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_PROFILE_USERRowChangeEvent) - _ Public Delegate Sub TBPM_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_KONFIGURATIONRowChangeEvent) @@ -1280,58 +1245,50 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class VWPM_PROFILE_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPM_PROFILE_USERRow) - - Private columnPROFIL_ID As Global.System.Data.DataColumn - - Private columnPROFIL_NAME As Global.System.Data.DataColumn - - Private columnPRIORITY As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn + Partial Public Class TBPM_KONFIGURATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_KONFIGURATIONRow) - Private columnNO_OF_DOCUMENTS As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnEMAIL As Global.System.Data.DataColumn + Private columnLIZENZEN As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnERFASSTWER As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn + Private columnERSTELLTWER As Global.System.Data.DataColumn - Private columnTITLE As Global.System.Data.DataColumn + Private columnERSTELLTWANN As Global.System.Data.DataColumn - Private columnFINAL_PROFILE As Global.System.Data.DataColumn + Private columnGEAENDERTWER As Global.System.Data.DataColumn - Private columnFINAL_TEXT As Global.System.Data.DataColumn + Private columnINTERVALL_CKECK_NO_OF_FILES As Global.System.Data.DataColumn - Private columnMOVE2Folder As Global.System.Data.DataColumn + Private columnGEAENDERTWANN As Global.System.Data.DataColumn - Private columnWD_OBJECTTYPE As Global.System.Data.DataColumn + Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn - Private columnPRENAME As Global.System.Data.DataColumn + Private columnEMAIL_FROM As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnEMAIL_SMTP As Global.System.Data.DataColumn - Private columnDESCRIPTION As Global.System.Data.DataColumn + Private columnEMAIL_USER As Global.System.Data.DataColumn - Private columnLOG_INDEX As Global.System.Data.DataColumn + Private columnEMAIL_PW As Global.System.Data.DataColumn - Private columnSCOPE As Global.System.Data.DataColumn + Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn - Private columnIN_WORK As Global.System.Data.DataColumn + Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn - Private columnPM_VEKTOR_INDEX As Global.System.Data.DataColumn + Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn - Private columnPROFILE_GROUP_COLOR As Global.System.Data.DataColumn + Private columnADMIN_PW As Global.System.Data.DataColumn - Private columnPROFILE_GROUP_TEXT As Global.System.Data.DataColumn + Private columnADMIN_SECURITY As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPM_PROFILE_USER" + Me.TableName = "TBPM_KONFIGURATION" Me.BeginInit Me.InitClass Me.EndInit @@ -1364,177 +1321,145 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFIL_ID - End Get - End Property - - _ - Public ReadOnly Property PROFIL_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFIL_NAME - End Get - End Property - - _ - Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRIORITY - 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 NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNO_OF_DOCUMENTS + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LIZENZENColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL + Return Me.columnLIZENZEN End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnERFASSTWER End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnERSTELLTWER End Get End Property _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnTITLE + Return Me.columnERSTELLTWANN End Get End Property _ - Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnFINAL_PROFILE + Return Me.columnGEAENDERTWER End Get End Property _ - Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property INTERVALL_CKECK_NO_OF_FILESColumn() As Global.System.Data.DataColumn Get - Return Me.columnFINAL_TEXT + Return Me.columnINTERVALL_CKECK_NO_OF_FILES End Get End Property _ - Public ReadOnly Property MOVE2FolderColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnMOVE2Folder + Return Me.columnGEAENDERTWANN End Get End Property _ - Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnWD_OBJECTTYPE + Return Me.columnEMAIL_ACTIVE End Get End Property _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get - Return Me.columnPRENAME + Return Me.columnEMAIL_FROM End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnEMAIL_SMTP End Get End Property _ - Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get - Return Me.columnDESCRIPTION + Return Me.columnEMAIL_USER End Get End Property _ - Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOG_INDEX + Return Me.columnEMAIL_PW End Get End Property _ - Public ReadOnly Property SCOPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn Get - Return Me.columnSCOPE + Return Me.columnEMAIL_REMINDER_HEADER End Get End Property _ - Public ReadOnly Property IN_WORKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn Get - Return Me.columnIN_WORK + Return Me.columnEMAIL_REMINDER_FOOTER End Get End Property _ - Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn Get - Return Me.columnPM_VEKTOR_INDEX + Return Me.columnVEKTOR_DELIMITER End Get End Property _ - Public ReadOnly Property PROFILE_GROUP_COLORColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROFILE_GROUP_COLOR + Return Me.columnADMIN_PW End Get End Property _ - Public ReadOnly Property PROFILE_GROUP_TEXTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROFILE_GROUP_TEXT + Return Me.columnADMIN_SECURITY End Get End Property @@ -1549,72 +1474,68 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_PROFILE_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_KONFIGURATIONRow Get - Return CType(Me.Rows(index),VWPM_PROFILE_USERRow) + Return CType(Me.Rows(index),TBPM_KONFIGURATIONRow) End Get End Property _ - Public Event VWPM_PROFILE_USERRowChanging As VWPM_PROFILE_USERRowChangeEventHandler + Public Event TBPM_KONFIGURATIONRowChanging As TBPM_KONFIGURATIONRowChangeEventHandler _ - Public Event VWPM_PROFILE_USERRowChanged As VWPM_PROFILE_USERRowChangeEventHandler + Public Event TBPM_KONFIGURATIONRowChanged As TBPM_KONFIGURATIONRowChangeEventHandler _ - Public Event VWPM_PROFILE_USERRowDeleting As VWPM_PROFILE_USERRowChangeEventHandler + Public Event TBPM_KONFIGURATIONRowDeleting As TBPM_KONFIGURATIONRowChangeEventHandler _ - Public Event VWPM_PROFILE_USERRowDeleted As VWPM_PROFILE_USERRowChangeEventHandler + Public Event TBPM_KONFIGURATIONRowDeleted As TBPM_KONFIGURATIONRowChangeEventHandler _ - Public Overloads Sub AddVWPM_PROFILE_USERRow(ByVal row As VWPM_PROFILE_USERRow) + Public Overloads Sub AddTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPM_PROFILE_USERRow( _ - ByVal PROFIL_ID As Integer, _ - ByVal PROFIL_NAME As String, _ - ByVal PRIORITY As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal NO_OF_DOCUMENTS As Integer, _ - ByVal EMAIL As String, _ - ByVal USERNAME As String, _ - ByVal ACTIVE As Boolean, _ - ByVal TITLE As String, _ - ByVal FINAL_PROFILE As Boolean, _ - ByVal FINAL_TEXT As String, _ - ByVal MOVE2Folder As String, _ - ByVal WD_OBJECTTYPE As String, _ - ByVal PRENAME As String, _ - ByVal NAME As String, _ - ByVal DESCRIPTION As String, _ - ByVal LOG_INDEX As String, _ - ByVal SCOPE As String, _ - ByVal IN_WORK As Boolean, _ - ByVal PM_VEKTOR_INDEX As String, _ - ByVal PROFILE_GROUP_COLOR As String, _ - ByVal PROFILE_GROUP_TEXT As String) As VWPM_PROFILE_USERRow - Dim rowVWPM_PROFILE_USERRow As VWPM_PROFILE_USERRow = CType(Me.NewRow,VWPM_PROFILE_USERRow) - Dim columnValuesArray() As Object = New Object() {PROFIL_ID, PROFIL_NAME, PRIORITY, WD_SEARCH, NO_OF_DOCUMENTS, EMAIL, USERNAME, ACTIVE, TITLE, FINAL_PROFILE, FINAL_TEXT, MOVE2Folder, WD_OBJECTTYPE, PRENAME, NAME, DESCRIPTION, LOG_INDEX, SCOPE, IN_WORK, PM_VEKTOR_INDEX, PROFILE_GROUP_COLOR, PROFILE_GROUP_TEXT} - rowVWPM_PROFILE_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPM_PROFILE_USERRow) - Return rowVWPM_PROFILE_USERRow + Public Overloads Function AddTBPM_KONFIGURATIONRow( _ + ByVal GUID As Byte, _ + ByVal LIZENZEN As String, _ + ByVal ERFASSTWER As String, _ + ByVal ERSTELLTWER As String, _ + ByVal ERSTELLTWANN As Date, _ + ByVal GEAENDERTWER As String, _ + ByVal INTERVALL_CKECK_NO_OF_FILES As Short, _ + ByVal GEAENDERTWANN As Date, _ + 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 VEKTOR_DELIMITER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean) As TBPM_KONFIGURATIONRow + Dim rowTBPM_KONFIGURATIONRow As TBPM_KONFIGURATIONRow = CType(Me.NewRow,TBPM_KONFIGURATIONRow) + Dim columnValuesArray() As Object = New Object() {GUID, LIZENZEN, ERFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GEAENDERTWANN, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, VEKTOR_DELIMITER, ADMIN_PW, ADMIN_SECURITY} + rowTBPM_KONFIGURATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_KONFIGURATIONRow) + Return rowTBPM_KONFIGURATIONRow End Function _ - Public Function FindByPROFIL_ID(ByVal PROFIL_ID As Integer) As VWPM_PROFILE_USERRow - Return CType(Me.Rows.Find(New Object() {PROFIL_ID}),VWPM_PROFILE_USERRow) + Public Function FindByGUID(ByVal GUID As Byte) As TBPM_KONFIGURATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_KONFIGURATIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPM_PROFILE_USERDataTable = CType(MyBase.Clone,VWPM_PROFILE_USERDataTable) + Dim cln As TBPM_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPM_KONFIGURATIONDataTable) cln.InitVars Return cln End Function @@ -1622,141 +1543,120 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPM_PROFILE_USERDataTable() + Return New TBPM_KONFIGURATIONDataTable() End Function _ Friend Sub InitVars() - Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") - Me.columnPROFIL_NAME = MyBase.Columns("PROFIL_NAME") - Me.columnPRIORITY = MyBase.Columns("PRIORITY") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnNO_OF_DOCUMENTS = MyBase.Columns("NO_OF_DOCUMENTS") - Me.columnEMAIL = MyBase.Columns("EMAIL") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnTITLE = MyBase.Columns("TITLE") - Me.columnFINAL_PROFILE = MyBase.Columns("FINAL_PROFILE") - Me.columnFINAL_TEXT = MyBase.Columns("FINAL_TEXT") - Me.columnMOVE2Folder = MyBase.Columns("MOVE2Folder") - Me.columnWD_OBJECTTYPE = MyBase.Columns("WD_OBJECTTYPE") - Me.columnPRENAME = MyBase.Columns("PRENAME") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") - Me.columnLOG_INDEX = MyBase.Columns("LOG_INDEX") - Me.columnSCOPE = MyBase.Columns("SCOPE") - Me.columnIN_WORK = MyBase.Columns("IN_WORK") - Me.columnPM_VEKTOR_INDEX = MyBase.Columns("PM_VEKTOR_INDEX") - Me.columnPROFILE_GROUP_COLOR = MyBase.Columns("PROFILE_GROUP_COLOR") - Me.columnPROFILE_GROUP_TEXT = MyBase.Columns("PROFILE_GROUP_TEXT") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnLIZENZEN = MyBase.Columns("LIZENZEN") + Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") + Me.columnINTERVALL_CKECK_NO_OF_FILES = MyBase.Columns("INTERVALL_CKECK_NO_OF_FILES") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + 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.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") + Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") + Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") End Sub _ Private Sub InitClass() - Me.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFIL_ID) - Me.columnPROFIL_NAME = New Global.System.Data.DataColumn("PROFIL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFIL_NAME) - Me.columnPRIORITY = New Global.System.Data.DataColumn("PRIORITY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRIORITY) - 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.columnNO_OF_DOCUMENTS = New Global.System.Data.DataColumn("NO_OF_DOCUMENTS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNO_OF_DOCUMENTS) - Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) - Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTITLE) - Me.columnFINAL_PROFILE = New Global.System.Data.DataColumn("FINAL_PROFILE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFINAL_PROFILE) - Me.columnFINAL_TEXT = New Global.System.Data.DataColumn("FINAL_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFINAL_TEXT) - Me.columnMOVE2Folder = New Global.System.Data.DataColumn("MOVE2Folder", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnMOVE2Folder) - Me.columnWD_OBJECTTYPE = New Global.System.Data.DataColumn("WD_OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_OBJECTTYPE) - 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.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDESCRIPTION) - Me.columnLOG_INDEX = New Global.System.Data.DataColumn("LOG_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOG_INDEX) - Me.columnSCOPE = New Global.System.Data.DataColumn("SCOPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSCOPE) - Me.columnIN_WORK = New Global.System.Data.DataColumn("IN_WORK", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnIN_WORK) - Me.columnPM_VEKTOR_INDEX = New Global.System.Data.DataColumn("PM_VEKTOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPM_VEKTOR_INDEX) - Me.columnPROFILE_GROUP_COLOR = New Global.System.Data.DataColumn("PROFILE_GROUP_COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_GROUP_COLOR) - Me.columnPROFILE_GROUP_TEXT = New Global.System.Data.DataColumn("PROFILE_GROUP_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_GROUP_TEXT) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPROFIL_ID}, true)) - Me.columnPROFIL_ID.AllowDBNull = false - Me.columnPROFIL_ID.Unique = true - Me.columnPROFIL_NAME.AllowDBNull = false - Me.columnPROFIL_NAME.MaxLength = 100 - Me.columnPRIORITY.AllowDBNull = false - Me.columnWD_SEARCH.AllowDBNull = false - Me.columnWD_SEARCH.MaxLength = 500 - Me.columnNO_OF_DOCUMENTS.AllowDBNull = false - Me.columnEMAIL.MaxLength = 100 - Me.columnUSERNAME.AllowDBNull = false - Me.columnUSERNAME.MaxLength = 50 - Me.columnACTIVE.AllowDBNull = false - Me.columnTITLE.AllowDBNull = false - Me.columnTITLE.MaxLength = 150 - Me.columnFINAL_PROFILE.AllowDBNull = false - Me.columnFINAL_TEXT.MaxLength = 250 - Me.columnMOVE2Folder.MaxLength = 1000 - Me.columnWD_OBJECTTYPE.AllowDBNull = false - Me.columnWD_OBJECTTYPE.MaxLength = 200 - Me.columnPRENAME.MaxLength = 50 - Me.columnNAME.MaxLength = 50 - Me.columnDESCRIPTION.MaxLength = 250 - Me.columnLOG_INDEX.AllowDBNull = false - Me.columnLOG_INDEX.MaxLength = 50 - Me.columnSCOPE.AllowDBNull = false - Me.columnSCOPE.MaxLength = 5 - Me.columnIN_WORK.AllowDBNull = false - Me.columnPM_VEKTOR_INDEX.AllowDBNull = false - Me.columnPM_VEKTOR_INDEX.MaxLength = 50 - Me.columnPROFILE_GROUP_COLOR.MaxLength = 20 - Me.columnPROFILE_GROUP_TEXT.MaxLength = 250 + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnLIZENZEN = New Global.System.Data.DataColumn("LIZENZEN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLIZENZEN) + Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERFASSTWER) + 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.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWER) + Me.columnINTERVALL_CKECK_NO_OF_FILES = New Global.System.Data.DataColumn("INTERVALL_CKECK_NO_OF_FILES", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINTERVALL_CKECK_NO_OF_FILES) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + 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.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) + 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.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.columnLIZENZEN.MaxLength = 2000 + Me.columnERFASSTWER.AllowDBNull = false + Me.columnERFASSTWER.MaxLength = 50 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnERSTELLTWANN.AllowDBNull = false + Me.columnGEAENDERTWER.MaxLength = 50 + Me.columnINTERVALL_CKECK_NO_OF_FILES.AllowDBNull = false + Me.columnINTERVALL_CKECK_NO_OF_FILES.DefaultValue = CType(2,Short) + 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.columnVEKTOR_DELIMITER.AllowDBNull = false + Me.columnVEKTOR_DELIMITER.MaxLength = 1 + Me.columnADMIN_PW.MaxLength = 100 + Me.columnADMIN_SECURITY.AllowDBNull = false End Sub _ - Public Function NewVWPM_PROFILE_USERRow() As VWPM_PROFILE_USERRow - Return CType(Me.NewRow,VWPM_PROFILE_USERRow) + Public Function NewTBPM_KONFIGURATIONRow() As TBPM_KONFIGURATIONRow + Return CType(Me.NewRow,TBPM_KONFIGURATIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPM_PROFILE_USERRow(builder) + Return New TBPM_KONFIGURATIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPM_PROFILE_USERRow) + Return GetType(TBPM_KONFIGURATIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPM_PROFILE_USERRowChangedEvent) Is Nothing) Then - RaiseEvent VWPM_PROFILE_USERRowChanged(Me, New VWPM_PROFILE_USERRowChangeEvent(CType(e.Row,VWPM_PROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_KONFIGURATIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_KONFIGURATIONRowChanged(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) End If End Sub @@ -1764,8 +1664,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPM_PROFILE_USERRowChangingEvent) Is Nothing) Then - RaiseEvent VWPM_PROFILE_USERRowChanging(Me, New VWPM_PROFILE_USERRowChangeEvent(CType(e.Row,VWPM_PROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_KONFIGURATIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_KONFIGURATIONRowChanging(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) End If End Sub @@ -1773,8 +1673,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPM_PROFILE_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPM_PROFILE_USERRowDeleted(Me, New VWPM_PROFILE_USERRowChangeEvent(CType(e.Row,VWPM_PROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_KONFIGURATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_KONFIGURATIONRowDeleted(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) End If End Sub @@ -1782,14 +1682,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPM_PROFILE_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPM_PROFILE_USERRowDeleting(Me, New VWPM_PROFILE_USERRowChangeEvent(CType(e.Row,VWPM_PROFILE_USERRow), e.Action)) + If (Not (Me.TBPM_KONFIGURATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_KONFIGURATIONRowDeleting(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPM_PROFILE_USERRow(ByVal row As VWPM_PROFILE_USERRow) + Public Sub RemoveTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) Me.Rows.Remove(row) End Sub @@ -1816,7 +1716,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPM_PROFILE_USERDataTable" + attribute2.FixedValue = "TBPM_KONFIGURATIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1865,50 +1765,36 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPM_KONFIGURATIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_KONFIGURATIONRow) + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnLIZENZEN As Global.System.Data.DataColumn - - Private columnERFASSTWER As Global.System.Data.DataColumn - - Private columnERSTELLTWER As Global.System.Data.DataColumn - - Private columnERSTELLTWANN As Global.System.Data.DataColumn - - Private columnGEAENDERTWER As Global.System.Data.DataColumn - - Private columnINTERVALL_CKECK_NO_OF_FILES As Global.System.Data.DataColumn - - Private columnGEAENDERTWANN As Global.System.Data.DataColumn - - Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn - Private columnEMAIL_FROM As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnEMAIL_SMTP As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn - Private columnEMAIL_USER As Global.System.Data.DataColumn + Private columnEMAIL As Global.System.Data.DataColumn - Private columnEMAIL_PW As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnADMIN_PW As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn - Private columnADMIN_SECURITY As Global.System.Data.DataColumn + Private columnSHORTNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPM_KONFIGURATION" + Me.TableName = "TBDD_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -1949,213 +1835,139 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property LIZENZENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnLIZENZEN + Return Me.columnPRENAME End Get End Property _ - Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnERFASSTWER + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWER + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWANN + Return Me.columnEMAIL End Get End Property _ - Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWER + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property INTERVALL_CKECK_NO_OF_FILESColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnINTERVALL_CKECK_NO_OF_FILES + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWANN + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_ACTIVE + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_FROM + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_SMTP + Return Me.columnSHORTNAME End Get End Property _ - Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnEMAIL_USER + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get - Return Me.columnEMAIL_PW + Return CType(Me.Rows(index),TBDD_USERRow) 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 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 ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_REMINDER_FOOTER - End Get - End Property + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVEKTOR_DELIMITER - End Get - End Property + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL 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, ByVal SHORTNAME 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, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow + End Function _ - 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 Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_KONFIGURATIONRow - Get - Return CType(Me.Rows(index),TBPM_KONFIGURATIONRow) - End Get - End Property - - _ - Public Event TBPM_KONFIGURATIONRowChanging As TBPM_KONFIGURATIONRowChangeEventHandler - - _ - Public Event TBPM_KONFIGURATIONRowChanged As TBPM_KONFIGURATIONRowChangeEventHandler - - _ - Public Event TBPM_KONFIGURATIONRowDeleting As TBPM_KONFIGURATIONRowChangeEventHandler - - _ - Public Event TBPM_KONFIGURATIONRowDeleted As TBPM_KONFIGURATIONRowChangeEventHandler - - _ - Public Overloads Sub AddTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBPM_KONFIGURATIONRow( _ - ByVal GUID As Byte, _ - ByVal LIZENZEN As String, _ - ByVal ERFASSTWER As String, _ - ByVal ERSTELLTWER As String, _ - ByVal ERSTELLTWANN As Date, _ - ByVal GEAENDERTWER As String, _ - ByVal INTERVALL_CKECK_NO_OF_FILES As Short, _ - ByVal GEAENDERTWANN As Date, _ - 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 VEKTOR_DELIMITER As String, _ - ByVal ADMIN_PW As String, _ - ByVal ADMIN_SECURITY As Boolean) As TBPM_KONFIGURATIONRow - Dim rowTBPM_KONFIGURATIONRow As TBPM_KONFIGURATIONRow = CType(Me.NewRow,TBPM_KONFIGURATIONRow) - Dim columnValuesArray() As Object = New Object() {GUID, LIZENZEN, ERFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GEAENDERTWANN, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, VEKTOR_DELIMITER, ADMIN_PW, ADMIN_SECURITY} - rowTBPM_KONFIGURATIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_KONFIGURATIONRow) - Return rowTBPM_KONFIGURATIONRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Byte) As TBPM_KONFIGURATIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_KONFIGURATIONRow) - 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 TBPM_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPM_KONFIGURATIONDataTable) + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars Return cln End Function @@ -2163,120 +1975,92 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_KONFIGURATIONDataTable() + Return New TBDD_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnLIZENZEN = MyBase.Columns("LIZENZEN") - Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") - Me.columnINTERVALL_CKECK_NO_OF_FILES = MyBase.Columns("INTERVALL_CKECK_NO_OF_FILES") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") - 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.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") - Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") - Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + 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") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnLIZENZEN = New Global.System.Data.DataColumn("LIZENZEN", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLIZENZEN) - Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERFASSTWER) - 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.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWER) - Me.columnINTERVALL_CKECK_NO_OF_FILES = New Global.System.Data.DataColumn("INTERVALL_CKECK_NO_OF_FILES", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnINTERVALL_CKECK_NO_OF_FILES) - Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWANN) - 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.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) - 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.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.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.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORTNAME) 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.columnLIZENZEN.MaxLength = 2000 - Me.columnERFASSTWER.AllowDBNull = false - Me.columnERFASSTWER.MaxLength = 50 - Me.columnERSTELLTWER.AllowDBNull = false - Me.columnERSTELLTWER.MaxLength = 50 - Me.columnERSTELLTWANN.AllowDBNull = false - Me.columnGEAENDERTWER.MaxLength = 50 - Me.columnINTERVALL_CKECK_NO_OF_FILES.AllowDBNull = false - Me.columnINTERVALL_CKECK_NO_OF_FILES.DefaultValue = CType(2,Short) - 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.columnVEKTOR_DELIMITER.AllowDBNull = false - Me.columnVEKTOR_DELIMITER.MaxLength = 1 - Me.columnADMIN_PW.MaxLength = 100 - Me.columnADMIN_SECURITY.AllowDBNull = false + Me.columnPRENAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnEMAIL.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 500 + Me.columnSHORTNAME.MaxLength = 30 End Sub _ - Public Function NewTBPM_KONFIGURATIONRow() As TBPM_KONFIGURATIONRow - Return CType(Me.NewRow,TBPM_KONFIGURATIONRow) + 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 TBPM_KONFIGURATIONRow(builder) + Return New TBDD_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_KONFIGURATIONRow) + Return GetType(TBDD_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPM_KONFIGURATIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_KONFIGURATIONRowChanged(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) + 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 @@ -2284,8 +2068,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPM_KONFIGURATIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_KONFIGURATIONRowChanging(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) + 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 @@ -2293,8 +2077,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_KONFIGURATIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_KONFIGURATIONRowDeleted(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) + 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 @@ -2302,14 +2086,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_KONFIGURATIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_KONFIGURATIONRowDeleting(Me, New TBPM_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPM_KONFIGURATIONRow), e.Action)) + 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 RemoveTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub @@ -2336,7 +2120,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPM_KONFIGURATIONDataTable" + attribute2.FixedValue = "TBDD_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2385,18 +2169,12 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBDD_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + Partial Public Class TBPM_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_TYPERow) 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 columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -2406,15 +2184,11 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn - - Private columnSHORTNAME As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER" + Me.TableName = "TBPM_TYPE" Me.BeginInit Me.InitClass Me.EndInit @@ -2455,57 +2229,33 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnPRENAME + Return Me.columnBEZEICHNUNG End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL - 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 + Return Me.columnCHANGED_WHO End Get End Property @@ -2517,22 +2267,6 @@ Partial Public Class DD_DMSLiteDataSet 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 - _ @@ -2544,50 +2278,50 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_TYPERow Get - Return CType(Me.Rows(index),TBDD_USERRow) + Return CType(Me.Rows(index),TBPM_TYPERow) End Get End Property _ - Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + Public Event TBPM_TYPERowChanging As TBPM_TYPERowChangeEventHandler _ - Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + Public Event TBPM_TYPERowChanged As TBPM_TYPERowChangeEventHandler _ - Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + Public Event TBPM_TYPERowDeleting As TBPM_TYPERowChangeEventHandler _ - Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + Public Event TBPM_TYPERowDeleted As TBPM_TYPERowChangeEventHandler _ - Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Public Overloads Sub AddTBPM_TYPERow(ByVal row As TBPM_TYPERow) 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 ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String, ByVal SHORTNAME 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, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME} - rowTBDD_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USERRow) - Return rowTBDD_USERRow + Public Overloads Function AddTBPM_TYPERow(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 TBPM_TYPERow + Dim rowTBPM_TYPERow As TBPM_TYPERow = CType(Me.NewRow,TBPM_TYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPM_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_TYPERow) + Return rowTBPM_TYPERow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + Public Function FindByGUID(ByVal GUID As Short) As TBPM_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_TYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + Dim cln As TBPM_TYPEDataTable = CType(MyBase.Clone,TBPM_TYPEDataTable) cln.InitVars Return cln End Function @@ -2595,38 +2329,27 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USERDataTable() + Return New TBPM_TYPEDataTable() 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.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") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), 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.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) @@ -2635,52 +2358,45 @@ Partial Public Class DD_DMSLiteDataSet 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.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSHORTNAME) 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.columnPRENAME.MaxLength = 50 - Me.columnNAME.MaxLength = 50 - Me.columnUSERNAME.AllowDBNull = false - Me.columnUSERNAME.MaxLength = 50 - Me.columnEMAIL.MaxLength = 100 + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCOMMENT.MaxLength = 500 - Me.columnSHORTNAME.MaxLength = 30 + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 End Sub _ - Public Function NewTBDD_USERRow() As TBDD_USERRow - Return CType(Me.NewRow,TBDD_USERRow) + Public Function NewTBPM_TYPERow() As TBPM_TYPERow + Return CType(Me.NewRow,TBPM_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USERRow(builder) + Return New TBPM_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USERRow) + Return GetType(TBPM_TYPERow) 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)) + If (Not (Me.TBPM_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_TYPERowChanged(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) End If End Sub @@ -2688,8 +2404,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBPM_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_TYPERowChanging(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) End If End Sub @@ -2697,8 +2413,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBPM_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_TYPERowDeleted(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) End If End Sub @@ -2706,14 +2422,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBPM_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_TYPERowDeleting(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + Public Sub RemoveTBPM_TYPERow(ByVal row As TBPM_TYPERow) Me.Rows.Remove(row) End Sub @@ -2740,7 +2456,7 @@ Partial Public Class DD_DMSLiteDataSet 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" + attribute2.FixedValue = "TBPM_TYPEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2789,26 +2505,24 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPM_TYPEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_TYPERow) + Partial Public Class TBPM_ERROR_LOGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_ERROR_LOGRow) Private columnGUID As Global.System.Data.DataColumn - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Private columnPROFIL_ID As Global.System.Data.DataColumn + + Private columnERROR_MSG 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 = "TBPM_TYPE" + Me.TableName = "TBPM_ERROR_LOG" Me.BeginInit Me.InitClass Me.EndInit @@ -2849,41 +2563,33 @@ Partial Public Class DD_DMSLiteDataSet _ - 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 + Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnPROFIL_ID End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERROR_MSGColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnERROR_MSG End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnADDED_WHEN End Get End Property @@ -2898,50 +2604,53 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_TYPERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_ERROR_LOGRow Get - Return CType(Me.Rows(index),TBPM_TYPERow) + Return CType(Me.Rows(index),TBPM_ERROR_LOGRow) End Get End Property _ - Public Event TBPM_TYPERowChanging As TBPM_TYPERowChangeEventHandler + Public Event TBPM_ERROR_LOGRowChanging As TBPM_ERROR_LOGRowChangeEventHandler _ - Public Event TBPM_TYPERowChanged As TBPM_TYPERowChangeEventHandler + Public Event TBPM_ERROR_LOGRowChanged As TBPM_ERROR_LOGRowChangeEventHandler _ - Public Event TBPM_TYPERowDeleting As TBPM_TYPERowChangeEventHandler + Public Event TBPM_ERROR_LOGRowDeleting As TBPM_ERROR_LOGRowChangeEventHandler _ - Public Event TBPM_TYPERowDeleted As TBPM_TYPERowChangeEventHandler + Public Event TBPM_ERROR_LOGRowDeleted As TBPM_ERROR_LOGRowChangeEventHandler _ - Public Overloads Sub AddTBPM_TYPERow(ByVal row As TBPM_TYPERow) + Public Overloads Sub AddTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPM_TYPERow(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 TBPM_TYPERow - Dim rowTBPM_TYPERow As TBPM_TYPERow = CType(Me.NewRow,TBPM_TYPERow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBPM_TYPERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_TYPERow) - Return rowTBPM_TYPERow + Public Overloads Function AddTBPM_ERROR_LOGRow(ByVal parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1 As TBPM_PROFILERow, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPM_ERROR_LOGRow + Dim rowTBPM_ERROR_LOGRow As TBPM_ERROR_LOGRow = CType(Me.NewRow,TBPM_ERROR_LOGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ERROR_MSG, ADDED_WHO, ADDED_WHEN} + If (Not (parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1) Is Nothing) Then + columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1(0) + End If + rowTBPM_ERROR_LOGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_ERROR_LOGRow) + Return rowTBPM_ERROR_LOGRow End Function _ - Public Function FindByGUID(ByVal GUID As Short) As TBPM_TYPERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_TYPERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPM_ERROR_LOGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_ERROR_LOGRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPM_TYPEDataTable = CType(MyBase.Clone,TBPM_TYPEDataTable) + Dim cln As TBPM_ERROR_LOGDataTable = CType(MyBase.Clone,TBPM_ERROR_LOGDataTable) cln.InitVars Return cln End Function @@ -2949,35 +2658,32 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_TYPEDataTable() + Return New TBPM_ERROR_LOGDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") + Me.columnERROR_MSG = MyBase.Columns("ERROR_MSG") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + 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.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFIL_ID) + Me.columnERROR_MSG = New Global.System.Data.DataColumn("ERROR_MSG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERROR_MSG) 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 @@ -2985,38 +2691,38 @@ Partial Public Class DD_DMSLiteDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnBEZEICHNUNG.AllowDBNull = false - Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnPROFIL_ID.AllowDBNull = false + Me.columnERROR_MSG.AllowDBNull = false + Me.columnERROR_MSG.MaxLength = 1000 Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHEN.AllowDBNull = false - Me.columnCHANGED_WHO.MaxLength = 30 End Sub _ - Public Function NewTBPM_TYPERow() As TBPM_TYPERow - Return CType(Me.NewRow,TBPM_TYPERow) + Public Function NewTBPM_ERROR_LOGRow() As TBPM_ERROR_LOGRow + Return CType(Me.NewRow,TBPM_ERROR_LOGRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPM_TYPERow(builder) + Return New TBPM_ERROR_LOGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_TYPERow) + Return GetType(TBPM_ERROR_LOGRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPM_TYPERowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_TYPERowChanged(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) + If (Not (Me.TBPM_ERROR_LOGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_ERROR_LOGRowChanged(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) End If End Sub @@ -3024,8 +2730,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPM_TYPERowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_TYPERowChanging(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) + If (Not (Me.TBPM_ERROR_LOGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_ERROR_LOGRowChanging(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) End If End Sub @@ -3033,8 +2739,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_TYPERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_TYPERowDeleted(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) + If (Not (Me.TBPM_ERROR_LOGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_ERROR_LOGRowDeleted(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) End If End Sub @@ -3042,14 +2748,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_TYPERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_TYPERowDeleting(Me, New TBPM_TYPERowChangeEvent(CType(e.Row,TBPM_TYPERow), e.Action)) + If (Not (Me.TBPM_ERROR_LOGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_ERROR_LOGRowDeleting(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPM_TYPERow(ByVal row As TBPM_TYPERow) + Public Sub RemoveTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) Me.Rows.Remove(row) End Sub @@ -3076,7 +2782,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPM_TYPEDataTable" + attribute2.FixedValue = "TBPM_ERROR_LOGDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3125,24 +2831,62 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPM_ERROR_LOGDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_ERROR_LOGRow) + Partial Public Class VWPM_CONTROL_INDEXDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CONTROL_INDEXRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFIL_ID As Global.System.Data.DataColumn - Private columnERROR_MSG As Global.System.Data.DataColumn + Private columnPROFIL_NAME As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnCTRL_NAME As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnCTRL_TYPE As Global.System.Data.DataColumn + + Private columnCTRL_TEXT As Global.System.Data.DataColumn + + Private columnX_LOC As Global.System.Data.DataColumn + + Private columnY_LOC As Global.System.Data.DataColumn + + Private columnINDEX_NAME As Global.System.Data.DataColumn + + Private columnVALIDATION As Global.System.Data.DataColumn + + Private columnTYP As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn + + Private columnCHOICE_LIST As Global.System.Data.DataColumn + + Private columnFONT_COLOR As Global.System.Data.DataColumn + + Private columnFONT_FAMILY As Global.System.Data.DataColumn + + Private columnFONT_SIZE As Global.System.Data.DataColumn + + Private columnFONT_STYLE As Global.System.Data.DataColumn + + Private columnWIDTH As Global.System.Data.DataColumn + + Private columnHEIGHT As Global.System.Data.DataColumn + + Private columnREAD_ONLY As Global.System.Data.DataColumn + + Private columnLOAD_IDX_VALUE As Global.System.Data.DataColumn + + Private columnLOG_INDEX As Global.System.Data.DataColumn + + Private columnDEFAULT_VALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPM_ERROR_LOG" + Me.TableName = "VWPM_CONTROL_INDEX" Me.BeginInit Me.InitClass Me.EndInit @@ -3191,618 +2935,254 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property ERROR_MSGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFIL_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnERROR_MSG + Return Me.columnPROFIL_NAME End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CTRL_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnCTRL_NAME End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnCTRL_TYPE End Get End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn Get - Return Me.Rows.Count + Return Me.columnCTRL_TEXT End Get End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_ERROR_LOGRow + Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn Get - Return CType(Me.Rows(index),TBPM_ERROR_LOGRow) + Return Me.columnX_LOC End Get End Property - _ - Public Event TBPM_ERROR_LOGRowChanging As TBPM_ERROR_LOGRowChangeEventHandler - - _ - Public Event TBPM_ERROR_LOGRowChanged As TBPM_ERROR_LOGRowChangeEventHandler - - _ - Public Event TBPM_ERROR_LOGRowDeleting As TBPM_ERROR_LOGRowChangeEventHandler - - _ - Public Event TBPM_ERROR_LOGRowDeleted As TBPM_ERROR_LOGRowChangeEventHandler - _ - Public Overloads Sub AddTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) - Me.Rows.Add(row) - End Sub + Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnY_LOC + End Get + End Property _ - Public Overloads Function AddTBPM_ERROR_LOGRow(ByVal parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1 As TBPM_PROFILERow, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPM_ERROR_LOGRow - Dim rowTBPM_ERROR_LOGRow As TBPM_ERROR_LOGRow = CType(Me.NewRow,TBPM_ERROR_LOGRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ERROR_MSG, ADDED_WHO, ADDED_WHEN} - If (Not (parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1) Is Nothing) Then - columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1(0) - End If - rowTBPM_ERROR_LOGRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_ERROR_LOGRow) - Return rowTBPM_ERROR_LOGRow - End Function + Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEX_NAME + End Get + End Property _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPM_ERROR_LOGRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_ERROR_LOGRow) - End Function + Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALIDATION + End Get + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPM_ERROR_LOGDataTable = CType(MyBase.Clone,TBPM_ERROR_LOGDataTable) - cln.InitVars - Return cln - End Function + Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYP + End Get + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_ERROR_LOGDataTable() - End Function + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") - Me.columnERROR_MSG = MyBase.Columns("ERROR_MSG") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - End Sub + Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_UEBERPRUEFUNG + End Get + End Property _ - 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.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFIL_ID) - Me.columnERROR_MSG = New Global.System.Data.DataColumn("ERROR_MSG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERROR_MSG) - 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.columnPROFIL_ID.AllowDBNull = false - Me.columnERROR_MSG.AllowDBNull = false - Me.columnERROR_MSG.MaxLength = 1000 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnADDED_WHEN.AllowDBNull = false - End Sub + Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHOICE_LIST + End Get + End Property _ - Public Function NewTBPM_ERROR_LOGRow() As TBPM_ERROR_LOGRow - Return CType(Me.NewRow,TBPM_ERROR_LOGRow) - End Function + Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_COLOR + End Get + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPM_ERROR_LOGRow(builder) - End Function + Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_FAMILY + End Get + End Property _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_ERROR_LOGRow) - End Function + Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_SIZE + End Get + End Property _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBPM_ERROR_LOGRowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_ERROR_LOGRowChanged(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) - End If - End Sub + Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_STYLE + End Get + End Property _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBPM_ERROR_LOGRowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_ERROR_LOGRowChanging(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) - End If - End Sub + Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWIDTH + End Get + End Property _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_ERROR_LOGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_ERROR_LOGRowDeleted(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) - End If - End Sub + Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHEIGHT + End Get + End Property _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_ERROR_LOGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_ERROR_LOGRowDeleting(Me, New TBPM_ERROR_LOGRowChangeEvent(CType(e.Row,TBPM_ERROR_LOGRow), e.Action)) - End If - End Sub + Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREAD_ONLY + End Get + End Property _ - Public Sub RemoveTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) - 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_DMSLiteDataSet = New DD_DMSLiteDataSet() - 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 = "TBPM_ERROR_LOGDataTable" - 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 VWPM_CONTROL_INDEXDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPM_CONTROL_INDEXRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFIL_ID As Global.System.Data.DataColumn - - Private columnPROFIL_NAME As Global.System.Data.DataColumn - - Private columnCTRL_NAME As Global.System.Data.DataColumn - - Private columnCTRL_TYPE As Global.System.Data.DataColumn - - Private columnCTRL_TEXT As Global.System.Data.DataColumn - - Private columnX_LOC As Global.System.Data.DataColumn - - Private columnY_LOC As Global.System.Data.DataColumn - - Private columnINDEX_NAME As Global.System.Data.DataColumn - - Private columnVALIDATION As Global.System.Data.DataColumn - - Private columnTYP As Global.System.Data.DataColumn - - Private columnCONNECTION_ID As Global.System.Data.DataColumn - - Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn - - Private columnCHOICE_LIST As Global.System.Data.DataColumn - - Private columnFONT_COLOR As Global.System.Data.DataColumn - - Private columnFONT_FAMILY As Global.System.Data.DataColumn - - Private columnFONT_SIZE As Global.System.Data.DataColumn - - Private columnFONT_STYLE As Global.System.Data.DataColumn - - Private columnWIDTH As Global.System.Data.DataColumn - - Private columnHEIGHT As Global.System.Data.DataColumn - - Private columnREAD_ONLY As Global.System.Data.DataColumn - - Private columnLOAD_IDX_VALUE As Global.System.Data.DataColumn - - Private columnLOG_INDEX As Global.System.Data.DataColumn - - Private columnDEFAULT_VALUE As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "VWPM_CONTROL_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 + Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnLOAD_IDX_VALUE End Get End Property _ - Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROFIL_ID + Return Me.columnLOG_INDEX End Get End Property _ - Public ReadOnly Property PROFIL_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROFIL_NAME + Return Me.columnDEFAULT_VALUE End Get End Property _ - Public ReadOnly Property CTRL_NAMEColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnCTRL_NAME + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CONTROL_INDEXRow Get - Return Me.columnCTRL_TYPE + Return CType(Me.Rows(index),VWPM_CONTROL_INDEXRow) End Get End Property + _ + Public Event VWPM_CONTROL_INDEXRowChanging As VWPM_CONTROL_INDEXRowChangeEventHandler + + _ + Public Event VWPM_CONTROL_INDEXRowChanged As VWPM_CONTROL_INDEXRowChangeEventHandler + + _ + Public Event VWPM_CONTROL_INDEXRowDeleting As VWPM_CONTROL_INDEXRowChangeEventHandler + + _ + Public Event VWPM_CONTROL_INDEXRowDeleted As VWPM_CONTROL_INDEXRowChangeEventHandler + _ - Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCTRL_TEXT - End Get - End Property + Public Overloads Sub AddVWPM_CONTROL_INDEXRow(ByVal row As VWPM_CONTROL_INDEXRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn - Get - Return Me.columnX_LOC - End Get - End Property + Public Overloads Function AddVWPM_CONTROL_INDEXRow( _ + ByVal GUID As Integer, _ + ByVal PROFIL_ID As Integer, _ + ByVal PROFIL_NAME As String, _ + ByVal CTRL_NAME As String, _ + ByVal CTRL_TYPE As String, _ + ByVal CTRL_TEXT As String, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + ByVal INDEX_NAME As String, _ + ByVal VALIDATION As Boolean, _ + ByVal TYP As String, _ + ByVal CONNECTION_ID As Short, _ + ByVal SQL_UEBERPRUEFUNG As String, _ + ByVal CHOICE_LIST As String, _ + ByVal FONT_COLOR As Long, _ + ByVal FONT_FAMILY As String, _ + ByVal FONT_SIZE As Short, _ + ByVal FONT_STYLE As Short, _ + ByVal WIDTH As Short, _ + ByVal HEIGHT As Short, _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal LOG_INDEX As String, _ + ByVal DEFAULT_VALUE As String) As VWPM_CONTROL_INDEXRow + Dim rowVWPM_CONTROL_INDEXRow As VWPM_CONTROL_INDEXRow = CType(Me.NewRow,VWPM_CONTROL_INDEXRow) + Dim columnValuesArray() As Object = New Object() {GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, INDEX_NAME, VALIDATION, TYP, CONNECTION_ID, SQL_UEBERPRUEFUNG, CHOICE_LIST, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE} + rowVWPM_CONTROL_INDEXRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CONTROL_INDEXRow) + Return rowVWPM_CONTROL_INDEXRow + End Function _ - Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn - Get - Return Me.columnY_LOC - End Get - End Property - - _ - Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnINDEX_NAME - End Get - End Property - - _ - Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVALIDATION - End Get - End Property - - _ - Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTYP - 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_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_UEBERPRUEFUNG - End Get - End Property - - _ - Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHOICE_LIST - End Get - End Property - - _ - Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_COLOR - End Get - End Property - - _ - Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_FAMILY - End Get - End Property - - _ - Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_SIZE - End Get - End Property - - _ - Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_STYLE - 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 READ_ONLYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREAD_ONLY - End Get - End Property - - _ - Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOAD_IDX_VALUE - End Get - End Property - - _ - Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_INDEX - End Get - End Property - - _ - Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDEFAULT_VALUE - 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 VWPM_CONTROL_INDEXRow - Get - Return CType(Me.Rows(index),VWPM_CONTROL_INDEXRow) - End Get - End Property - - _ - Public Event VWPM_CONTROL_INDEXRowChanging As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Event VWPM_CONTROL_INDEXRowChanged As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Event VWPM_CONTROL_INDEXRowDeleting As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Event VWPM_CONTROL_INDEXRowDeleted As VWPM_CONTROL_INDEXRowChangeEventHandler - - _ - Public Overloads Sub AddVWPM_CONTROL_INDEXRow(ByVal row As VWPM_CONTROL_INDEXRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWPM_CONTROL_INDEXRow( _ - ByVal GUID As Integer, _ - ByVal PROFIL_ID As Integer, _ - ByVal PROFIL_NAME As String, _ - ByVal CTRL_NAME As String, _ - ByVal CTRL_TYPE As String, _ - ByVal CTRL_TEXT As String, _ - ByVal X_LOC As Double, _ - ByVal Y_LOC As Double, _ - ByVal INDEX_NAME As String, _ - ByVal VALIDATION As Boolean, _ - ByVal TYP As String, _ - ByVal CONNECTION_ID As Short, _ - ByVal SQL_UEBERPRUEFUNG As String, _ - ByVal CHOICE_LIST As String, _ - ByVal FONT_COLOR As Long, _ - ByVal FONT_FAMILY As String, _ - ByVal FONT_SIZE As Short, _ - ByVal FONT_STYLE As Short, _ - ByVal WIDTH As Short, _ - ByVal HEIGHT As Short, _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal LOG_INDEX As String, _ - ByVal DEFAULT_VALUE As String) As VWPM_CONTROL_INDEXRow - Dim rowVWPM_CONTROL_INDEXRow As VWPM_CONTROL_INDEXRow = CType(Me.NewRow,VWPM_CONTROL_INDEXRow) - Dim columnValuesArray() As Object = New Object() {GUID, PROFIL_ID, PROFIL_NAME, CTRL_NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, INDEX_NAME, VALIDATION, TYP, CONNECTION_ID, SQL_UEBERPRUEFUNG, CHOICE_LIST, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, WIDTH, HEIGHT, READ_ONLY, LOAD_IDX_VALUE, LOG_INDEX, DEFAULT_VALUE} - rowVWPM_CONTROL_INDEXRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPM_CONTROL_INDEXRow) - Return rowVWPM_CONTROL_INDEXRow - End Function - - _ - Public Function FindByGUIDPROFIL_ID(ByVal GUID As Integer, ByVal PROFIL_ID As Integer) As VWPM_CONTROL_INDEXRow - Return CType(Me.Rows.Find(New Object() {GUID, PROFIL_ID}),VWPM_CONTROL_INDEXRow) - End Function + Public Function FindByGUIDPROFIL_ID(ByVal GUID As Integer, ByVal PROFIL_ID As Integer) As VWPM_CONTROL_INDEXRow + Return CType(Me.Rows.Find(New Object() {GUID, PROFIL_ID}),VWPM_CONTROL_INDEXRow) + End Function _ @@ -8868,844 +8248,678 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWPM_PROFILE_USERRow + Partial Public Class TBPM_KONFIGURATIONRow Inherits Global.System.Data.DataRow - Private tableVWPM_PROFILE_USER As VWPM_PROFILE_USERDataTable + Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWPM_PROFILE_USER = CType(Me.Table,VWPM_PROFILE_USERDataTable) + Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) End Sub _ - Public Property PROFIL_ID() As Integer + Public Property GUID() As Byte Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PROFIL_IDColumn),Integer) + Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) End Get Set - Me(Me.tableVWPM_PROFILE_USER.PROFIL_IDColumn) = value + Me(Me.tableTBPM_KONFIGURATION.GUIDColumn) = value End Set End Property _ - Public Property PROFIL_NAME() As String + Public Property LIZENZEN() As String Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PROFIL_NAMEColumn),String) + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LIZENZEN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.PROFIL_NAMEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = value End Set End Property _ - Public Property PRIORITY() As Integer + Public Property ERFASSTWER() As String Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PRIORITYColumn),Integer) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) End Get Set - Me(Me.tableVWPM_PROFILE_USER.PRIORITYColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn) = value End Set End Property _ - Public Property WD_SEARCH() As String + Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.WD_SEARCHColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) End Get Set - Me(Me.tableVWPM_PROFILE_USER.WD_SEARCHColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn) = value End Set End Property _ - Public Property NO_OF_DOCUMENTS() As Integer + Public Property ERSTELLTWANN() As Date Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.NO_OF_DOCUMENTSColumn),Integer) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) End Get Set - Me(Me.tableVWPM_PROFILE_USER.NO_OF_DOCUMENTSColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property GEAENDERTWER() As String Get Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.EMAILColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle VWPM_PROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.EMAILColumn) = value + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property INTERVALL_CKECK_NO_OF_FILES() As Short Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) End Get Set - Me(Me.tableVWPM_PROFILE_USER.USERNAMEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn) = value End Set End Property _ - Public Property ACTIVE() As Boolean + Public Property GEAENDERTWANN() As Date Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.ACTIVEColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.ACTIVEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = value End Set End Property _ - Public Property TITLE() As String + Public Property EMAIL_ACTIVE() As Boolean Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.TITLEColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) End Get Set - Me(Me.tableVWPM_PROFILE_USER.TITLEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn) = value End Set End Property _ - Public Property FINAL_PROFILE() As Boolean + Public Property EMAIL_FROM() As String Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.FINAL_PROFILEColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_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 TBPM_KONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.FINAL_PROFILEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = value End Set End Property _ - Public Property FINAL_TEXT() As String + Public Property EMAIL_SMTP() As String Get Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle VWPM_PROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = value End Set End Property _ - Public Property MOVE2Folder() As String + Public Property EMAIL_USER() As String Get Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2Folder in Tabelle VWPM_PROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn) = value - End Set - End Property - - _ - Public Property WD_OBJECTTYPE() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.WD_OBJECTTYPEColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.WD_OBJECTTYPEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property EMAIL_PW() As String Get Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.PRENAMEColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWPM_PROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.PRENAMEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property EMAIL_REMINDER_HEADER() As String Get Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.NAMEColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWPM_PROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_HEADER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.NAMEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value End Set End Property _ - Public Property DESCRIPTION() As String + Public Property EMAIL_REMINDER_FOOTER() As String Get Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle VWPM_PROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_FOOTER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value End Set End Property _ - Public Property LOG_INDEX() As String + Public Property VEKTOR_DELIMITER() As String Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.LOG_INDEXColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn),String) End Get Set - Me(Me.tableVWPM_PROFILE_USER.LOG_INDEXColumn) = value + Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn) = value End Set End Property _ - Public Property SCOPE() As String + Public Property ADMIN_PW() As String Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.SCOPEColumn),String) + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADMIN_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWPM_PROFILE_USER.SCOPEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = value End Set End Property _ - Public Property IN_WORK() As Boolean + Public Property ADMIN_SECURITY() As Boolean Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.IN_WORKColumn),Boolean) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) End Get Set - Me(Me.tableVWPM_PROFILE_USER.IN_WORKColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn) = value End Set End Property _ - Public Property PM_VEKTOR_INDEX() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PM_VEKTOR_INDEXColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PM_VEKTOR_INDEXColumn) = value - End Set - End Property + Public Function IsLIZENZENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) + End Function _ - Public Property PROFILE_GROUP_COLOR() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_COLORColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROFILE_GROUP_COLOR in Tabelle VWPM_PROFILE_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_COLORColumn) = value - End Set - End Property + Public Sub SetLIZENZENNull() + Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property PROFILE_GROUP_TEXT() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_TEXTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROFILE_GROUP_TEXT in Tabelle VWPM_PROFILE_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_TEXTColumn) = value - End Set - End Property + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) + End Function _ - Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.EMAILColumn) + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) End Function _ - Public Sub SetEMAILNull() - Me(Me.tableVWPM_PROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFINAL_TEXTNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn) + Public Function IsEMAIL_FROMNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) End Function _ - Public Sub SetFINAL_TEXTNull() - Me(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_FROMNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMOVE2FolderNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn) + Public Function IsEMAIL_SMTPNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) End Function _ - Public Sub SetMOVE2FolderNull() - Me(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_SMTPNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.PRENAMEColumn) + Public Function IsEMAIL_USERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) End Function _ - Public Sub SetPRENAMENull() - Me(Me.tableVWPM_PROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_USERNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.NAMEColumn) + Public Function IsEMAIL_PWNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableVWPM_PROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_PWNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDESCRIPTIONNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn) + Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) End Function _ - Public Sub SetDESCRIPTIONNull() - Me(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_REMINDER_HEADERNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPROFILE_GROUP_COLORNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_COLORColumn) + Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) End Function _ - Public Sub SetPROFILE_GROUP_COLORNull() - Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_COLORColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_REMINDER_FOOTERNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPROFILE_GROUP_TEXTNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_TEXTColumn) + Public Function IsADMIN_PWNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) End Function _ - Public Sub SetPROFILE_GROUP_TEXTNull() - Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_TEXTColumn) = Global.System.Convert.DBNull + Public Sub SetADMIN_PWNull() + Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_KONFIGURATIONRow + Partial Public Class TBDD_USERRow Inherits Global.System.Data.DataRow - Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable + Private tableTBDD_USER As TBDD_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ - Public Property GUID() As Byte + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_KONFIGURATION.GUIDColumn) = value + Me(Me.tableTBDD_USER.GUIDColumn) = value End Set End Property _ - Public Property LIZENZEN() As String + Public Property PRENAME() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn),String) + 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 LIZENZEN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.LIZENZENColumn) = value - End Set - End Property - - _ - Public Property ERFASSTWER() As String - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn) = value - End Set - End Property - - _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn) = value - End Set - End Property - - _ - Public Property ERSTELLTWANN() As Date - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn) = value + Me(Me.tableTBDD_USER.PRENAMEColumn) = value End Set End Property _ - Public Property GEAENDERTWER() As String + Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn),String) + 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 GEAENDERTWER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = value + Me(Me.tableTBDD_USER.NAMEColumn) = value End Set End Property _ - Public Property INTERVALL_CKECK_NO_OF_FILES() As Short + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) End Get Set - Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn) = value + Me(Me.tableTBDD_USER.USERNAMEColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property EMAIL() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn),Date) + 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 GEAENDERTWANN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = value + Me(Me.tableTBDD_USER.EMAILColumn) = value End Set End Property _ - Public Property EMAIL_ACTIVE() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn) = value + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value End Set End Property _ - Public Property EMAIL_FROM() As String + Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn),String) + 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 EMAIL_FROM in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = value + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value End Set End Property _ - Public Property EMAIL_SMTP() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn),String) + 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 EMAIL_SMTP in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = value + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value End Set End Property _ - Public Property EMAIL_USER() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn),String) + 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 EMAIL_USER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = value + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value End Set End Property _ - Public Property EMAIL_PW() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn),String) + 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 EMAIL_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + 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.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = value + Me(Me.tableTBDD_USER.COMMENTColumn) = value End Set End Property _ - Public Property EMAIL_REMINDER_HEADER() As String + Public Property SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) + 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 EMAIL_REMINDER_HEADER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ - "l.", e) + 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.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value End Set End Property _ - Public Property EMAIL_REMINDER_FOOTER() As String - Get - Try - Return CType(Me(Me.tableTBPM_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 TBPM_KONFIGURATION ist DBNul"& _ - "l.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value - End Set - End Property - - _ - Public Property VEKTOR_DELIMITER() As String - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn),String) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn) = value - End Set - End Property - - _ - Public Property ADMIN_PW() As String - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADMIN_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = value - End Set - End Property - - _ - Public Property ADMIN_SECURITY() As Boolean - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn) = value - End Set - End Property - - _ - Public Function IsLIZENZENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) - End Function - - _ - Public Sub SetLIZENZENNull() - Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsGEAENDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) - End Function - - _ - Public Sub SetGEAENDERTWERNull() - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEMAIL_FROMNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ - Public Sub SetEMAIL_FROMNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEMAIL_SMTPNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ - Public Sub SetEMAIL_SMTPNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEMAIL_USERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function _ - Public Sub SetEMAIL_USERNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEMAIL_PWNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ - Public Sub SetEMAIL_PWNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ - Public Sub SetEMAIL_REMINDER_HEADERNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) End Function _ - Public Sub SetEMAIL_REMINDER_FOOTERNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADMIN_PWNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ - Public Sub SetADMIN_PWNull() - Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = Global.System.Convert.DBNull + Public Sub SetSHORTNAMENull() + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_USERRow + Partial Public Class TBPM_TYPERow Inherits Global.System.Data.DataRow - Private tableTBDD_USER As TBDD_USERDataTable + Private tableTBPM_TYPE As TBPM_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + Me.tableTBPM_TYPE = CType(Me.Table,TBPM_TYPEDataTable) 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 + Public Property GUID() As Short Get - Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPM_TYPE.GUIDColumn),Short) End Get Set - Me(Me.tableTBDD_USER.USERNAMEColumn) = value + Me(Me.tableTBPM_TYPE.GUIDColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property BEZEICHNUNG() 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 + Return CType(Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn),String) End Get Set - Me(Me.tableTBDD_USER.EMAILColumn) = value + Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn) = value End Set End Property @@ -9713,10 +8927,10 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + Me(Me.tableTBPM_TYPE.ADDED_WHOColumn) = value End Set End Property @@ -9724,14 +8938,10 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.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 + Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + Me(Me.tableTBPM_TYPE.ADDED_WHENColumn) = value End Set End Property @@ -9740,13 +8950,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_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 TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = value End Set End Property @@ -9755,248 +8965,32 @@ Partial Public Class DD_DMSLiteDataSet Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_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 TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = 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 Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHOColumn) + End Function _ - 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 Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - 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 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 - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPM_TYPERow - Inherits Global.System.Data.DataRow - - Private tableTBPM_TYPE As TBPM_TYPEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_TYPE = CType(Me.Table,TBPM_TYPEDataTable) - End Sub - - _ - Public Property GUID() As Short - Get - Return CType(Me(Me.tableTBPM_TYPE.GUIDColumn),Short) - End Get - Set - Me(Me.tableTBPM_TYPE.GUIDColumn) = value - End Set - End Property - - _ - Public Property BEZEICHNUNG() As String - Get - Return CType(Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn),String) - End Get - Set - Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBPM_TYPE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBPM_TYPE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPM_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 TBPM_TYPE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPM_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 TBPM_TYPE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHENColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHENColumn) End Function - '''Row event argument class - ''' - _ - Public Class VWPM_PROFILE_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWPM_PROFILE_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWPM_PROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWPM_PROFILE_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 ''' @@ -13942,550 +12900,73 @@ Partial Public Class DD_DMSLiteDataSet Public Class TBPROFILE_GROUPRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPROFILE_GROUPRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBPROFILE_GROUPRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_CONNECTIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWH_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 -End Class - -Namespace DD_DMSLiteDataSetTableAdapters - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter - 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 = "TBPM_PROFILE_FINAL_INDEXING" - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("VALUE", "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") - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID"& _ - ",@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_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, 100, 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, 100, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, 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("@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("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", 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_PM_WINDREAM.My.MySettings.Default.ConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING."& _ - "VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ - "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ - "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ - "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ - "NDEXING.SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TB"& _ - "PM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).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._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID"& _ - ",@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).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._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ - "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ - " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROFIL_ID = @Copy_Profil_ID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).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(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONNECTION_ID = @CON"& _ - "_ID, SQL_COMMAND = @COMMAND, CHANGED_WHO = @WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CON_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).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._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ - "WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.CHANG"& _ - "ED_WHO, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.INDEXNAME,"& _ - " TBPM_PROFILE_FINAL_INDEXING.VALUE FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN T"& _ - "BPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID WHERE ("& _ - "TBPM_PROFILE.GUID = @ID)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).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_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,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 name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) - End If - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(6) - 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_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(6) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") - End Function + Private eventRow As TBPROFILE_GROUPRow - _ - 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 + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(guid,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Row() As TBPROFILE_GROUPRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFIL_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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - command.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("VALUE") - Else - command.Parameters(2).Value = CType(VALUE,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 - command.Parameters(4).Value = CType(CONNECTION_ID,Short) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - command.Parameters(5).Value = CType(SQL_COMMAND,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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - If (NEW_PROFIL_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") - Else - command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) - End If - If (User Is Nothing) Then - Throw New Global.System.ArgumentNullException("User") - Else - command.Parameters(1).Value = CType(User,String) - End If - command.Parameters(2).Value = CType(Copy_Profil_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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Row() As TBWH_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - command.Parameters(0).Value = CType(CON_ID,Short) - If (COMMAND1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMAND1") - Else - command.Parameters(1).Value = CType(COMMAND1,String) - End If - If (WHO Is Nothing) Then - command.Parameters(2).Value = Global.System.DBNull.Value - Else - command.Parameters(2).Value = CType(WHO,String) - End If - command.Parameters(3).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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class +End Class + +Namespace DD_DMSLiteDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -14496,7 +12977,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPM_PROFILE_USERTableAdapter + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -14613,30 +13094,34 @@ Namespace DD_DMSLiteDataSetTableAdapters 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 = "VWPM_PROFILE_USER" - tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") - tableMapping.ColumnMappings.Add("PROFIL_NAME", "PROFIL_NAME") - tableMapping.ColumnMappings.Add("PRIORITY", "PRIORITY") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("NO_OF_DOCUMENTS", "NO_OF_DOCUMENTS") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("FINAL_PROFILE", "FINAL_PROFILE") - tableMapping.ColumnMappings.Add("FINAL_TEXT", "FINAL_TEXT") - tableMapping.ColumnMappings.Add("MOVE2Folder", "MOVE2Folder") - tableMapping.ColumnMappings.Add("WD_OBJECTTYPE", "WD_OBJECTTYPE") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX") - tableMapping.ColumnMappings.Add("SCOPE", "SCOPE") - tableMapping.ColumnMappings.Add("IN_WORK", "IN_WORK") - tableMapping.ColumnMappings.Add("PM_VEKTOR_INDEX", "PM_VEKTOR_INDEX") - tableMapping.ColumnMappings.Add("PROFILE_GROUP_COLOR", "PROFILE_GROUP_COLOR") - tableMapping.ColumnMappings.Add("PROFILE_GROUP_TEXT", "PROFILE_GROUP_TEXT") + tableMapping.DataSetTable = "TBPM_PROFILE_FINAL_INDEXING" + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "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") + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID"& _ + ",@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_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, 100, 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, 100, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, 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("@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("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT VWPM_PROFILE_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (UPPER(USERNAME) = UPPER(@USERNAME))" + Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING."& _ + "VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ + "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ + "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ + "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ + "NDEXING.SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TB"& _ + "PM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).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._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT * FROM VWPM_PROFILE_USER WHERE (ACTIVE = 1) AND (UPPER(USERNAME) = UPPER("& _ - "@USERNAME)) ORDER BY PRIORITY" + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", 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("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", 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 = "SELECT * FROM VWPM_PROFILE_USER WHERE (PROFIL_NAME = @PROFIL_NAME) AND (LOWER(USE"& _ - "RNAME) = LOWER(@user))" + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).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(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT * FROM VWPM_PROFILE_USER WHERE (LOWER(USERNAME) = LOWER(@user)) AND (PROFI"& _ - "L_ID = @PROFIL_ID)" + Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID"& _ + ",@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND)" Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).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(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).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._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ + "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @Copy_Profil_ID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).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(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONNECTION_ID = @CON"& _ + "_ID, SQL_COMMAND = @COMMAND, CHANGED_WHO = @WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CON_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).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._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ + "WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.CHANG"& _ + "ED_WHO, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.INDEXNAME,"& _ + " TBPM_PROFILE_FINAL_INDEXING.VALUE FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN T"& _ + "BPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID WHERE ("& _ + "TBPM_PROFILE.GUID = @ID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).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_DMSLiteDataSet.VWPM_PROFILE_USERDataTable, ByVal USERNAME As String) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) End If If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -14700,14 +13223,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal USERNAME As String) As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable + Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) End If - Dim dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable = New DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -14716,13 +13239,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ - Public Overloads Overridable Function FillByActive(ByVal dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable, ByVal USERNAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -14734,96 +13253,195 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ - Public Overloads Overridable Function GetDataByActive(ByVal USERNAME As String) As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - Dim dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable = New DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable() + Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") + 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 FillByName(ByVal dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable, ByVal PROFIL_NAME As String, ByVal user As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (PROFIL_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROFIL_NAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFIL_NAME,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 + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(guid,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + 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 GetDataByname(ByVal PROFIL_NAME As String, ByVal user As String) As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (PROFIL_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROFIL_NAME") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROFIL_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 CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + command.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("VALUE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFIL_NAME,String) + command.Parameters(2).Value = CType(VALUE,String) End If - If (user Is Nothing) Then - Throw New Global.System.ArgumentNullException("user") + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.SelectCommand.Parameters(1).Value = CType(user,String) + command.Parameters(3).Value = CType(ADDED_WHO,String) End If - Dim dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable = New DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + command.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + command.Parameters(5).Value = CType(SQL_COMMAND,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 FillByPROFIL_ID(ByVal dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable, ByVal user As String, ByVal PROFIL_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(3) - If (user Is Nothing) Then - Throw New Global.System.ArgumentNullException("user") + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + If (NEW_PROFIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(user,String) + command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFIL_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (User Is Nothing) Then + Throw New Global.System.ArgumentNullException("User") + Else + command.Parameters(1).Value = CType(User,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + command.Parameters(2).Value = CType(Copy_Profil_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 GetDataByPROFIL_ID(ByVal user As String, ByVal PROFIL_ID As Integer) As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(3) - If (user Is Nothing) Then - Throw New Global.System.ArgumentNullException("user") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _ + Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + command.Parameters(0).Value = CType(CON_ID,Short) + If (COMMAND1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COMMAND1") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(user,String) + command.Parameters(1).Value = CType(COMMAND1,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFIL_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable = New DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + If (WHO Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(WHO,String) + End If + command.Parameters(3).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 diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc index 5716e53..7811c41 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc @@ -6,15 +6,6 @@ --> - - - - - - - - - diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 0f65181..f439275 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -168,80 +168,6 @@ WHERE (GUID = @GUID) - - - - - - SELECT VWPM_PROFILE_USER.* -FROM VWPM_PROFILE_USER -WHERE (UPPER(USERNAME) = UPPER(@USERNAME)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT * FROM VWPM_PROFILE_USER WHERE (ACTIVE = 1) AND (UPPER(USERNAME) = UPPER(@USERNAME)) ORDER BY PRIORITY - - - - - - - - - - SELECT * FROM VWPM_PROFILE_USER WHERE (PROFIL_NAME = @PROFIL_NAME) AND (LOWER(USERNAME) = LOWER(@user)) - - - - - - - - - - - SELECT * FROM VWPM_PROFILE_USER WHERE (LOWER(USERNAME) = LOWER(@user)) AND (PROFIL_ID = @PROFIL_ID) - - - - - - - - - @@ -2092,7 +2018,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2137,131 +2063,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -2357,7 +2159,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2422,7 +2224,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2452,7 +2254,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2475,7 +2277,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2565,7 +2367,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2638,7 +2440,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2687,7 +2489,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2702,7 +2504,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2723,7 +2525,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2831,7 +2633,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2904,7 +2706,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2955,7 +2757,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -3047,7 +2849,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -3104,7 +2906,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -3145,7 +2947,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -3189,10 +2991,6 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - - - - @@ -3265,11 +3063,11 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 54b8d12..40a0723 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,29 +4,28 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - + + + - + - + - - + + - + - + 461 @@ -38,7 +37,7 @@ - + 175 @@ -54,7 +53,7 @@ - + 515 @@ -66,7 +65,7 @@ - + 844 @@ -82,7 +81,7 @@ - + 141