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) @@ -1275,591 +1240,6 @@ Partial Public Class DD_DMSLiteDataSet End Function End Class - ''' - '''Represents the strongly named DataTable class. - ''' - _ - 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 - - Private columnNO_OF_DOCUMENTS As Global.System.Data.DataColumn - - Private columnEMAIL As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnTITLE As Global.System.Data.DataColumn - - Private columnFINAL_PROFILE As Global.System.Data.DataColumn - - Private columnFINAL_TEXT As Global.System.Data.DataColumn - - Private columnMOVE2Folder As Global.System.Data.DataColumn - - Private columnWD_OBJECTTYPE As Global.System.Data.DataColumn - - Private columnPRENAME As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnDESCRIPTION As Global.System.Data.DataColumn - - Private columnLOG_INDEX As Global.System.Data.DataColumn - - Private columnSCOPE As Global.System.Data.DataColumn - - Private columnIN_WORK As Global.System.Data.DataColumn - - Private columnPM_VEKTOR_INDEX As Global.System.Data.DataColumn - - Private columnPROFILE_GROUP_COLOR As Global.System.Data.DataColumn - - Private columnPROFILE_GROUP_TEXT As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "VWPM_PROFILE_USER" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property 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 - Get - Return Me.columnNO_OF_DOCUMENTS - End Get - End Property - - _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL - End Get - End Property - - _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSERNAME - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - - _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTITLE - End Get - End Property - - _ - Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFINAL_PROFILE - End Get - End Property - - _ - Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFINAL_TEXT - End Get - End Property - - _ - Public ReadOnly Property MOVE2FolderColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMOVE2Folder - End Get - End Property - - _ - Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_OBJECTTYPE - End Get - End Property - - _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDESCRIPTION - 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 SCOPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSCOPE - End Get - End Property - - _ - Public ReadOnly Property IN_WORKColumn() As Global.System.Data.DataColumn - Get - Return Me.columnIN_WORK - End Get - End Property - - _ - Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPM_VEKTOR_INDEX - End Get - End Property - - _ - Public ReadOnly Property PROFILE_GROUP_COLORColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_GROUP_COLOR - End Get - End Property - - _ - Public ReadOnly Property PROFILE_GROUP_TEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_GROUP_TEXT - 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_PROFILE_USERRow - Get - Return CType(Me.Rows(index),VWPM_PROFILE_USERRow) - End Get - End Property - - _ - Public Event VWPM_PROFILE_USERRowChanging As VWPM_PROFILE_USERRowChangeEventHandler - - _ - Public Event VWPM_PROFILE_USERRowChanged As VWPM_PROFILE_USERRowChangeEventHandler - - _ - Public Event VWPM_PROFILE_USERRowDeleting As VWPM_PROFILE_USERRowChangeEventHandler - - _ - Public Event VWPM_PROFILE_USERRowDeleted As VWPM_PROFILE_USERRowChangeEventHandler - - _ - Public Overloads Sub AddVWPM_PROFILE_USERRow(ByVal row As VWPM_PROFILE_USERRow) - 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 - 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) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPM_PROFILE_USERDataTable = CType(MyBase.Clone,VWPM_PROFILE_USERDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPM_PROFILE_USERDataTable() - 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") - 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 - End Sub - - _ - Public Function NewVWPM_PROFILE_USERRow() As VWPM_PROFILE_USERRow - Return CType(Me.NewRow,VWPM_PROFILE_USERRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPM_PROFILE_USERRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPM_PROFILE_USERRow) - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - Public Sub RemoveVWPM_PROFILE_USERRow(ByVal row As VWPM_PROFILE_USERRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As DD_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 = "VWPM_PROFILE_USERDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - ''' '''Represents the strongly named DataTable class. ''' @@ -8865,392 +8245,6 @@ Partial Public Class DD_DMSLiteDataSet End Sub End Class - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWPM_PROFILE_USERRow - Inherits Global.System.Data.DataRow - - Private tableVWPM_PROFILE_USER As VWPM_PROFILE_USERDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWPM_PROFILE_USER = CType(Me.Table,VWPM_PROFILE_USERDataTable) - End Sub - - _ - Public Property PROFIL_ID() As Integer - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PROFIL_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PROFIL_IDColumn) = value - End Set - End Property - - _ - Public Property PROFIL_NAME() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PROFIL_NAMEColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PROFIL_NAMEColumn) = value - End Set - End Property - - _ - Public Property PRIORITY() As Integer - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.PRIORITYColumn),Integer) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PRIORITYColumn) = value - End Set - End Property - - _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.WD_SEARCHColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.WD_SEARCHColumn) = value - End Set - End Property - - _ - Public Property NO_OF_DOCUMENTS() As Integer - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.NO_OF_DOCUMENTSColumn),Integer) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.NO_OF_DOCUMENTSColumn) = value - End Set - End Property - - _ - Public Property EMAIL() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.EMAILColumn),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) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.EMAILColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.USERNAMEColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.ACTIVEColumn) = value - End Set - End Property - - _ - Public Property TITLE() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.TITLEColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.TITLEColumn) = value - End Set - End Property - - _ - Public Property FINAL_PROFILE() As Boolean - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.FINAL_PROFILEColumn),Boolean) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.FINAL_PROFILEColumn) = value - End Set - End Property - - _ - Public Property FINAL_TEXT() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn),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) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn) = value - End Set - End Property - - _ - Public Property MOVE2Folder() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn),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) - 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 - End Set - End Property - - _ - Public Property PRENAME() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.PRENAMEColumn),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) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.PRENAMEColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.NAMEColumn),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) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.NAMEColumn) = value - End Set - End Property - - _ - Public Property DESCRIPTION() As String - Get - Try - Return CType(Me(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn),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) - End Try - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn) = value - End Set - End Property - - _ - Public Property LOG_INDEX() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.LOG_INDEXColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.LOG_INDEXColumn) = value - End Set - End Property - - _ - Public Property SCOPE() As String - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.SCOPEColumn),String) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.SCOPEColumn) = value - End Set - End Property - - _ - Public Property IN_WORK() As Boolean - Get - Return CType(Me(Me.tableVWPM_PROFILE_USER.IN_WORKColumn),Boolean) - End Get - Set - Me(Me.tableVWPM_PROFILE_USER.IN_WORKColumn) = 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 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 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 IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.EMAILColumn) - End Function - - _ - Public Sub SetEMAILNull() - Me(Me.tableVWPM_PROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFINAL_TEXTNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn) - End Function - - _ - Public Sub SetFINAL_TEXTNull() - Me(Me.tableVWPM_PROFILE_USER.FINAL_TEXTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsMOVE2FolderNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn) - End Function - - _ - Public Sub SetMOVE2FolderNull() - Me(Me.tableVWPM_PROFILE_USER.MOVE2FolderColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.PRENAMEColumn) - End Function - - _ - Public Sub SetPRENAMENull() - Me(Me.tableVWPM_PROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableVWPM_PROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDESCRIPTIONNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn) - End Function - - _ - Public Sub SetDESCRIPTIONNull() - Me(Me.tableVWPM_PROFILE_USER.DESCRIPTIONColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPROFILE_GROUP_COLORNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_COLORColumn) - End Function - - _ - Public Sub SetPROFILE_GROUP_COLORNull() - Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_COLORColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPROFILE_GROUP_TEXTNull() As Boolean - Return Me.IsNull(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_TEXTColumn) - End Function - - _ - Public Sub SetPROFILE_GROUP_TEXTNull() - Me(Me.tableVWPM_PROFILE_USER.PROFILE_GROUP_TEXTColumn) = Global.System.Convert.DBNull - End Sub - End Class - ''' '''Represents strongly named DataRow class. ''' @@ -13395,42 +12389,6 @@ Partial Public Class DD_DMSLiteDataSet End Property End Class - ''' - '''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 ''' @@ -14487,346 +13445,6 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function End Class - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWPM_PROFILE_USERTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "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") - Me._adapter.TableMappings.Add(tableMapping) - 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(3) {} - 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).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT * FROM VWPM_PROFILE_USER WHERE (ACTIVE = 1) AND (UPPER(USERNAME) = UPPER("& _ - "@USERNAME)) ORDER BY PRIORITY" - 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(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).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(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).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, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable, ByVal USERNAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal USERNAME As String) As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - Dim dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable = New DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - 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 - 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 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() - Me.Adapter.Fill(dataTable) - Return dataTable - 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 - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - 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") - 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 - Dim dataTable As DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable = New DD_DMSLiteDataSet.VWPM_PROFILE_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - 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") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(user,String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFIL_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 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") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(user,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 - End Function - End Class - ''' '''Represents the connection and commands used to retrieve and save data. ''' 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