From 4438c6e9a7aa81ac91cffeb4d8eccc6577cf7128 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 25 Jul 2019 13:19:13 +0200 Subject: [PATCH] add groups, count functions per search --- app/DD_Clipboard_Searcher/ClassConfig.vb | 2 +- app/DD_Clipboard_Searcher/ClassConstants.vb | 3 + .../ClassProfileFilter.vb | 58 +- .../DD_Clipboard_Watcher.vbproj | 5 +- .../MyDataset.Designer.vb | 6290 ++++++++++++++--- app/DD_Clipboard_Searcher/MyDataset.vb | 4 + app/DD_Clipboard_Searcher/MyDataset.xsc | 18 +- app/DD_Clipboard_Searcher/MyDataset.xsd | 500 +- app/DD_Clipboard_Searcher/MyDataset.xss | 45 +- app/DD_Clipboard_Searcher/clsHotkey.vb | 2 +- app/DD_Clipboard_Searcher/clsWINDOWSApi.vb | 36 +- .../frmAdministration.Designer.vb | 1555 +++- .../frmAdministration.resx | 278 +- .../frmAdministration.vb | 163 +- app/DD_Clipboard_Searcher/frmConfig_Basic.vb | 2 +- app/DD_Clipboard_Searcher/frmProfileMatch.vb | 10 +- .../frmStart.Designer.vb | 7 +- app/DD_Clipboard_Searcher/frmStart.vb | 304 +- app/DD_Clipboard_Searcher/modCurrent.vb | 4 +- app/DD_Clipboard_Searcher/modMySettings.vb | 142 - 20 files changed, 7777 insertions(+), 1651 deletions(-) create mode 100644 app/DD_Clipboard_Searcher/MyDataset.vb delete mode 100644 app/DD_Clipboard_Searcher/modMySettings.vb diff --git a/app/DD_Clipboard_Searcher/ClassConfig.vb b/app/DD_Clipboard_Searcher/ClassConfig.vb index 1aaf4ce..ec75401 100644 --- a/app/DD_Clipboard_Searcher/ClassConfig.vb +++ b/app/DD_Clipboard_Searcher/ClassConfig.vb @@ -4,7 +4,7 @@ Public Class ClassConfig Public Property ConnectionString As String = "" Public Property LogErrorsOnly As Boolean = True - Public Property HotkeyFunctionKey As String = "strg" + Public Property HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL Public Property HotkeySearchKey As String = "f" Public Property LoadDocumentView As Boolean = False diff --git a/app/DD_Clipboard_Searcher/ClassConstants.vb b/app/DD_Clipboard_Searcher/ClassConstants.vb index b8462d3..a2bc743 100644 --- a/app/DD_Clipboard_Searcher/ClassConstants.vb +++ b/app/DD_Clipboard_Searcher/ClassConstants.vb @@ -4,4 +4,7 @@ Public Const HOTKEY_TOGGLE_WATCHER As Integer = 354522017 Public Const HOTKEY_TRIGGER_WATCHER As Integer = 354523017 + + Public Const HOTKEY_CTRL = "strg" + Public Const HOTKEY_SHIFT = "SHIFT" End Class diff --git a/app/DD_Clipboard_Searcher/ClassProfileFilter.vb b/app/DD_Clipboard_Searcher/ClassProfileFilter.vb index d98bc42..091d3f6 100644 --- a/app/DD_Clipboard_Searcher/ClassProfileFilter.vb +++ b/app/DD_Clipboard_Searcher/ClassProfileFilter.vb @@ -1,4 +1,5 @@ Imports System.Text.RegularExpressions +Imports DD_Clipboard_Watcher Public Class ClassProfileFilter Private _ProfileTable As DataTable @@ -35,6 +36,12 @@ Public Class ClassProfileFilter Public WindowRegexMatch As List(Of String) End Class + Public ReadOnly Property Profiles As List(Of ProfileData) + Get + Return _Profiles + End Get + End Property + Public Sub New(ProfileDatatable As DataTable, WindowDatatable As DataTable) _DebugData = New DebugData() _ProfileTable = ProfileDatatable @@ -46,8 +53,14 @@ Public Class ClassProfileFilter Return _Profiles End Function - Public Function FilterProfilesByProcess(CurrentProcessName As String) As ClassProfileFilter - _Profiles = _Profiles. + Friend Function RemoveDuplicateProfiles() As Object + Return _Profiles. + GroupBy(Function(p) p.Guid). + Select(Function(p) p.FirstOrDefault()) + End Function + + Public Function FilterProfilesByProcess(Profiles As IEnumerable(Of ProfileData), CurrentProcessName As String) As IEnumerable(Of ProfileData) + Return Profiles. Where(Function(p) If p.ProcessName.ToLower = CurrentProcessName.ToLower Then 'TODO: Add Debug Data @@ -55,14 +68,11 @@ Public Class ClassProfileFilter Else Return False End If - End Function). - ToList() - - Return Me + End Function) End Function - Public Function FilterProfilesByClipboardRegex(ClipboardContents As String) As ClassProfileFilter - _Profiles = _Profiles. + Public Function FilterProfilesByClipboardRegex(Profiles As IEnumerable(Of ProfileData), ClipboardContents As String) As IEnumerable(Of ProfileData) + Return Profiles. Where(Function(p) Try Dim oRegex As New Regex(p.Regex) @@ -78,17 +88,14 @@ Public Class ClassProfileFilter Logger.Error(ex) Return False End Try - End Function). - ToList() - - Return Me + End Function) End Function - Public Function FilterWindowsByWindowTitle(WindowTitle As String) As ClassProfileFilter - _Profiles = _Profiles.Select(Function(p) - Dim oWindows As List(Of WindowData) = p.Windows + Public Function FilterWindowsByWindowTitle(Profiles As IEnumerable(Of ProfileData), WindowTitle As String) As IEnumerable(Of ProfileData) + Return _Profiles.Select(Function(p) + Dim oWindows As List(Of WindowData) = p.Windows - p.Windows = oWindows. + p.Windows = oWindows. Where(Function(w) Try If w.Regex = String.Empty Then Return True @@ -110,18 +117,15 @@ Public Class ClassProfileFilter End Function). ToList() - Return p - End Function). - ToList() - - Return Me + Return p + End Function) End Function - Public Function FilterProfilesByWindowRegex(ClipboardContents As String) As ClassProfileFilter - _Profiles = _Profiles.Where(Function(p) - If p.Windows.Count = 0 Then Return True + Public Function FilterProfilesByWindowRegex(Profiles As IEnumerable(Of ProfileData), ClipboardContents As String) As IEnumerable(Of ProfileData) + Return _Profiles.Where(Function(p) + If p.Windows.Count = 0 Then Return True - Return p.Windows. + Return p.Windows. Any(Function(w) Try If w.ClipboardRegex = String.Empty Then Return True @@ -141,10 +145,8 @@ Public Class ClassProfileFilter Return False End Try End Function) - End Function). - ToList() + End Function) - Return Me End Function Private Function TransformProfiles() As List(Of ProfileData) diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index 383c65a..d33107c 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -57,6 +57,7 @@ + @@ -215,7 +216,6 @@ Form - True @@ -236,6 +236,9 @@ True MyDataset.xsd + + MyDataset.xsd + diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index 9daee02..1ec8da8 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -33,8 +33,24 @@ Partial Public Class MyDataset Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable + + Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable + Private tableTBWH_User As TBWH_UserDataTable + Private tableTBWH_GROUP As TBWH_GROUPDataTable + + Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable + + Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation + + Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable + Get + Return Me.tableTBCW_PROF_DATA_SEARCH + End Get + End Property + + _ + Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable + Get + Return Me.tableTBCW_PROF_DOC_SEARCH + End Get + End Property + + _ + Public ReadOnly Property TBCW_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable + Get + Return Me.tableTBCW_GROUP_PROFILE + End Get + End Property + + _ + Public ReadOnly Property VWCW_GROUP_PROFILE() As VWCW_GROUP_PROFILEDataTable + Get + Return Me.tableVWCW_GROUP_PROFILE + End Get + End Property + _ + Public ReadOnly Property TBWH_GROUP() As TBWH_GROUPDataTable + Get + Return Me.tableTBWH_GROUP + End Get + End Property + + _ + Public ReadOnly Property TBWH_PROFILE_TYPE() As TBWH_PROFILE_TYPEDataTable + Get + Return Me.tableTBWH_PROFILE_TYPE + End Get + End Property + _ + Private Function ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_GROUP_PROFILE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_User() As Boolean Return false End Function + _ + Private Function ShouldSerializeTBWH_GROUP() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_PROFILE_TYPE() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -412,9 +614,27 @@ Partial Public Class MyDataset _ Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent) + _ + Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent) + + _ + Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent) + + _ + Public Delegate Sub TBCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent) + + _ + Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent) + _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) + _ + Public Delegate Sub TBWH_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_GROUPRowChangeEvent) + + _ + Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -1820,26 +2040,38 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBWH_UserDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) + Partial Public Class TBCW_PROF_DATA_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) - Private columnSelect As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnUsername As Global.System.Data.DataColumn + Private columnPROFILE_ID As Global.System.Data.DataColumn - Private columnPrename As Global.System.Data.DataColumn + Private columnCONN_ID As Global.System.Data.DataColumn - Private columnSurname As Global.System.Data.DataColumn + Private columnSQL_COMMAND As Global.System.Data.DataColumn - Private columnEmail As Global.System.Data.DataColumn + Private columnTAB_INDEX As Global.System.Data.DataColumn - Private columnID As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBWH_User" + Me.TableName = "TBCW_PROF_DATA_SEARCH" Me.BeginInit Me.InitClass Me.EndInit @@ -1872,49 +2104,97 @@ Partial Public Class MyDataset _ - Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSelect + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnUsername + Return Me.columnPROFILE_ID End Get End Property _ - Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnPrename + Return Me.columnCONN_ID End Get End Property _ - Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSurname + Return Me.columnSQL_COMMAND End Get End Property _ - Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnEmail + Return Me.columnTAB_INDEX End Get End Property _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnID + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND End Get End Property @@ -1929,44 +2209,53 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow Get - Return CType(Me.Rows(index),TBWH_UserRow) + Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) End Get End Property _ - Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ - Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ - Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ - Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ - Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) + Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_UserRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_UserRow - Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow) - Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBWH_UserRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_UserRow) - Return rowTBWH_UserRow + Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow + Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) + Return rowTBCW_PROF_DATA_SEARCHRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable) + Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) cln.InitVars Return cln End Function @@ -1974,65 +2263,100 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_UserDataTable() + Return New TBCW_PROF_DATA_SEARCHDataTable() End Function _ Friend Sub InitVars() - Me.columnSelect = MyBase.Columns("Select") - Me.columnUsername = MyBase.Columns("Username") - Me.columnPrename = MyBase.Columns("Prename") - Me.columnSurname = MyBase.Columns("Surname") - Me.columnEmail = MyBase.Columns("Email") - Me.columnID = MyBase.Columns("ID") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + 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.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") End Sub _ Private Sub InitClass() - Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") - Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") - MyBase.Columns.Add(Me.columnSelect) - Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUsername) - Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPrename) - Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSurname) - Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEmail) - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + 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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + 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.columnPROFILE_ID.AllowDBNull = false + Me.columnCONN_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.DefaultValue = CType(" ",String) + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 End Sub _ - Public Function NewTBWH_UserRow() As TBWH_UserRow - Return CType(Me.NewRow,TBWH_UserRow) + Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_UserRow(builder) + Return New TBCW_PROF_DATA_SEARCHRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_UserRow) + Return GetType(TBCW_PROF_DATA_SEARCHRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub @@ -2040,8 +2364,8 @@ Partial Public Class MyDataset 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.TBWH_UserRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub @@ -2049,8 +2373,8 @@ Partial Public Class MyDataset 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.TBWH_UserRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub @@ -2058,14 +2382,14 @@ Partial Public Class MyDataset 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.TBWH_UserRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) + Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Remove(row) End Sub @@ -2092,7 +2416,7 @@ Partial Public Class MyDataset type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_UserDataTable" + attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2137,865 +2461,4772 @@ Partial Public Class MyDataset End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBCW_PROFILESRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBCW_PROF_DOC_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) - Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DOC_SEARCH" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer) + Return Me.columnGUID End Get - Set - Me(Me.tableTBCW_PROFILES.GUIDColumn) = value - End Set End Property _ - Public Property NAME() As String + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String) + Return Me.columnPROFILE_ID End Get - Set - Me(Me.tableTBCW_PROFILES.NAMEColumn) = value - End Set End Property _ - Public Property COMMENT() As String + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) - End Try + Return Me.columnCONN_ID End Get - Set - Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value - End Set End Property _ - Public Property WD_SEARCH() As String + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn),String) + Return Me.columnSQL_COMMAND End Get - Set - Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn) = value - End Set End Property _ - Public Property REGEX_EXPRESSION() As String + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String) + Return Me.columnTAB_INDEX End Get - Set - Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + Return Me.columnACTIVE End Get - Set - Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) - End Try + Return Me.columnTAB_TITLE End Get - Set - Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) - End Try + Return Me.columnADDED_WHO End Get - Set - Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) - End Try + Return Me.columnADDED_WHEN End Get - Set - Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value - End Set End Property _ - Public Property ACTIVE() As Boolean + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) + Return Me.columnCHANGED_WHO End Get - Set - Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value - End Set End Property _ - Public Property PROFILE_TYPE() As Short + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) + Return Me.columnCHANGED_WHEN End Get - Set - Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value - End Set End Property _ - Public Property SQL_COUNT_DOCS() As String + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBCW_PROFILES.SQL_COUNT_DOCSColumn),String) + Return Me.columnCOUNT_COMMAND End Get - Set - Me(Me.tableTBCW_PROFILES.SQL_COUNT_DOCSColumn) = value - End Set End Property _ - Public Property SQL_COUNT_DATA() As String + 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 CType(Me(Me.tableTBCW_PROFILES.SQL_COUNT_DATAColumn),String) + Return Me.Rows.Count End Get - Set - Me(Me.tableTBCW_PROFILES.SQL_COUNT_DATAColumn) = value - End Set End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) - End Function + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow + Get + Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) + End Get + End Property + + _ + Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Add(row) End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) + Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow + Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) + Return rowTBCW_PROF_DOC_SEARCHRow End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) + End Function _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) + cln.InitVars + Return cln End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DOC_SEARCHDataTable() + End Function _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) - End Function + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + 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.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + End Sub _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_USER_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + 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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + 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.columnPROFILE_ID.AllowDBNull = false + Me.columnCONN_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + End Sub _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_USER_PROFILE = CType(Me.Table,TBCW_USER_PROFILEDataTable) - End Sub + Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + End Function _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBCW_USER_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_USER_PROFILE.GUIDColumn) = value - End Set - End Property + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DOC_SEARCHRow(builder) + End Function _ - Public Property PROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn) = value - End Set - End Property + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DOC_SEARCHRow) + End Function _ - Public Property USER_ID() As Integer - Get - Return CType(Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn),Integer) - End Get - Set - Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn) = value - End Set - End Property + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn) = value - End Set - End Property + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = value - End Set - End Property + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + 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 MyDataset = New MyDataset() + 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 = "TBCW_PROF_DOC_SEARCHDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class VWUSER_PROFILERow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBCW_GROUP_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_GROUP_PROFILERow) - Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBCW_GROUP_PROFILE" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn),Integer) + Return Me.columnGUID End Get - Set - Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value - End Set End Property _ - Public Property PROFILE_ID() As Integer + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn),Integer) + Return Me.columnPROFILE_ID End Get - Set - Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value - End Set End Property _ - Public Property USERNAME() As String + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn),String) + Return Me.columnGROUP_ID End Get - Set - Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value - End Set End Property _ - Public Property NAME() As String + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e) - End Try + Return Me.columnADDED_WHO End Get - Set - Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value - End Set End Property _ - Public Property PRENAME() As String + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e) - End Try + Return Me.columnADDED_WHEN End Get - Set - Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value - End Set End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) - End Function - - _ - Public Sub SetPRENAMENull() - Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBCW_PROFILE_PROCESSRow - Inherits Global.System.Data.DataRow - - Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable) - End Sub - - _ - Public Property GUID() As Integer + 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 CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer) + Return Me.Rows.Count End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value - End Set End Property _ - Public Property PROFILE_ID() As Integer + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_GROUP_PROFILERow Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer) + Return CType(Me.Rows(index),TBCW_GROUP_PROFILERow) End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value - End Set End Property - _ - Public Property PROC_NAME() As String - Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String) - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value - End Set - End Property + _ + Public Event TBCW_GROUP_PROFILERowChanging As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event TBCW_GROUP_PROFILERowChanged As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event TBCW_GROUP_PROFILERowDeleting As TBCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event TBCW_GROUP_PROFILERowDeleted As TBCW_GROUP_PROFILERowChangeEventHandler _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value - End Set - End Property + Public Overloads Sub AddTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow) + Me.Rows.Add(row) + End Sub _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILE_PROCESS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value - End Set - End Property + Public Overloads Function AddTBCW_GROUP_PROFILERow(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_GROUP_PROFILERow + Dim rowTBCW_GROUP_PROFILERow As TBCW_GROUP_PROFILERow = CType(Me.NewRow,TBCW_GROUP_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN} + rowTBCW_GROUP_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_GROUP_PROFILERow) + Return rowTBCW_GROUP_PROFILERow + End Function _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_GROUP_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_GROUP_PROFILERow) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_UserRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_User As TBWH_UserDataTable + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,TBCW_GROUP_PROFILEDataTable) + cln.InitVars + Return cln + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable) - End Sub + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_GROUP_PROFILEDataTable() + End Function _ - Public Property _Select() As Boolean - Get - Try - Return CType(Me(Me.tableTBWH_User.SelectColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.SelectColumn) = value - End Set - End Property + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + End Sub _ - Public Property Username() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.UsernameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.UsernameColumn) = value - End Set - 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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.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.columnPROFILE_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + End Sub _ - Public Property Prename() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.PrenameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.PrenameColumn) = value - End Set - End Property + Public Function NewTBCW_GROUP_PROFILERow() As TBCW_GROUP_PROFILERow + Return CType(Me.NewRow,TBCW_GROUP_PROFILERow) + End Function _ - Public Property Surname() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.SurnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.SurnameColumn) = value - End Set - End Property + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_GROUP_PROFILERow(builder) + End Function _ - Public Property Email() As String - Get - Try - Return CType(Me(Me.tableTBWH_User.EmailColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.EmailColumn) = value - End Set - End Property + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_GROUP_PROFILERow) + End Function _ - Public Property ID() As Short - Get - Try - Return CType(Me(Me.tableTBWH_User.IDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBWH_User.IDColumn) = value - End Set - End Property + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowChanged(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub _ - Public Function Is_SelectNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.SelectColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowChanging(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub _ - Public Sub Set_SelectNull() - Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowDeleted(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If End Sub _ - Public Function IsUsernameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_GROUP_PROFILERowDeleting(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) + End If + End Sub _ - Public Sub SetUsernameNull() - Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull + Public Sub RemoveTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow) + Me.Rows.Remove(row) End Sub _ - Public Function IsPrenameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) + 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 MyDataset = New MyDataset() + 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 = "TBCW_GROUP_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWCW_GROUP_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWCW_GROUP_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn _ - Public Sub SetPrenameNull() - Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull + Public Sub New() + MyBase.New + Me.TableName = "VWCW_GROUP_PROFILE" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Function IsSurnameNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) - End Function + 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 _ - Public Sub SetSurnameNull() - Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull + 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 Function IsEmailNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.EmailColumn) + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_GROUP_PROFILERow + Get + Return CType(Me.Rows(index),VWCW_GROUP_PROFILERow) + End Get + End Property + + _ + Public Event VWCW_GROUP_PROFILERowChanging As VWCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event VWCW_GROUP_PROFILERowChanged As VWCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event VWCW_GROUP_PROFILERowDeleting As VWCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Event VWCW_GROUP_PROFILERowDeleted As VWCW_GROUP_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWCW_GROUP_PROFILERow(ByVal GUID As Integer, ByVal NAME As String) As VWCW_GROUP_PROFILERow + Dim rowVWCW_GROUP_PROFILERow As VWCW_GROUP_PROFILERow = CType(Me.NewRow,VWCW_GROUP_PROFILERow) + Dim columnValuesArray() As Object = New Object() {GUID, NAME} + rowVWCW_GROUP_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWCW_GROUP_PROFILERow) + Return rowVWCW_GROUP_PROFILERow End Function _ - Public Sub SetEmailNull() - Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull + Public Function FindByGUID(ByVal GUID As Integer) As VWCW_GROUP_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),VWCW_GROUP_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,VWCW_GROUP_PROFILEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWCW_GROUP_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") End Sub _ - Public Function IsIDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_User.IDColumn) + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.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.columnNAME.MaxLength = 100 + End Sub + + _ + Public Function NewVWCW_GROUP_PROFILERow() As VWCW_GROUP_PROFILERow + Return CType(Me.NewRow,VWCW_GROUP_PROFILERow) End Function _ - Public Sub SetIDNull() - Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWCW_GROUP_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWCW_GROUP_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowChanged(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) + End If End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBCW_PROFILESRowChangeEvent - Inherits Global.System.EventArgs - Private eventRow As TBCW_PROFILESRow + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowChanging(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) + End If + End Sub - Private eventAction As Global.System.Data.DataRowAction + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowDeleted(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) + End If + End Sub _ - Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent VWCW_GROUP_PROFILERowDeleting(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action)) + End If End Sub _ - Public ReadOnly Property Row() As TBCW_PROFILESRow - Get - Return Me.eventRow - End Get - End Property + Public Sub RemoveVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) + Me.Rows.Remove(row) + End Sub _ - 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 TBCW_USER_PROFILERowChangeEvent - Inherits Global.System.EventArgs + 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 MyDataset = New MyDataset() + 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 = "VWCW_GROUP_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_UserDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) + + Private columnSelect As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnSurname As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + Private columnID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_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 SelectColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSelect + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow + Get + Return CType(Me.Rows(index),TBWH_UserRow) + End Get + End Property + + _ + Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler + + _ + Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler + + _ + Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler + + _ + Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_UserRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_UserRow + Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow) + Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} + rowTBWH_UserRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_UserRow) + Return rowTBWH_UserRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_UserDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + Me.columnID = MyBase.Columns("ID") + End Sub + + _ + Private Sub InitClass() + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSelect.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBWH_UserRow() As TBWH_UserRow + Return CType(Me.NewRow,TBWH_UserRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_UserRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_UserRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_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 MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_UserDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_GROUPRow) + + Private columnID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_GROUP" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_GROUPRow + Get + Return CType(Me.Rows(index),TBWH_GROUPRow) + End Get + End Property + + _ + Public Event TBWH_GROUPRowChanging As TBWH_GROUPRowChangeEventHandler + + _ + Public Event TBWH_GROUPRowChanged As TBWH_GROUPRowChangeEventHandler + + _ + Public Event TBWH_GROUPRowDeleting As TBWH_GROUPRowChangeEventHandler + + _ + Public Event TBWH_GROUPRowDeleted As TBWH_GROUPRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_GROUPRow(ByVal ID As String, ByVal NAME As String) As TBWH_GROUPRow + Dim rowTBWH_GROUPRow As TBWH_GROUPRow = CType(Me.NewRow,TBWH_GROUPRow) + Dim columnValuesArray() As Object = New Object() {ID, NAME} + rowTBWH_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_GROUPRow) + Return rowTBWH_GROUPRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_GROUPDataTable = CType(MyBase.Clone,TBWH_GROUPDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_GROUPDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + End Sub + + _ + Public Function NewTBWH_GROUPRow() As TBWH_GROUPRow + Return CType(Me.NewRow,TBWH_GROUPRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_GROUPRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_GROUPRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowChanged(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowChanging(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowDeleted(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_GROUPRowDeleting(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_GROUPDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_PROFILE_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_PROFILE_TYPERow) + + Private columnTYPE_ID As Global.System.Data.DataColumn + + Private columnTYPE_NAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_PROFILE_TYPE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property TYPE_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE_NAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_PROFILE_TYPERow + Get + Return CType(Me.Rows(index),TBWH_PROFILE_TYPERow) + End Get + End Property + + _ + Public Event TBWH_PROFILE_TYPERowChanging As TBWH_PROFILE_TYPERowChangeEventHandler + + _ + Public Event TBWH_PROFILE_TYPERowChanged As TBWH_PROFILE_TYPERowChangeEventHandler + + _ + Public Event TBWH_PROFILE_TYPERowDeleting As TBWH_PROFILE_TYPERowChangeEventHandler + + _ + Public Event TBWH_PROFILE_TYPERowDeleted As TBWH_PROFILE_TYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_PROFILE_TYPERow(ByVal row As TBWH_PROFILE_TYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_PROFILE_TYPERow(ByVal TYPE_ID As Short, ByVal TYPE_NAME As String) As TBWH_PROFILE_TYPERow + Dim rowTBWH_PROFILE_TYPERow As TBWH_PROFILE_TYPERow = CType(Me.NewRow,TBWH_PROFILE_TYPERow) + Dim columnValuesArray() As Object = New Object() {TYPE_ID, TYPE_NAME} + rowTBWH_PROFILE_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_PROFILE_TYPERow) + Return rowTBWH_PROFILE_TYPERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_PROFILE_TYPEDataTable = CType(MyBase.Clone,TBWH_PROFILE_TYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_PROFILE_TYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") + Me.columnTYPE_NAME = MyBase.Columns("TYPE_NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE_ID) + Me.columnTYPE_NAME = New Global.System.Data.DataColumn("TYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE_NAME) + Me.columnTYPE_ID.AllowDBNull = false + Me.columnTYPE_ID.DefaultValue = CType(0,Short) + End Sub + + _ + Public Function NewTBWH_PROFILE_TYPERow() As TBWH_PROFILE_TYPERow + Return CType(Me.NewRow,TBWH_PROFILE_TYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_PROFILE_TYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_PROFILE_TYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_PROFILE_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_PROFILE_TYPERowChanged(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_PROFILE_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_PROFILE_TYPERowChanging(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_PROFILE_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_PROFILE_TYPERowDeleted(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_PROFILE_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_PROFILE_TYPERowDeleting(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_PROFILE_TYPERow(ByVal row As TBWH_PROFILE_TYPERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_PROFILE_TYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROFILESRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROFILES.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.NAMEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value + End Set + End Property + + _ + Public Property WD_SEARCH() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn) = value + End Set + End Property + + _ + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property PROFILE_TYPE() As Short + Get + Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) + End Get + Set + Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value + End Set + End Property + + _ + Public Property SQL_COUNT_DOCS() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.SQL_COUNT_DOCSColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.SQL_COUNT_DOCSColumn) = value + End Set + End Property + + _ + Public Property SQL_COUNT_DATA() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.SQL_COUNT_DATAColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.SQL_COUNT_DATAColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBCW_PROF_DATA_SEARCHRows() As TBCW_PROF_DATA_SEARCHRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Is Nothing) Then + Return New TBCW_PROF_DATA_SEARCHRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROF_DATA_SEARCHRow()) + End If + End Function + + _ + Public Function GetTBCW_PROF_DOC_SEARCHRows() As TBCW_PROF_DOC_SEARCHRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Is Nothing) Then + Return New TBCW_PROF_DOC_SEARCHRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROF_DOC_SEARCHRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_USER_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_USER_PROFILE = CType(Me.Table,TBCW_USER_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_USER_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_USER_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWUSER_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn),String) + End Get + Set + Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROFILE_PROCESSRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property PROC_NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILE_PROCESS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DATA_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DOC_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COUNT_COMMAND() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COUNT_COMMAND in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOUNT_COMMANDNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) + End Function + + _ + Public Sub SetCOUNT_COMMANDNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_GROUP_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_GROUP_PROFILE = CType(Me.Table,TBCW_GROUP_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_GROUP_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWCW_GROUP_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWCW_GROUP_PROFILE = CType(Me.Table,VWCW_GROUP_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWCW_GROUP_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_UserRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_User As TBWH_UserDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable) + End Sub + + _ + Public Property _Select() As Boolean + Get + Try + Return CType(Me(Me.tableTBWH_User.SelectColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.SelectColumn) = value + End Set + End Property + + _ + Public Property Username() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.UsernameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.UsernameColumn) = value + End Set + End Property + + _ + Public Property Prename() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.PrenameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.PrenameColumn) = value + End Set + End Property + + _ + Public Property Surname() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.SurnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.SurnameColumn) = value + End Set + End Property + + _ + Public Property Email() As String + Get + Try + Return CType(Me(Me.tableTBWH_User.EmailColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.EmailColumn) = value + End Set + End Property + + _ + Public Property ID() As Short + Get + Try + Return CType(Me(Me.tableTBWH_User.IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_User.IDColumn) = value + End Set + End Property + + _ + Public Function Is_SelectNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.SelectColumn) + End Function + + _ + Public Sub Set_SelectNull() + Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) + End Function + + _ + Public Sub SetUsernameNull() + Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrenameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) + End Function + + _ + Public Sub SetPrenameNull() + Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSurnameNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) + End Function + + _ + Public Sub SetSurnameNull() + Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEmailNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.EmailColumn) + End Function + + _ + Public Sub SetEmailNull() + Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_User.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_GROUPRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_GROUP As TBWH_GROUPDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_GROUP = CType(Me.Table,TBWH_GROUPDataTable) + End Sub + + _ + Public Property ID() As String + Get + Try + Return CType(Me(Me.tableTBWH_GROUP.IDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_GROUP.IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_GROUP.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_GROUP.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_GROUP.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBWH_GROUP.IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_GROUP.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBWH_GROUP.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_PROFILE_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_PROFILE_TYPE = CType(Me.Table,TBWH_PROFILE_TYPEDataTable) + End Sub + + _ + Public Property TYPE_ID() As Short + Get + Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn),Short) + End Get + Set + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property TYPE_NAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle TBWH_PROFILE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = value + End Set + End Property + + _ + Public Function IsTYPE_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) + End Function + + _ + Public Sub SetTYPE_NAMENull() + Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCW_PROFILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROFILESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROFILESRow + 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 TBCW_USER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_USER_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_USER_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWUSER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWUSER_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWUSER_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCW_PROFILE_PROCESSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROFILE_PROCESSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROFILE_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow + 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 TBCW_PROF_DATA_SEARCHRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROF_DATA_SEARCHRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROF_DATA_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROF_DATA_SEARCHRow + 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 TBCW_PROF_DOC_SEARCHRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROF_DOC_SEARCHRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROF_DOC_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROF_DOC_SEARCHRow + 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 TBCW_GROUP_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_GROUP_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_GROUP_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWCW_GROUP_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWCW_GROUP_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWCW_GROUP_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_UserRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_UserRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_UserRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_UserRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_GROUPRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_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_PROFILE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_PROFILE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_PROFILE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_PROFILE_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace MyDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROFILESTableAdapter + 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 = "TBCW_PROFILES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + 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("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") + tableMapping.ColumnMappings.Add("SQL_COUNT_DOCS", "SQL_COUNT_DOCS") + tableMapping.ColumnMappings.Add("SQL_COUNT_DATA", "SQL_COUNT_DATA") + 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 TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, WD_SEARCH, RE"& _ + "GEX_EXPRESSION, ADDED_WHO, ACTIVE, PROFILE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COMMENT,"& _ + "@WD_SEARCH,@REGEX_EXPRESSION,@ADDED_WHO,@ACTIVE,@PROFILE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ + "D, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _ + "O, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT, "& _ + "WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHA"& _ + "NGED_WHO, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROFILE_TYPE = @PROFILE_T"& _ + "YPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, WD"& _ + "_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _ + " TBCW_PROFILES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_"& _ + "WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, SQL_COUNT_DOCS, SQL_COUNT_DATA, PROFILE"& _ + "_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROFILES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBCW_PROFILESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBCW_PROFILESDataTable = New MyDataset.TBCW_PROFILESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(REGEX_EXPRESSION,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(PROFILE_TYPE,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal CHANGED_WHO As String, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(REGEX_EXPRESSION,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PROFILE_TYPE,Short) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_USER_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_USER_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, USER_ID, ADD"& _ + "ED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE"& _ + "_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_I"& _ + "DENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, USER"& _ + "_ID = @USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID,"& _ + " USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBCW_USER_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_USER_PROFILE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBCW_USER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBCW_USER_PROFILEDataTable = New MyDataset.TBCW_USER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_USER_PROFILE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWUSER_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWUSER_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_USER_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T1"& _ + " ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1."& _ + "USERNAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBCW_USER_PROFILE"&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, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + 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 + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROFILE_PROCESSTableAdapter + Inherits Global.System.ComponentModel.Component - Private eventRow As TBCW_USER_PROFILERow + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - Private eventAction As Global.System.Data.DataRowAction + 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(ByVal row As TBCW_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New() MyBase.New - Me.eventRow = row - Me.eventAction = action + Me.ClearBeforeFill = true End Sub _ - Public ReadOnly Property Row() As TBCW_USER_PROFILERow + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get - Return Me.eventRow + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter End Get End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get - Return Me.eventAction + 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 - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWUSER_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWUSER_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWUSER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + 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 _ - Public ReadOnly Property Row() As VWUSER_PROFILERow + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get - Return Me.eventRow + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection End Get End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property ClearBeforeFill() As Boolean Get - Return Me.eventAction + Return Me._clearBeforeFill End Get + Set + Me._clearBeforeFill = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBCW_PROFILE_PROCESSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBCW_PROFILE_PROCESSRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBCW_PROFILE_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + 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 = "TBCW_PROFILE_PROCESS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROFILE_PROCESS"&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 TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, PROC_NAME"& _ + ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow - Get - Return Me.eventRow - End Get - End Property + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString + End Sub _ - 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_UserRowChangeEvent - Inherits Global.System.EventArgs + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub - Private eventRow As TBWH_UserRow + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Overloads Overridable Function GetData(ByVal PID As Integer) As MyDataset.TBCW_PROFILE_PROCESSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,Integer) + Dim dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable = New MyDataset.TBCW_PROFILE_PROCESSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function _ - Public Sub New(ByVal row As TBWH_UserRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function _ - Public ReadOnly Property Row() As TBWH_UserRow - Get - Return Me.eventRow - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROFILE_PROCESS") + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function End Class -End Class - -Namespace MyDatasetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -3006,7 +7237,7 @@ Namespace MyDatasetTableAdapters 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 TBCW_PROFILESTableAdapter + Partial Public Class TBCW_PROF_DATA_SEARCHTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3123,56 +7354,107 @@ Namespace MyDatasetTableAdapters 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 = "TBCW_PROFILES" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.DataSetTable = "TBCW_PROF_DATA_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") 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("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") - tableMapping.ColumnMappings.Add("SQL_COUNT_DOCS", "SQL_COUNT_DOCS") - tableMapping.ColumnMappings.Add("SQL_COUNT_DATA", "SQL_COUNT_DATA") + tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_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 TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFIL"& _ + "E_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDE"& _ + "X] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @"& _ + "Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_"& _ + "WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND"& _ + " ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origi"& _ + "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ + "([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, WD_SEARCH, RE"& _ - "GEX_EXPRESSION, ADDED_WHO, ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COMMENT,@WD_SEARCH,@RE"& _ - "GEX_EXPRESSION,@ADDED_WHO,@ACTIVE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, WD_SEARCH, R"& _ - "EGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF"& _ - "ILES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB"& _ + "_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANG"& _ + "ED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_IND"& _ + "EX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @"& _ + "COUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIV"& _ + "E, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FR"& _ + "OM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT, "& _ - "WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHA"& _ - "NGED_WHO, ACTIVE = @ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_"& _ + "ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, "& _ + "[TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, "& _ + "[CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = "& _ + "@COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PR"& _ + "OFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_I"& _ + "NDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) "& _ + "AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_"& _ + "WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_W"& _ + "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ + "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ + "riginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_IND"& _ + "EX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_C"& _ + "OMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -3211,9 +7495,10 @@ Namespace MyDatasetTableAdapters 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() As MyDataset.TBCW_PROFILESDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DATA_SEARCHDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCW_PROFILESDataTable = New MyDataset.TBCW_PROFILESDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable = New MyDataset.TBCW_PROF_DATA_SEARCHDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -3221,7 +7506,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -3229,7 +7514,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ACTIVE As Boolean) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (REGEX_EXPRESSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(REGEX_EXPRESSION,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal CHANGED_WHO As String, ByVal ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (REGEX_EXPRESSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(REGEX_EXPRESSION,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function End Class ''' @@ -3371,7 +7541,7 @@ Namespace MyDatasetTableAdapters 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 TBCW_USER_PROFILETableAdapter + Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3488,38 +7658,107 @@ Namespace MyDatasetTableAdapters 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 = "TBCW_USER_PROFILE" + tableMapping.DataSetTable = "TBCW_PROF_DOC_SEARCH" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") 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("COUNT_COMMAND", "COUNT_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 TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _ + "_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX"& _ + "] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @O"& _ + "riginal_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_W"& _ + "HEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND "& _ + "((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origin"& _ + "al_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ("& _ + "[CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, USER_ID, ADD"& _ - "ED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE"& _ - "_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_I"& _ - "DENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_"& _ + "INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGE"& _ + "D_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDE"& _ + "X, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @C"& _ + "OUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE"& _ + ", TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FRO"& _ + "M TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, USER"& _ - "_ID = @USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID,"& _ - " USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_I"& _ + "D, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, ["& _ + "TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ + "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @"& _ + "COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PRO"& _ + "FILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_IN"& _ + "DEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) A"& _ + "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _ + "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND"& _ + " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or"& _ + "iginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDE"& _ + "X, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_CO"& _ + "MMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -3556,9 +7798,10 @@ Namespace MyDatasetTableAdapters 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() As MyDataset.TBCW_USER_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DOC_SEARCHDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCW_USER_PROFILEDataTable = New MyDataset.TBCW_USER_PROFILEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable = New MyDataset.TBCW_PROF_DOC_SEARCHDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -3566,7 +7809,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -3574,7 +7817,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_USER_PROFILE") + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function End Class ''' @@ -3673,7 +7844,7 @@ Namespace MyDatasetTableAdapters 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 VWUSER_PROFILETableAdapter + Partial Public Class TBCW_GROUP_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3790,13 +7961,58 @@ Namespace MyDatasetTableAdapters 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 = "VWUSER_PROFILE" + tableMapping.DataSetTable = "TBCW_GROUP_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_GROUP_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_I"& _ + "D] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO"& _ + "] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) "& _ + "OR ([ADDED_WHEN] = @Original_ADDED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_GROUP_PROFILE] ([PROFILE_ID], [GROUP_ID], [ADDED_WHO], [ADDED_W"& _ + "HEN]) VALUES (@PROFILE_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PR"& _ + "OFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = "& _ + "SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_GROUP_PROFILE] SET [PROFILE_ID] = @PROFILE_ID, [GROUP_ID] = @GROUP_I"& _ + "D, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Origin"& _ + "al_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_G"& _ + "ROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ + "D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUI"& _ + "D = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBCW_USER_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T1"& _ - " ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1."& _ - "USERNAME" + Me._commandCollection(0).CommandText = "SELECT TBCW_GROUP_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBCW_USER_PROFILE"&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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -3843,10 +8049,9 @@ Namespace MyDatasetTableAdapters 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 PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable + Public Overloads Overridable Function GetData() As MyDataset.TBCW_GROUP_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable() + Dim dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable = New MyDataset.TBCW_GROUP_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -3854,23 +8059,29 @@ Namespace MyDatasetTableAdapters _ - 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 + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_GROUP_PROFILE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) End Function End Class @@ -3883,7 +8094,7 @@ Namespace MyDatasetTableAdapters 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 TBCW_PROFILE_PROCESSTableAdapter + Partial Public Class VWCW_GROUP_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -4000,26 +8211,10 @@ Namespace MyDatasetTableAdapters 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 = "TBCW_PROFILE_PROCESS" + tableMapping.DataSetTable = "VWCW_GROUP_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROFILE_PROCESS"&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 TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, PROC_NAME"& _ - ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PID)" + Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE AS T INNER JOIN"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1.NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBCW_GROUP_PROFILE"&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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -4059,40 +8260,35 @@ Namespace MyDatasetTableAdapters 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 PID As Integer) As MyDataset.TBCW_PROFILE_PROCESSDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWCW_GROUP_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,Integer) - Dim dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable = New MyDataset.TBCW_PROFILE_PROCESSDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable = New MyDataset.VWCW_GROUP_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBCW_PROFILE_PROCESS") - 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) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + 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 + 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 @@ -4115,6 +8311,12 @@ Namespace MyDatasetTableAdapters Private _tBCW_PROFILE_PROCESSTableAdapter As TBCW_PROFILE_PROCESSTableAdapter + Private _tBCW_PROF_DATA_SEARCHTableAdapter As TBCW_PROF_DATA_SEARCHTableAdapter + + Private _tBCW_PROF_DOC_SEARCHTableAdapter As TBCW_PROF_DOC_SEARCHTableAdapter + + Private _tBCW_GROUP_PROFILETableAdapter As TBCW_GROUP_PROFILETableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -4172,6 +8374,48 @@ Namespace MyDatasetTableAdapters End Set End Property + _ + Public Property TBCW_PROF_DATA_SEARCHTableAdapter() As TBCW_PROF_DATA_SEARCHTableAdapter + Get + Return Me._tBCW_PROF_DATA_SEARCHTableAdapter + End Get + Set + Me._tBCW_PROF_DATA_SEARCHTableAdapter = value + End Set + End Property + + _ + Public Property TBCW_PROF_DOC_SEARCHTableAdapter() As TBCW_PROF_DOC_SEARCHTableAdapter + Get + Return Me._tBCW_PROF_DOC_SEARCHTableAdapter + End Get + Set + Me._tBCW_PROF_DOC_SEARCHTableAdapter = value + End Set + End Property + + _ + Public Property TBCW_GROUP_PROFILETableAdapter() As TBCW_GROUP_PROFILETableAdapter + Get + Return Me._tBCW_GROUP_PROFILETableAdapter + End Get + Set + Me._tBCW_GROUP_PROFILETableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -4203,6 +8447,18 @@ Namespace MyDatasetTableAdapters AndAlso (Not (Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_PROFILE_PROCESSTableAdapter.Connection End If + If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection + End If + If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection + End If + If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_GROUP_PROFILETableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_GROUP_PROFILETableAdapter.Connection + End If Return Nothing End Get Set @@ -4225,6 +8481,15 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -4263,6 +8528,33 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -4297,6 +8589,30 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -4307,6 +8623,30 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -4387,6 +8727,21 @@ Namespace MyDatasetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_GROUP_PROFILETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -4448,6 +8803,33 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter) End If End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter, Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter, Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_GROUP_PROFILETableAdapter, Me._tBCW_GROUP_PROFILETableAdapter.Connection) + Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_GROUP_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_GROUP_PROFILETableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -4520,6 +8902,18 @@ Namespace MyDatasetTableAdapters Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILE_PROCESSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = Nothing End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DATA_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DOC_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then + Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_GROUP_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_GROUP_PROFILETableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD_Clipboard_Searcher/MyDataset.vb b/app/DD_Clipboard_Searcher/MyDataset.vb new file mode 100644 index 0000000..c478753 --- /dev/null +++ b/app/DD_Clipboard_Searcher/MyDataset.vb @@ -0,0 +1,4 @@ + + +Partial Public Class MyDataset +End Class diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsc b/app/DD_Clipboard_Searcher/MyDataset.xsc index 7c5fb4b..92f53a1 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsc +++ b/app/DD_Clipboard_Searcher/MyDataset.xsc @@ -9,25 +9,19 @@ - - + - - + - - + - - + - - + - - + diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index 44ecb60..03f6b5e 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -22,8 +22,8 @@ WHERE (GUID = @Original_GUID) INSERT INTO TBCW_PROFILES - (NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ACTIVE) -VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXPRESSION,@ADDED_WHO,@ACTIVE); + (NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ACTIVE, PROFILE_TYPE) +VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXPRESSION,@ADDED_WHO,@ACTIVE,@PROFILE_TYPE); SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) @@ -32,6 +32,7 @@ SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, + @@ -43,20 +44,22 @@ FROM TBCW_PROFILES - + UPDATE TBCW_PROFILES -SET NAME = @NAME, COMMENT = @COMMENT, WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTIVE -WHERE (GUID = @Original_GUID); +SET NAME = @NAME, COMMENT = @COMMENT, WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTIVE, + PROFILE_TYPE = @PROFILE_TYPE +WHERE (GUID = @Original_GUID); SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID) - - - - - - - - + + + + + + + + + @@ -227,6 +230,312 @@ WHERE (PROFILE_ID = @PID) + + + + + + DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND +FROM TBCW_PROF_DATA_SEARCH +WHERE (PROFILE_ID = @PROFILE_ID) + + + + + + + + UPDATE [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT * +FROM TBCW_PROF_DOC_SEARCH +WHERE (PROFILE_ID = @PROFILE_ID) + + + + + + + + UPDATE [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBCW_GROUP_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN))) + + + + + + + + + + + + + INSERT INTO [TBCW_GROUP_PROFILE] ([PROFILE_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN]) VALUES (@PROFILE_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN); +SELECT GUID, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT TBCW_GROUP_PROFILE.* +FROM TBCW_GROUP_PROFILE + + + + + + UPDATE [TBCW_GROUP_PROFILE] SET [PROFILE_ID] = @PROFILE_ID, [GROUP_ID] = @GROUP_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN))); +SELECT GUID, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT T.GUID, T1.NAME +FROM TBCW_GROUP_PROFILE AS T INNER JOIN + TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID +WHERE (T.PROFILE_ID = @PROFILE_ID) +ORDER BY T1.NAME + + + + + + + + + + + + + + + + DELETE FROM TBCW_GROUP_PROFILE +WHERE (GUID = @GUID) + + + + + + + + @@ -383,6 +692,149 @@ WHERE (PROFILE_ID = @PID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -401,5 +853,27 @@ WHERE (PROFILE_ID = @PID) + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index 8914d6b..a2e7e8f 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -4,13 +4,44 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - + + + + + + + + + + + - + + + + + 250 + 52 + + + 729 + 52 + + + + + + + 250 + 181 + + + 377 + 181 + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/clsHotkey.vb b/app/DD_Clipboard_Searcher/clsHotkey.vb index fbd9047..51fdb48 100644 --- a/app/DD_Clipboard_Searcher/clsHotkey.vb +++ b/app/DD_Clipboard_Searcher/clsHotkey.vb @@ -74,7 +74,7 @@ Public Class clsHotkey End Class Public Shared Sub Refresh_Profile_Links() Try - Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0}", USER_ID) + Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID) DT_USER_PROFILES = clsDatabase.Return_Datatable(oSql) If DT_USER_PROFILES.Rows.Count = 0 Then MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation) diff --git a/app/DD_Clipboard_Searcher/clsWINDOWSApi.vb b/app/DD_Clipboard_Searcher/clsWINDOWSApi.vb index a4b1347..d13c961 100644 --- a/app/DD_Clipboard_Searcher/clsWINDOWSApi.vb +++ b/app/DD_Clipboard_Searcher/clsWINDOWSApi.vb @@ -1,4 +1,5 @@ Imports DD_LIB_Standards +Imports System.Text Public Class clsWINDOWSApi Private Declare Function GetForegroundWindow Lib "user32.dll" Alias "GetForegroundWindow" () As IntPtr @@ -8,36 +9,43 @@ Public Class clsWINDOWSApi Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Int32) As Integer Private Shared Function GetClassName(ByVal hWnd As IntPtr, - ByVal lpClassName As System.Text.StringBuilder, - ByVal nMaxCount As Integer) As Integer + ByVal lpClassName As System.Text.StringBuilder, + ByVal nMaxCount As Integer) As Integer ' Leave function empty End Function + + Private Shared m_LastHwnd As Long + Public Shared Function GetCaption() As String - Dim Caption As New System.Text.StringBuilder(256) + Dim oCaption As New StringBuilder(256) Dim hWnd As IntPtr = GetForegroundWindow() - Dim pid As Integer = 0 - GetWindowThreadProcessId(hWnd, pid) - If pid = 0 Then Exit Function - Return Caption.ToString() + Dim oPid As Integer = 0 + GetWindowThreadProcessId(hWnd, oPid) + + If oPid = 0 Then + Return String.Empty + Else + Return oCaption.ToString() + End If End Function Public Shared Function IsRelevantWindow(windowname As String) Try - Dim enumerator1 As New clsWindowApi + Dim oEnumerator As New clsWindowApi 'Jedes Formularwindow durchlaufen - For Each top As clsWindowApi.ApiWindow In enumerator1.GetTopLevelWindows() - Logger.Debug(" ... top-window Name: " & top.MainWindowTitle, False) - If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then - Console.WriteLine(top.MainWindowTitle) + For Each oWindow As clsWindowApi.ApiWindow In oEnumerator.GetTopLevelWindows() + Logger.Debug(" ... top-window Name: " & oWindow.MainWindowTitle, False) + If oWindow.MainWindowTitle.Contains(windowname) Or oWindow.MainWindowTitle.ToLower = windowname.ToLower Then + Console.WriteLine(oWindow.MainWindowTitle) Return False End If - Next top + Next oWindow Catch ex As Exception MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Logger.Info(">> Error in IsRelevantWindow:" & ex.Message, False) Return False End Try End Function - Private Shared m_LastHwnd As Long + Public Shared Sub Get_ForegroundWindow_Info() '—– Get the Handle to the Current Forground Window —– Dim hWnd As IntPtr = GetForegroundWindow() diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 17644c5..4eedd6c 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmAdministration Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmAdministration 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim GUIDLabel As System.Windows.Forms.Label @@ -32,8 +32,30 @@ Partial Class frmAdministration Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Dim PROFILE_TYPELabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim PROFILE_IDLabel As System.Windows.Forms.Label + Dim CONN_IDLabel As System.Windows.Forms.Label + Dim SQL_COMMANDLabel As System.Windows.Forms.Label + Dim TAB_INDEXLabel As System.Windows.Forms.Label + Dim TAB_TITLELabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim GUIDLabel2 As System.Windows.Forms.Label + Dim PROFILE_IDLabel1 As System.Windows.Forms.Label + Dim CONN_IDLabel1 As System.Windows.Forms.Label + Dim SQL_COMMANDLabel1 As System.Windows.Forms.Label + Dim TAB_INDEXLabel1 As System.Windows.Forms.Label + Dim TAB_TITLELabel1 As System.Windows.Forms.Label + Dim ADDED_WHOLabel2 As System.Windows.Forms.Label + Dim ADDED_WHENLabel2 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label + Dim Label7 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Me.btnaddSearch = New System.Windows.Forms.Button() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -47,7 +69,7 @@ Partial Class frmAdministration Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.COMMENTTextBox = New System.Windows.Forms.TextBox() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -87,6 +109,8 @@ Partial Class frmAdministration Me.TabPageProfiles = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() Me.TabPageGeneralSettings = New DevExpress.XtraTab.XtraTabPage() + Me.PROFILE_TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.TBWH_PROFILE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TabPageProcessAssignment = New DevExpress.XtraTab.XtraTabPage() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GridControl3 = New DevExpress.XtraGrid.GridControl() @@ -97,7 +121,6 @@ Partial Class frmAdministration Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.btndeleteProcessProfileLink = New System.Windows.Forms.Button() Me.btnLinkProcessPRofile = New System.Windows.Forms.Button() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.lblprocessCheckActive = New System.Windows.Forms.Label() Me.btnStartStopProcess = New System.Windows.Forms.Button() Me.txtProcessName = New System.Windows.Forms.TextBox() @@ -106,25 +129,97 @@ Partial Class frmAdministration Me.Label3 = New System.Windows.Forms.Label() Me.TabPageUserAssignment = New DevExpress.XtraTab.XtraTabPage() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.GridControl2 = New DevExpress.XtraGrid.GridControl() - Me.GridViewProfileUser = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlUserInProfile = New DevExpress.XtraGrid.GridControl() + Me.GridViewUserInProfile = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label1 = New System.Windows.Forms.Label() - Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() - Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlUserNotInProfile = New DevExpress.XtraGrid.GridControl() + Me.GridViewUserNotInProfile = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label2 = New System.Windows.Forms.Label() - Me.btndeleteUserConstructorRel = New System.Windows.Forms.Button() - Me.btnAddUser2Profile = New System.Windows.Forms.Button() + Me.btnRemoveUserFromProfile = New System.Windows.Forms.Button() + Me.btnAddUserToProfile = New System.Windows.Forms.Button() + Me.TabPageGroupAssignment = New DevExpress.XtraTab.XtraTabPage() + Me.btnRemoveGroupFromProfile = New System.Windows.Forms.Button() + Me.btnAddGroupToProfile = New System.Windows.Forms.Button() + Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() + Me.GridControlGroupInProfile = New DevExpress.XtraGrid.GridControl() + Me.VWCW_GROUP_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewGroupInProfile = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNAME2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label9 = New System.Windows.Forms.Label() + Me.GridControlGroupNotInProfile = New DevExpress.XtraGrid.GridControl() + Me.TBWH_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewGroupNotInProfile = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colID1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNAME3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label10 = New System.Windows.Forms.Label() + Me.TabPageData = New DevExpress.XtraTab.XtraTabPage() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem1 = New System.Windows.Forms.ToolStripButton() + Me.TBCW_PROF_DATA_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.PROFILE_IDTextBox = New System.Windows.Forms.TextBox() + Me.CONN_IDTextBox = New System.Windows.Forms.TextBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() + Me.TAB_INDEXTextBox = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() + Me.TAB_TITLETextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.TabPageDocuments = New DevExpress.XtraTab.XtraTabPage() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem2 = New System.Windows.Forms.ToolStripButton() + Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigatorCountItem2 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem2 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem2 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox2 = New System.Windows.Forms.TextBox() + Me.PROFILE_IDTextBox1 = New System.Windows.Forms.TextBox() + Me.CONN_IDTextBox1 = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.SQL_COMMANDTextBox1 = New System.Windows.Forms.TextBox() + Me.TAB_INDEXTextBox1 = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox2 = New System.Windows.Forms.CheckBox() + Me.TAB_TITLETextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENDateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENDateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.TabPageBasicSettings = New DevExpress.XtraTab.XtraTabPage() - Me.PROFILE_TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.TBCW_PROF_DATA_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter() + Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() + Me.VWCW_GROUP_PROFILETableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.VWCW_GROUP_PROFILETableAdapter() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() COMMENTLabel = New System.Windows.Forms.Label() @@ -135,9 +230,31 @@ Partial Class frmAdministration CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() PROFILE_TYPELabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + PROFILE_IDLabel = New System.Windows.Forms.Label() + CONN_IDLabel = New System.Windows.Forms.Label() + SQL_COMMANDLabel = New System.Windows.Forms.Label() + TAB_INDEXLabel = New System.Windows.Forms.Label() + TAB_TITLELabel = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + GUIDLabel2 = New System.Windows.Forms.Label() + PROFILE_IDLabel1 = New System.Windows.Forms.Label() + CONN_IDLabel1 = New System.Windows.Forms.Label() + SQL_COMMANDLabel1 = New System.Windows.Forms.Label() + TAB_INDEXLabel1 = New System.Windows.Forms.Label() + TAB_TITLELabel1 = New System.Windows.Forms.Label() + ADDED_WHOLabel2 = New System.Windows.Forms.Label() + ADDED_WHENLabel2 = New System.Windows.Forms.Label() + CHANGED_WHOLabel2 = New System.Windows.Forms.Label() + CHANGED_WHENLabel2 = New System.Windows.Forms.Label() + Label7 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBCW_PROFILESBindingNavigator.SuspendLayout() @@ -152,20 +269,39 @@ Partial Class frmAdministration CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl3.SuspendLayout() Me.TabPageGeneralSettings.SuspendLayout() + CType(Me.TBWH_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageProcessAssignment.SuspendLayout() Me.GroupBox4.SuspendLayout() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox3.SuspendLayout() Me.TabPageUserAssignment.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewProfileUser, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlUserInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUserInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlUserNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUserNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPageGroupAssignment.SuspendLayout() + CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer2.Panel1.SuspendLayout() + Me.SplitContainer2.Panel2.SuspendLayout() + Me.SplitContainer2.SuspendLayout() + CType(Me.GridControlGroupInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWCW_GROUP_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewGroupInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlGroupNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewGroupNotInProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPageData.SuspendLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPageDocuments.SuspendLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageBasicSettings.SuspendLayout() Me.SuspendLayout() ' @@ -223,7 +359,7 @@ Partial Class frmAdministration ' ADDED_WHOLabel.AutoSize = True ADDED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - ADDED_WHOLabel.Location = New System.Drawing.Point(14, 306) + ADDED_WHOLabel.Location = New System.Drawing.Point(14, 448) ADDED_WHOLabel.Name = "ADDED_WHOLabel" ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) ADDED_WHOLabel.TabIndex = 10 @@ -233,7 +369,7 @@ Partial Class frmAdministration ' ADDED_WHENLabel.AutoSize = True ADDED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - ADDED_WHENLabel.Location = New System.Drawing.Point(167, 306) + ADDED_WHENLabel.Location = New System.Drawing.Point(167, 448) ADDED_WHENLabel.Name = "ADDED_WHENLabel" ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) ADDED_WHENLabel.TabIndex = 12 @@ -243,7 +379,7 @@ Partial Class frmAdministration ' CHANGED_WHOLabel.AutoSize = True CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - CHANGED_WHOLabel.Location = New System.Drawing.Point(14, 346) + CHANGED_WHOLabel.Location = New System.Drawing.Point(14, 488) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) CHANGED_WHOLabel.TabIndex = 14 @@ -253,12 +389,219 @@ Partial Class frmAdministration ' CHANGED_WHENLabel.AutoSize = True CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - CHANGED_WHENLabel.Location = New System.Drawing.Point(167, 346) + CHANGED_WHENLabel.Location = New System.Drawing.Point(167, 488) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) CHANGED_WHENLabel.TabIndex = 16 CHANGED_WHENLabel.Text = "Geändert wann:" ' + 'PROFILE_TYPELabel + ' + PROFILE_TYPELabel.AutoSize = True + PROFILE_TYPELabel.Location = New System.Drawing.Point(67, 12) + PROFILE_TYPELabel.Name = "PROFILE_TYPELabel" + PROFILE_TYPELabel.Size = New System.Drawing.Size(56, 13) + PROFILE_TYPELabel.TabIndex = 20 + PROFILE_TYPELabel.Text = "Profil Typ:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(15, 63) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(22, 13) + GUIDLabel1.TabIndex = 0 + GUIDLabel1.Text = "ID:" + ' + 'PROFILE_IDLabel + ' + PROFILE_IDLabel.AutoSize = True + PROFILE_IDLabel.Location = New System.Drawing.Point(15, 90) + PROFILE_IDLabel.Name = "PROFILE_IDLabel" + PROFILE_IDLabel.Size = New System.Drawing.Size(49, 13) + PROFILE_IDLabel.TabIndex = 2 + PROFILE_IDLabel.Text = "Profil ID:" + ' + 'CONN_IDLabel + ' + CONN_IDLabel.AutoSize = True + CONN_IDLabel.Location = New System.Drawing.Point(15, 117) + CONN_IDLabel.Name = "CONN_IDLabel" + CONN_IDLabel.Size = New System.Drawing.Size(79, 13) + CONN_IDLabel.TabIndex = 4 + CONN_IDLabel.Text = "Connection ID:" + ' + 'SQL_COMMANDLabel + ' + SQL_COMMANDLabel.AutoSize = True + SQL_COMMANDLabel.Location = New System.Drawing.Point(316, 41) + SQL_COMMANDLabel.Name = "SQL_COMMANDLabel" + SQL_COMMANDLabel.Size = New System.Drawing.Size(79, 13) + SQL_COMMANDLabel.TabIndex = 6 + SQL_COMMANDLabel.Text = "SQL für Suche:" + ' + 'TAB_INDEXLabel + ' + TAB_INDEXLabel.AutoSize = True + TAB_INDEXLabel.Location = New System.Drawing.Point(15, 144) + TAB_INDEXLabel.Name = "TAB_INDEXLabel" + TAB_INDEXLabel.Size = New System.Drawing.Size(69, 13) + TAB_INDEXLabel.TabIndex = 8 + TAB_INDEXLabel.Text = "Tab Position:" + ' + 'TAB_TITLELabel + ' + TAB_TITLELabel.AutoSize = True + TAB_TITLELabel.Location = New System.Drawing.Point(15, 171) + TAB_TITLELabel.Name = "TAB_TITLELabel" + TAB_TITLELabel.Size = New System.Drawing.Size(52, 13) + TAB_TITLELabel.TabIndex = 12 + TAB_TITLELabel.Text = "Tab Titel:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Location = New System.Drawing.Point(15, 198) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel1.TabIndex = 14 + ADDED_WHOLabel1.Text = "Erstellt Wer:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Location = New System.Drawing.Point(15, 226) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(75, 13) + ADDED_WHENLabel1.TabIndex = 16 + ADDED_WHENLabel1.Text = "Erstellt Wann:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Location = New System.Drawing.Point(15, 252) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(79, 13) + CHANGED_WHOLabel1.TabIndex = 18 + CHANGED_WHOLabel1.Text = "Geändert Wer:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Location = New System.Drawing.Point(15, 280) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(87, 13) + CHANGED_WHENLabel1.TabIndex = 20 + CHANGED_WHENLabel1.Text = "Geändert Wann:" + ' + 'GUIDLabel2 + ' + GUIDLabel2.AutoSize = True + GUIDLabel2.Location = New System.Drawing.Point(15, 63) + GUIDLabel2.Name = "GUIDLabel2" + GUIDLabel2.Size = New System.Drawing.Size(22, 13) + GUIDLabel2.TabIndex = 0 + GUIDLabel2.Text = "ID:" + ' + 'PROFILE_IDLabel1 + ' + PROFILE_IDLabel1.AutoSize = True + PROFILE_IDLabel1.Location = New System.Drawing.Point(15, 90) + PROFILE_IDLabel1.Name = "PROFILE_IDLabel1" + PROFILE_IDLabel1.Size = New System.Drawing.Size(49, 13) + PROFILE_IDLabel1.TabIndex = 2 + PROFILE_IDLabel1.Text = "Profil ID:" + ' + 'CONN_IDLabel1 + ' + CONN_IDLabel1.AutoSize = True + CONN_IDLabel1.Location = New System.Drawing.Point(15, 117) + CONN_IDLabel1.Name = "CONN_IDLabel1" + CONN_IDLabel1.Size = New System.Drawing.Size(79, 13) + CONN_IDLabel1.TabIndex = 4 + CONN_IDLabel1.Text = "Connection ID:" + ' + 'SQL_COMMANDLabel1 + ' + SQL_COMMANDLabel1.AutoSize = True + SQL_COMMANDLabel1.Location = New System.Drawing.Point(316, 41) + SQL_COMMANDLabel1.Name = "SQL_COMMANDLabel1" + SQL_COMMANDLabel1.Size = New System.Drawing.Size(79, 13) + SQL_COMMANDLabel1.TabIndex = 6 + SQL_COMMANDLabel1.Text = "SQL für Suche:" + ' + 'TAB_INDEXLabel1 + ' + TAB_INDEXLabel1.AutoSize = True + TAB_INDEXLabel1.Location = New System.Drawing.Point(15, 144) + TAB_INDEXLabel1.Name = "TAB_INDEXLabel1" + TAB_INDEXLabel1.Size = New System.Drawing.Size(69, 13) + TAB_INDEXLabel1.TabIndex = 8 + TAB_INDEXLabel1.Text = "Tab Position:" + ' + 'TAB_TITLELabel1 + ' + TAB_TITLELabel1.AutoSize = True + TAB_TITLELabel1.Location = New System.Drawing.Point(15, 171) + TAB_TITLELabel1.Name = "TAB_TITLELabel1" + TAB_TITLELabel1.Size = New System.Drawing.Size(52, 13) + TAB_TITLELabel1.TabIndex = 12 + TAB_TITLELabel1.Text = "Tab Titel:" + ' + 'ADDED_WHOLabel2 + ' + ADDED_WHOLabel2.AutoSize = True + ADDED_WHOLabel2.Location = New System.Drawing.Point(15, 198) + ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" + ADDED_WHOLabel2.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel2.TabIndex = 14 + ADDED_WHOLabel2.Text = "Erstellt Wer:" + ' + 'ADDED_WHENLabel2 + ' + ADDED_WHENLabel2.AutoSize = True + ADDED_WHENLabel2.Location = New System.Drawing.Point(15, 226) + ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" + ADDED_WHENLabel2.Size = New System.Drawing.Size(75, 13) + ADDED_WHENLabel2.TabIndex = 16 + ADDED_WHENLabel2.Text = "Erstellt Wann:" + ' + 'CHANGED_WHOLabel2 + ' + CHANGED_WHOLabel2.AutoSize = True + CHANGED_WHOLabel2.Location = New System.Drawing.Point(15, 252) + CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" + CHANGED_WHOLabel2.Size = New System.Drawing.Size(79, 13) + CHANGED_WHOLabel2.TabIndex = 18 + CHANGED_WHOLabel2.Text = "Geändert Wer:" + ' + 'CHANGED_WHENLabel2 + ' + CHANGED_WHENLabel2.AutoSize = True + CHANGED_WHENLabel2.Location = New System.Drawing.Point(15, 280) + CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" + CHANGED_WHENLabel2.Size = New System.Drawing.Size(87, 13) + CHANGED_WHENLabel2.TabIndex = 20 + CHANGED_WHENLabel2.Text = "Geändert Wann:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.Location = New System.Drawing.Point(316, 309) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(132, 13) + Label7.TabIndex = 6 + Label7.Text = "SQL für Ergebnis Zählung:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.Location = New System.Drawing.Point(316, 309) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(132, 13) + Label8.TabIndex = 23 + Label8.Text = "SQL für Ergebnis Zählung:" + ' 'btnaddSearch ' Me.btnaddSearch.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -273,7 +616,7 @@ Partial Class frmAdministration ' Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(170, 362) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(170, 504) Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" Me.CHANGED_WHENTextBox.ReadOnly = True Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21) @@ -293,7 +636,7 @@ Partial Class frmAdministration ' Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(17, 362) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(17, 504) Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" Me.CHANGED_WHOTextBox.ReadOnly = True Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21) @@ -303,7 +646,7 @@ Partial Class frmAdministration ' Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(170, 322) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(170, 464) Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" Me.ADDED_WHENTextBox.ReadOnly = True Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21) @@ -313,7 +656,7 @@ Partial Class frmAdministration ' Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(17, 322) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(17, 464) Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.ReadOnly = True Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21) @@ -340,7 +683,7 @@ Partial Class frmAdministration 'ACTIVECheckBox ' Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBCW_PROFILESBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox.Location = New System.Drawing.Point(70, 26) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(321, 26) Me.ACTIVECheckBox.Name = "ACTIVECheckBox" Me.ACTIVECheckBox.Size = New System.Drawing.Size(112, 24) Me.ACTIVECheckBox.TabIndex = 20 @@ -363,7 +706,7 @@ Partial Class frmAdministration Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.NAMETextBox.Location = New System.Drawing.Point(17, 68) Me.NAMETextBox.Name = "NAMETextBox" - Me.NAMETextBox.Size = New System.Drawing.Size(295, 21) + Me.NAMETextBox.Size = New System.Drawing.Size(416, 21) Me.NAMETextBox.TabIndex = 0 ' 'COMMENTTextBox @@ -375,23 +718,23 @@ Partial Class frmAdministration Me.COMMENTTextBox.Size = New System.Drawing.Size(416, 21) Me.COMMENTTextBox.TabIndex = 1 ' - 'GridControl1 + 'GridControlProfiles ' - Me.GridControl1.DataSource = Me.TBCW_PROFILESBindingSource - Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left - Me.GridControl1.Location = New System.Drawing.Point(0, 25) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(239, 597) - Me.GridControl1.TabIndex = 18 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + Me.GridControlProfiles.DataSource = Me.TBCW_PROFILESBindingSource + Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControlProfiles.Location = New System.Drawing.Point(0, 25) + Me.GridControlProfiles.MainView = Me.GridView1 + Me.GridControlProfiles.Name = "GridControlProfiles" + Me.GridControlProfiles.Size = New System.Drawing.Size(239, 563) + Me.GridControlProfiles.TabIndex = 18 + Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' 'GridView1 ' Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME}) - Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.GridControl = Me.GridControlProfiles Me.GridView1.Name = "GridView1" Me.GridView1.OptionsBehavior.Editable = False Me.GridView1.OptionsView.ColumnAutoWidth = False @@ -437,7 +780,7 @@ Partial Class frmAdministration Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator" Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem - Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(1277, 25) + Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(1291, 25) Me.TBCW_PROFILESBindingNavigator.TabIndex = 1 Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1" ' @@ -560,6 +903,9 @@ Partial Class frmAdministration 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBCW_GROUP_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_DATA_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_DOC_SEARCHTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing @@ -568,9 +914,9 @@ Partial Class frmAdministration 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.statuslabel}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 650) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 616) Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1283, 22) + Me.StatusStrip1.Size = New System.Drawing.Size(1297, 22) Me.StatusStrip1.TabIndex = 1 Me.StatusStrip1.Text = "StatusStrip1" ' @@ -664,17 +1010,17 @@ Partial Class frmAdministration Me.XtraTabControl2.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl2.Name = "XtraTabControl2" Me.XtraTabControl2.SelectedTabPage = Me.TabPageProfiles - Me.XtraTabControl2.Size = New System.Drawing.Size(1283, 650) + Me.XtraTabControl2.Size = New System.Drawing.Size(1297, 616) Me.XtraTabControl2.TabIndex = 25 Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageProfiles, Me.TabPageBasicSettings}) ' 'TabPageProfiles ' Me.TabPageProfiles.Controls.Add(Me.XtraTabControl3) - Me.TabPageProfiles.Controls.Add(Me.GridControl1) + Me.TabPageProfiles.Controls.Add(Me.GridControlProfiles) Me.TabPageProfiles.Controls.Add(Me.TBCW_PROFILESBindingNavigator) Me.TabPageProfiles.Name = "TabPageProfiles" - Me.TabPageProfiles.Size = New System.Drawing.Size(1277, 622) + Me.TabPageProfiles.Size = New System.Drawing.Size(1291, 588) Me.TabPageProfiles.Text = "Profil Verwaltung" ' 'XtraTabControl3 @@ -683,12 +1029,13 @@ Partial Class frmAdministration Me.XtraTabControl3.Location = New System.Drawing.Point(239, 25) Me.XtraTabControl3.Name = "XtraTabControl3" Me.XtraTabControl3.SelectedTabPage = Me.TabPageGeneralSettings - Me.XtraTabControl3.Size = New System.Drawing.Size(1038, 597) + Me.XtraTabControl3.Size = New System.Drawing.Size(1052, 563) Me.XtraTabControl3.TabIndex = 21 - Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageProcessAssignment, Me.TabPageUserAssignment}) + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageGeneralSettings, Me.TabPageProcessAssignment, Me.TabPageUserAssignment, Me.TabPageGroupAssignment, Me.TabPageData, Me.TabPageDocuments}) ' 'TabPageGeneralSettings ' + Me.TabPageGeneralSettings.AutoScroll = True Me.TabPageGeneralSettings.Controls.Add(PROFILE_TYPELabel) Me.TabPageGeneralSettings.Controls.Add(Me.PROFILE_TYPEComboBox) Me.TabPageGeneralSettings.Controls.Add(Me.btnaddSearch) @@ -712,26 +1059,48 @@ Partial Class frmAdministration Me.TabPageGeneralSettings.Controls.Add(ADDED_WHOLabel) Me.TabPageGeneralSettings.Controls.Add(Me.ADDED_WHOTextBox) Me.TabPageGeneralSettings.Name = "TabPageGeneralSettings" - Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1032, 569) + Me.TabPageGeneralSettings.Size = New System.Drawing.Size(1046, 535) Me.TabPageGeneralSettings.Text = "Allgemein" ' + 'PROFILE_TYPEComboBox + ' + Me.PROFILE_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) + Me.PROFILE_TYPEComboBox.DataSource = Me.TBWH_PROFILE_TYPEBindingSource + Me.PROFILE_TYPEComboBox.DisplayMember = "TYPE_NAME" + Me.PROFILE_TYPEComboBox.FormattingEnabled = True + Me.PROFILE_TYPEComboBox.Location = New System.Drawing.Point(70, 28) + Me.PROFILE_TYPEComboBox.Name = "PROFILE_TYPEComboBox" + Me.PROFILE_TYPEComboBox.Size = New System.Drawing.Size(242, 21) + Me.PROFILE_TYPEComboBox.TabIndex = 21 + Me.PROFILE_TYPEComboBox.ValueMember = "TYPE_ID" + ' + 'TBWH_PROFILE_TYPEBindingSource + ' + Me.TBWH_PROFILE_TYPEBindingSource.DataMember = "TBWH_PROFILE_TYPE" + Me.TBWH_PROFILE_TYPEBindingSource.DataSource = Me.MyDataset + ' 'TabPageProcessAssignment ' Me.TabPageProcessAssignment.Controls.Add(Me.GroupBox4) - Me.TabPageProcessAssignment.Controls.Add(Me.GroupBox3) + Me.TabPageProcessAssignment.Controls.Add(Me.GridControl3) Me.TabPageProcessAssignment.Name = "TabPageProcessAssignment" - Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1032, 569) + Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1046, 535) Me.TabPageProcessAssignment.Text = "Prozess Zuordnung" ' 'GroupBox4 ' - Me.GroupBox4.Controls.Add(Me.GridControl3) + Me.GroupBox4.Controls.Add(Me.lblprocessCheckActive) + Me.GroupBox4.Controls.Add(Me.btnStartStopProcess) + Me.GroupBox4.Controls.Add(Me.txtProcessName) Me.GroupBox4.Controls.Add(Me.btndeleteProcessProfileLink) + Me.GroupBox4.Controls.Add(Me.txtPID) Me.GroupBox4.Controls.Add(Me.btnLinkProcessPRofile) + Me.GroupBox4.Controls.Add(Me.Label4) + Me.GroupBox4.Controls.Add(Me.Label3) Me.GroupBox4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox4.Location = New System.Drawing.Point(5, 3) + Me.GroupBox4.Location = New System.Drawing.Point(689, 34) Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(1024, 272) + Me.GroupBox4.Size = New System.Drawing.Size(309, 272) Me.GroupBox4.TabIndex = 64 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Zugeordnete Prozesse" @@ -741,7 +1110,7 @@ Partial Class frmAdministration Me.GridControl3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.GridControl3.DataSource = Me.TBCW_PROFILE_PROCESSBindingSource - Me.GridControl3.Location = New System.Drawing.Point(8, 20) + Me.GridControl3.Location = New System.Drawing.Point(22, 60) Me.GridControl3.MainView = Me.GridViewProcessProfile Me.GridControl3.Name = "GridControl3" Me.GridControl3.Size = New System.Drawing.Size(480, 246) @@ -806,7 +1175,7 @@ Partial Class frmAdministration Me.btndeleteProcessProfileLink.Image = CType(resources.GetObject("btndeleteProcessProfileLink.Image"), System.Drawing.Image) Me.btndeleteProcessProfileLink.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btndeleteProcessProfileLink.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btndeleteProcessProfileLink.Location = New System.Drawing.Point(494, 54) + Me.btndeleteProcessProfileLink.Location = New System.Drawing.Point(63, 54) Me.btndeleteProcessProfileLink.Name = "btndeleteProcessProfileLink" Me.btndeleteProcessProfileLink.Size = New System.Drawing.Size(205, 26) Me.btndeleteProcessProfileLink.TabIndex = 61 @@ -820,7 +1189,7 @@ Partial Class frmAdministration Me.btnLinkProcessPRofile.Image = CType(resources.GetObject("btnLinkProcessPRofile.Image"), System.Drawing.Image) Me.btnLinkProcessPRofile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnLinkProcessPRofile.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btnLinkProcessPRofile.Location = New System.Drawing.Point(494, 20) + Me.btnLinkProcessPRofile.Location = New System.Drawing.Point(63, 20) Me.btnLinkProcessPRofile.Name = "btnLinkProcessPRofile" Me.btnLinkProcessPRofile.Size = New System.Drawing.Size(205, 28) Me.btnLinkProcessPRofile.TabIndex = 60 @@ -828,28 +1197,12 @@ Partial Class frmAdministration Me.btnLinkProcessPRofile.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnLinkProcessPRofile.UseVisualStyleBackColor = True ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.lblprocessCheckActive) - Me.GroupBox3.Controls.Add(Me.btnStartStopProcess) - Me.GroupBox3.Controls.Add(Me.txtProcessName) - Me.GroupBox3.Controls.Add(Me.txtPID) - Me.GroupBox3.Controls.Add(Me.Label4) - Me.GroupBox3.Controls.Add(Me.Label3) - Me.GroupBox3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox3.Location = New System.Drawing.Point(5, 281) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(1024, 285) - Me.GroupBox3.TabIndex = 63 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Auswahl Fenster/Prozess:" - ' 'lblprocessCheckActive ' Me.lblprocessCheckActive.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblprocessCheckActive.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.asterisk_orange Me.lblprocessCheckActive.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.lblprocessCheckActive.Location = New System.Drawing.Point(6, 52) + Me.lblprocessCheckActive.Location = New System.Drawing.Point(16, 161) Me.lblprocessCheckActive.Name = "lblprocessCheckActive" Me.lblprocessCheckActive.Size = New System.Drawing.Size(264, 28) Me.lblprocessCheckActive.TabIndex = 23 @@ -862,7 +1215,7 @@ Partial Class frmAdministration Me.btnStartStopProcess.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnStartStopProcess.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.startwithoutdebugging_6556 Me.btnStartStopProcess.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnStartStopProcess.Location = New System.Drawing.Point(6, 21) + Me.btnStartStopProcess.Location = New System.Drawing.Point(16, 130) Me.btnStartStopProcess.Name = "btnStartStopProcess" Me.btnStartStopProcess.Size = New System.Drawing.Size(264, 26) Me.btnStartStopProcess.TabIndex = 8 @@ -873,7 +1226,7 @@ Partial Class frmAdministration 'txtProcessName ' Me.txtProcessName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtProcessName.Location = New System.Drawing.Point(90, 116) + Me.txtProcessName.Location = New System.Drawing.Point(100, 225) Me.txtProcessName.Name = "txtProcessName" Me.txtProcessName.ReadOnly = True Me.txtProcessName.Size = New System.Drawing.Size(180, 21) @@ -882,7 +1235,7 @@ Partial Class frmAdministration 'txtPID ' Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPID.Location = New System.Drawing.Point(90, 89) + Me.txtPID.Location = New System.Drawing.Point(100, 198) Me.txtPID.Name = "txtPID" Me.txtPID.ReadOnly = True Me.txtPID.Size = New System.Drawing.Size(180, 21) @@ -892,7 +1245,7 @@ Partial Class frmAdministration ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(6, 119) + Me.Label4.Location = New System.Drawing.Point(16, 228) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(78, 13) Me.Label4.TabIndex = 1 @@ -902,7 +1255,7 @@ Partial Class frmAdministration ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(6, 92) + Me.Label3.Location = New System.Drawing.Point(16, 201) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(59, 13) Me.Label3.TabIndex = 0 @@ -911,10 +1264,10 @@ Partial Class frmAdministration 'TabPageUserAssignment ' Me.TabPageUserAssignment.Controls.Add(Me.SplitContainer1) - Me.TabPageUserAssignment.Controls.Add(Me.btndeleteUserConstructorRel) - Me.TabPageUserAssignment.Controls.Add(Me.btnAddUser2Profile) + Me.TabPageUserAssignment.Controls.Add(Me.btnRemoveUserFromProfile) + Me.TabPageUserAssignment.Controls.Add(Me.btnAddUserToProfile) Me.TabPageUserAssignment.Name = "TabPageUserAssignment" - Me.TabPageUserAssignment.Size = New System.Drawing.Size(1032, 569) + Me.TabPageUserAssignment.Size = New System.Drawing.Size(1046, 535) Me.TabPageUserAssignment.Text = "Benutzer Zuordnung" ' 'SplitContainer1 @@ -926,50 +1279,50 @@ Partial Class frmAdministration ' 'SplitContainer1.Panel1 ' - Me.SplitContainer1.Panel1.Controls.Add(Me.GridControl2) + Me.SplitContainer1.Panel1.Controls.Add(Me.GridControlUserInProfile) Me.SplitContainer1.Panel1.Controls.Add(Me.Label1) ' 'SplitContainer1.Panel2 ' - Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUsers2Menue) + Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUserNotInProfile) Me.SplitContainer1.Panel2.Controls.Add(Me.Label2) - Me.SplitContainer1.Size = New System.Drawing.Size(1032, 481) + Me.SplitContainer1.Size = New System.Drawing.Size(1046, 481) Me.SplitContainer1.SplitterDistance = 239 Me.SplitContainer1.TabIndex = 98 ' - 'GridControl2 - ' - Me.GridControl2.DataSource = Me.VWUSER_PROFILEBindingSource - Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControl2.Location = New System.Drawing.Point(0, 25) - Me.GridControl2.MainView = Me.GridViewProfileUser - Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(1032, 214) - Me.GridControl2.TabIndex = 93 - Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfileUser}) - ' - 'GridViewProfileUser - ' - Me.GridViewProfileUser.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua - Me.GridViewProfileUser.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewProfileUser.Appearance.HeaderPanel.BackColor = System.Drawing.Color.Gray - Me.GridViewProfileUser.Appearance.HeaderPanel.ForeColor = System.Drawing.Color.Black - Me.GridViewProfileUser.Appearance.HeaderPanel.Options.UseBackColor = True - Me.GridViewProfileUser.Appearance.HeaderPanel.Options.UseBorderColor = True - Me.GridViewProfileUser.Appearance.HeaderPanel.Options.UseForeColor = True - Me.GridViewProfileUser.Appearance.Row.ForeColor = System.Drawing.Color.Black - Me.GridViewProfileUser.Appearance.Row.Options.UseForeColor = True - Me.GridViewProfileUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) - Me.GridViewProfileUser.GridControl = Me.GridControl2 - Me.GridViewProfileUser.Name = "GridViewProfileUser" - Me.GridViewProfileUser.OptionsBehavior.Editable = False - Me.GridViewProfileUser.OptionsView.ColumnAutoWidth = False - Me.GridViewProfileUser.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewProfileUser.OptionsView.ShowAutoFilterRow = True - Me.GridViewProfileUser.OptionsView.ShowDetailButtons = False - Me.GridViewProfileUser.OptionsView.ShowGroupPanel = False - Me.GridViewProfileUser.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewProfileUser.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] + 'GridControlUserInProfile + ' + Me.GridControlUserInProfile.DataSource = Me.VWUSER_PROFILEBindingSource + Me.GridControlUserInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlUserInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlUserInProfile.MainView = Me.GridViewUserInProfile + Me.GridControlUserInProfile.Name = "GridControlUserInProfile" + Me.GridControlUserInProfile.Size = New System.Drawing.Size(1046, 214) + Me.GridControlUserInProfile.TabIndex = 93 + Me.GridControlUserInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserInProfile}) + ' + 'GridViewUserInProfile + ' + Me.GridViewUserInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewUserInProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUserInProfile.Appearance.HeaderPanel.BackColor = System.Drawing.Color.Gray + Me.GridViewUserInProfile.Appearance.HeaderPanel.ForeColor = System.Drawing.Color.Black + Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseBackColor = True + Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseBorderColor = True + Me.GridViewUserInProfile.Appearance.HeaderPanel.Options.UseForeColor = True + Me.GridViewUserInProfile.Appearance.Row.ForeColor = System.Drawing.Color.Black + Me.GridViewUserInProfile.Appearance.Row.Options.UseForeColor = True + Me.GridViewUserInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colUSERNAME, Me.colNAME1, Me.colPRENAME}) + Me.GridViewUserInProfile.GridControl = Me.GridControlUserInProfile + Me.GridViewUserInProfile.Name = "GridViewUserInProfile" + Me.GridViewUserInProfile.OptionsBehavior.Editable = False + Me.GridViewUserInProfile.OptionsView.ColumnAutoWidth = False + Me.GridViewUserInProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUserInProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewUserInProfile.OptionsView.ShowDetailButtons = False + Me.GridViewUserInProfile.OptionsView.ShowGroupPanel = False + Me.GridViewUserInProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] + Me.GridViewUserInProfile.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[True] ' 'colGUID1 ' @@ -1013,40 +1366,40 @@ Partial Class frmAdministration Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(0, 0) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(1032, 25) + Me.Label1.Size = New System.Drawing.Size(1046, 25) Me.Label1.TabIndex = 94 - Me.Label1.Text = "Zugeordnete User:" + Me.Label1.Text = "Zugeordnete Benutzer:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'GridControlUsers2Menue - ' - Me.GridControlUsers2Menue.DataSource = Me.TBWH_UserBindingSource - Me.GridControlUsers2Menue.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlUsers2Menue.Location = New System.Drawing.Point(0, 25) - Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue - Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue" - Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True - Me.GridControlUsers2Menue.Size = New System.Drawing.Size(1032, 213) - Me.GridControlUsers2Menue.TabIndex = 96 - Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue}) - ' - 'GridViewlUsers2Menue - ' - Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan - Me.GridViewlUsers2Menue.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia - Me.GridViewlUsers2Menue.Appearance.FocusedRow.Options.UseBackColor = True - Me.GridViewlUsers2Menue.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn2, Me.GridColumn3, Me.colID}) - Me.GridViewlUsers2Menue.GridControl = Me.GridControlUsers2Menue - Me.GridViewlUsers2Menue.Name = "GridViewlUsers2Menue" - Me.GridViewlUsers2Menue.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewlUsers2Menue.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewlUsers2Menue.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewlUsers2Menue.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewlUsers2Menue.OptionsView.ColumnAutoWidth = False - Me.GridViewlUsers2Menue.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewlUsers2Menue.OptionsView.ShowAutoFilterRow = True - Me.GridViewlUsers2Menue.OptionsView.ShowGroupPanel = False + 'GridControlUserNotInProfile + ' + Me.GridControlUserNotInProfile.DataSource = Me.TBWH_UserBindingSource + Me.GridControlUserNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlUserNotInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlUserNotInProfile.MainView = Me.GridViewUserNotInProfile + Me.GridControlUserNotInProfile.Name = "GridControlUserNotInProfile" + Me.GridControlUserNotInProfile.ShowOnlyPredefinedDetails = True + Me.GridControlUserNotInProfile.Size = New System.Drawing.Size(1046, 213) + Me.GridControlUserNotInProfile.TabIndex = 96 + Me.GridControlUserNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserNotInProfile}) + ' + 'GridViewUserNotInProfile + ' + Me.GridViewUserNotInProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridViewUserNotInProfile.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUserNotInProfile.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia + Me.GridViewUserNotInProfile.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewUserNotInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colSurname, Me.GridColumn2, Me.GridColumn3, Me.colID}) + Me.GridViewUserNotInProfile.GridControl = Me.GridControlUserNotInProfile + Me.GridViewUserNotInProfile.Name = "GridViewUserNotInProfile" + Me.GridViewUserNotInProfile.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserNotInProfile.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserNotInProfile.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserNotInProfile.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUserNotInProfile.OptionsView.ColumnAutoWidth = False + Me.GridViewUserNotInProfile.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUserNotInProfile.OptionsView.ShowAutoFilterRow = True + Me.GridViewUserNotInProfile.OptionsView.ShowGroupPanel = False ' 'colSelect ' @@ -1094,69 +1447,759 @@ Partial Class frmAdministration Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(0, 0) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(1032, 25) + Me.Label2.Size = New System.Drawing.Size(1046, 25) Me.Label2.TabIndex = 97 - Me.Label2.Text = "User ohne Rechte:" + Me.Label2.Text = "Nicht zugeordnete Benutzer:" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'btndeleteUserConstructorRel - ' - Me.btndeleteUserConstructorRel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btndeleteUserConstructorRel.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel - Me.btndeleteUserConstructorRel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(499, 523) - Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel" - Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(256, 28) - Me.btndeleteUserConstructorRel.TabIndex = 95 - Me.btndeleteUserConstructorRel.Text = "User vom ausgewählten Profil entfernen" - Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndeleteUserConstructorRel.UseVisualStyleBackColor = True - ' - 'btnAddUser2Profile - ' - Me.btnAddUser2Profile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnAddUser2Profile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.startwithoutdebugging_6556 - Me.btnAddUser2Profile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnAddUser2Profile.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.btnAddUser2Profile.Location = New System.Drawing.Point(761, 523) - Me.btnAddUser2Profile.Name = "btnAddUser2Profile" - Me.btnAddUser2Profile.Size = New System.Drawing.Size(256, 28) - Me.btnAddUser2Profile.TabIndex = 95 - Me.btnAddUser2Profile.Text = "User zu ausgewähltem Profil hinzufügen" - Me.btnAddUser2Profile.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAddUser2Profile.UseVisualStyleBackColor = True + 'btnRemoveUserFromProfile + ' + Me.btnRemoveUserFromProfile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRemoveUserFromProfile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.btnRemoveUserFromProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRemoveUserFromProfile.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnRemoveUserFromProfile.Location = New System.Drawing.Point(525, 504) + Me.btnRemoveUserFromProfile.Name = "btnRemoveUserFromProfile" + Me.btnRemoveUserFromProfile.Size = New System.Drawing.Size(256, 28) + Me.btnRemoveUserFromProfile.TabIndex = 95 + Me.btnRemoveUserFromProfile.Text = "Benutzer vom ausgewählten Profil entfernen" + Me.btnRemoveUserFromProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRemoveUserFromProfile.UseVisualStyleBackColor = True + ' + 'btnAddUserToProfile + ' + Me.btnAddUserToProfile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddUserToProfile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.startwithoutdebugging_6556 + Me.btnAddUserToProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUserToProfile.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAddUserToProfile.Location = New System.Drawing.Point(787, 504) + Me.btnAddUserToProfile.Name = "btnAddUserToProfile" + Me.btnAddUserToProfile.Size = New System.Drawing.Size(256, 28) + Me.btnAddUserToProfile.TabIndex = 95 + Me.btnAddUserToProfile.Text = "Benutzer zu ausgewähltem Profil hinzufügen" + Me.btnAddUserToProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUserToProfile.UseVisualStyleBackColor = True + ' + 'TabPageGroupAssignment + ' + Me.TabPageGroupAssignment.AutoScroll = True + Me.TabPageGroupAssignment.Controls.Add(Me.btnRemoveGroupFromProfile) + Me.TabPageGroupAssignment.Controls.Add(Me.btnAddGroupToProfile) + Me.TabPageGroupAssignment.Controls.Add(Me.SplitContainer2) + Me.TabPageGroupAssignment.Name = "TabPageGroupAssignment" + Me.TabPageGroupAssignment.Size = New System.Drawing.Size(1046, 535) + Me.TabPageGroupAssignment.Text = "Gruppen Zuordnung" + ' + 'btnRemoveGroupFromProfile + ' + Me.btnRemoveGroupFromProfile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRemoveGroupFromProfile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.btnRemoveGroupFromProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRemoveGroupFromProfile.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnRemoveGroupFromProfile.Location = New System.Drawing.Point(526, 504) + Me.btnRemoveGroupFromProfile.Name = "btnRemoveGroupFromProfile" + Me.btnRemoveGroupFromProfile.Size = New System.Drawing.Size(256, 28) + Me.btnRemoveGroupFromProfile.TabIndex = 96 + Me.btnRemoveGroupFromProfile.Text = "Gruppe vom ausgewählten Profil entfernen" + Me.btnRemoveGroupFromProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRemoveGroupFromProfile.UseVisualStyleBackColor = True + ' + 'btnAddGroupToProfile + ' + Me.btnAddGroupToProfile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddGroupToProfile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.startwithoutdebugging_6556 + Me.btnAddGroupToProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddGroupToProfile.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAddGroupToProfile.Location = New System.Drawing.Point(788, 504) + Me.btnAddGroupToProfile.Name = "btnAddGroupToProfile" + Me.btnAddGroupToProfile.Size = New System.Drawing.Size(256, 28) + Me.btnAddGroupToProfile.TabIndex = 97 + Me.btnAddGroupToProfile.Text = "Gruppe zu ausgewähltem Profil hinzufügen" + Me.btnAddGroupToProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddGroupToProfile.UseVisualStyleBackColor = True + ' + 'SplitContainer2 + ' + Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Top + Me.SplitContainer2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer2.Name = "SplitContainer2" + Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer2.Panel1 + ' + Me.SplitContainer2.Panel1.Controls.Add(Me.GridControlGroupInProfile) + Me.SplitContainer2.Panel1.Controls.Add(Me.Label9) + ' + 'SplitContainer2.Panel2 + ' + Me.SplitContainer2.Panel2.Controls.Add(Me.GridControlGroupNotInProfile) + Me.SplitContainer2.Panel2.Controls.Add(Me.Label10) + Me.SplitContainer2.Size = New System.Drawing.Size(1046, 483) + Me.SplitContainer2.SplitterDistance = 238 + Me.SplitContainer2.TabIndex = 0 + ' + 'GridControlGroupInProfile + ' + Me.GridControlGroupInProfile.DataSource = Me.VWCW_GROUP_PROFILEBindingSource + Me.GridControlGroupInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlGroupInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlGroupInProfile.MainView = Me.GridViewGroupInProfile + Me.GridControlGroupInProfile.Name = "GridControlGroupInProfile" + Me.GridControlGroupInProfile.Size = New System.Drawing.Size(1046, 213) + Me.GridControlGroupInProfile.TabIndex = 1 + Me.GridControlGroupInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupInProfile}) + ' + 'VWCW_GROUP_PROFILEBindingSource + ' + Me.VWCW_GROUP_PROFILEBindingSource.DataMember = "VWCW_GROUP_PROFILE" + Me.VWCW_GROUP_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'GridViewGroupInProfile + ' + Me.GridViewGroupInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID3, Me.colNAME2}) + Me.GridViewGroupInProfile.GridControl = Me.GridControlGroupInProfile + Me.GridViewGroupInProfile.Name = "GridViewGroupInProfile" + Me.GridViewGroupInProfile.OptionsBehavior.Editable = False + Me.GridViewGroupInProfile.OptionsBehavior.ReadOnly = True + Me.GridViewGroupInProfile.OptionsSelection.MultiSelect = True + Me.GridViewGroupInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + ' + 'colGUID3 + ' + Me.colGUID3.Caption = "ID" + Me.colGUID3.FieldName = "GUID" + Me.colGUID3.MaxWidth = 40 + Me.colGUID3.MinWidth = 40 + Me.colGUID3.Name = "colGUID3" + Me.colGUID3.Visible = True + Me.colGUID3.VisibleIndex = 1 + Me.colGUID3.Width = 40 + ' + 'colNAME2 + ' + Me.colNAME2.Caption = "Gruppe" + Me.colNAME2.FieldName = "NAME" + Me.colNAME2.Name = "colNAME2" + Me.colNAME2.Visible = True + Me.colNAME2.VisibleIndex = 2 + Me.colNAME2.Width = 40 + ' + 'Label9 + ' + Me.Label9.Dock = System.Windows.Forms.DockStyle.Top + Me.Label9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(0, 0) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(1046, 25) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "Zugeordnete Gruppen" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'GridControlGroupNotInProfile + ' + Me.GridControlGroupNotInProfile.DataSource = Me.TBWH_GROUPBindingSource + Me.GridControlGroupNotInProfile.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlGroupNotInProfile.Location = New System.Drawing.Point(0, 25) + Me.GridControlGroupNotInProfile.MainView = Me.GridViewGroupNotInProfile + Me.GridControlGroupNotInProfile.Name = "GridControlGroupNotInProfile" + Me.GridControlGroupNotInProfile.Size = New System.Drawing.Size(1046, 216) + Me.GridControlGroupNotInProfile.TabIndex = 1 + Me.GridControlGroupNotInProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewGroupNotInProfile}) + ' + 'TBWH_GROUPBindingSource + ' + Me.TBWH_GROUPBindingSource.DataMember = "TBWH_GROUP" + Me.TBWH_GROUPBindingSource.DataSource = Me.MyDataset + ' + 'GridViewGroupNotInProfile + ' + Me.GridViewGroupNotInProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID1, Me.colNAME3}) + Me.GridViewGroupNotInProfile.GridControl = Me.GridControlGroupNotInProfile + Me.GridViewGroupNotInProfile.Name = "GridViewGroupNotInProfile" + Me.GridViewGroupNotInProfile.OptionsBehavior.Editable = False + Me.GridViewGroupNotInProfile.OptionsBehavior.ReadOnly = True + Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelect = True + Me.GridViewGroupNotInProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + ' + 'colID1 + ' + Me.colID1.Caption = "ID" + Me.colID1.FieldName = "ID" + Me.colID1.MaxWidth = 40 + Me.colID1.MinWidth = 40 + Me.colID1.Name = "colID1" + Me.colID1.Visible = True + Me.colID1.VisibleIndex = 1 + Me.colID1.Width = 40 + ' + 'colNAME3 + ' + Me.colNAME3.Caption = "Gruppe" + Me.colNAME3.FieldName = "NAME" + Me.colNAME3.Name = "colNAME3" + Me.colNAME3.Visible = True + Me.colNAME3.VisibleIndex = 2 + ' + 'Label10 + ' + Me.Label10.Dock = System.Windows.Forms.DockStyle.Top + Me.Label10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(0, 0) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(1046, 25) + Me.Label10.TabIndex = 1 + Me.Label10.Text = "Nicht zugeordnete Gruppen:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TabPageData + ' + Me.TabPageData.Controls.Add(Me.BindingNavigator1) + Me.TabPageData.Controls.Add(GUIDLabel1) + Me.TabPageData.Controls.Add(Me.GUIDTextBox1) + Me.TabPageData.Controls.Add(PROFILE_IDLabel) + Me.TabPageData.Controls.Add(Me.PROFILE_IDTextBox) + Me.TabPageData.Controls.Add(CONN_IDLabel) + Me.TabPageData.Controls.Add(Me.CONN_IDTextBox) + Me.TabPageData.Controls.Add(Label7) + Me.TabPageData.Controls.Add(SQL_COMMANDLabel) + Me.TabPageData.Controls.Add(Me.TextBox1) + Me.TabPageData.Controls.Add(Me.SQL_COMMANDTextBox) + Me.TabPageData.Controls.Add(TAB_INDEXLabel) + Me.TabPageData.Controls.Add(Me.TAB_INDEXTextBox) + Me.TabPageData.Controls.Add(Me.ACTIVECheckBox1) + Me.TabPageData.Controls.Add(TAB_TITLELabel) + Me.TabPageData.Controls.Add(Me.TAB_TITLETextBox) + Me.TabPageData.Controls.Add(ADDED_WHOLabel1) + Me.TabPageData.Controls.Add(Me.ADDED_WHOTextBox1) + Me.TabPageData.Controls.Add(ADDED_WHENLabel1) + Me.TabPageData.Controls.Add(Me.ADDED_WHENDateTimePicker) + Me.TabPageData.Controls.Add(CHANGED_WHOLabel1) + Me.TabPageData.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.TabPageData.Controls.Add(CHANGED_WHENLabel1) + Me.TabPageData.Controls.Add(Me.CHANGED_WHENDateTimePicker) + Me.TabPageData.Name = "TabPageData" + Me.TabPageData.Size = New System.Drawing.Size(1046, 535) + Me.TabPageData.Text = "Daten-Suchen" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem1 + Me.BindingNavigator1.BindingSource = Me.TBCW_PROF_DATA_SEARCHBindingSource + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem1 + Me.BindingNavigator1.CountItemFormat = "von {0} Daten-Suchen" + Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem1 + Me.BindingNavigator1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem1, Me.BindingNavigatorDeleteItem1, Me.ToolStripButton3}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1 + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem1 + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem1 + Me.BindingNavigator1.Size = New System.Drawing.Size(1046, 25) + Me.BindingNavigator1.TabIndex = 22 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem1 + ' + Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" + Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" + ' + 'TBCW_PROF_DATA_SEARCHBindingSource + ' + Me.TBCW_PROF_DATA_SEARCHBindingSource.DataMember = "TBCW_PROF_DATA_SEARCH" + Me.TBCW_PROF_DATA_SEARCHBindingSource.DataSource = Me.MyDataset + ' + 'BindingNavigatorCountItem1 + ' + Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(122, 22) + Me.BindingNavigatorCountItem1.Text = "von {0} Daten-Suchen" + Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem1 + ' + Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" + Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem1.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem1 + ' + Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" + Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem1 + ' + Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" + Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator3 + ' + Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" + Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem1 + ' + Me.BindingNavigatorPositionItem1.AccessibleName = "Position" + Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" + Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem1.Text = "0" + Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator4 + ' + Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" + Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem1 + ' + Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" + Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem1 + ' + Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" + Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator5 + ' + Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" + Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Daten speichern" + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) + Me.GUIDTextBox1.Enabled = False + Me.GUIDTextBox1.Location = New System.Drawing.Point(113, 60) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.Size = New System.Drawing.Size(200, 21) + Me.GUIDTextBox1.TabIndex = 1 + ' + 'PROFILE_IDTextBox + ' + Me.PROFILE_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "PROFILE_ID", True)) + Me.PROFILE_IDTextBox.Enabled = False + Me.PROFILE_IDTextBox.Location = New System.Drawing.Point(113, 87) + Me.PROFILE_IDTextBox.Name = "PROFILE_IDTextBox" + Me.PROFILE_IDTextBox.Size = New System.Drawing.Size(200, 21) + Me.PROFILE_IDTextBox.TabIndex = 3 + ' + 'CONN_IDTextBox + ' + Me.CONN_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True)) + Me.CONN_IDTextBox.Enabled = False + Me.CONN_IDTextBox.Location = New System.Drawing.Point(113, 114) + Me.CONN_IDTextBox.Name = "CONN_IDTextBox" + Me.CONN_IDTextBox.Size = New System.Drawing.Size(200, 21) + Me.CONN_IDTextBox.TabIndex = 5 + ' + 'TextBox1 + ' + Me.TextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.TextBox1.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(319, 329) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.TextBox1.Size = New System.Drawing.Size(724, 203) + Me.TextBox1.TabIndex = 7 + ' + 'SQL_COMMANDTextBox + ' + Me.SQL_COMMANDTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(319, 60) + Me.SQL_COMMANDTextBox.Multiline = True + Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" + Me.SQL_COMMANDTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(724, 237) + Me.SQL_COMMANDTextBox.TabIndex = 7 + ' + 'TAB_INDEXTextBox + ' + Me.TAB_INDEXTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) + Me.TAB_INDEXTextBox.Location = New System.Drawing.Point(113, 141) + Me.TAB_INDEXTextBox.Name = "TAB_INDEXTextBox" + Me.TAB_INDEXTextBox.Size = New System.Drawing.Size(200, 21) + Me.TAB_INDEXTextBox.TabIndex = 9 + ' + 'ACTIVECheckBox1 + ' + Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(18, 36) + Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(200, 24) + Me.ACTIVECheckBox1.TabIndex = 11 + Me.ACTIVECheckBox1.Text = "Suche Aktiv" + Me.ACTIVECheckBox1.UseVisualStyleBackColor = True + ' + 'TAB_TITLETextBox + ' + Me.TAB_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TAB_TITLETextBox.Location = New System.Drawing.Point(113, 168) + Me.TAB_TITLETextBox.Name = "TAB_TITLETextBox" + Me.TAB_TITLETextBox.Size = New System.Drawing.Size(200, 21) + Me.TAB_TITLETextBox.TabIndex = 13 + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Enabled = False + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(113, 195) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(200, 21) + Me.ADDED_WHOTextBox1.TabIndex = 15 + ' + 'ADDED_WHENDateTimePicker + ' + Me.ADDED_WHENDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENDateTimePicker.Enabled = False + Me.ADDED_WHENDateTimePicker.Location = New System.Drawing.Point(113, 222) + Me.ADDED_WHENDateTimePicker.Name = "ADDED_WHENDateTimePicker" + Me.ADDED_WHENDateTimePicker.Size = New System.Drawing.Size(200, 21) + Me.ADDED_WHENDateTimePicker.TabIndex = 17 + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Enabled = False + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(113, 249) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(200, 21) + Me.CHANGED_WHOTextBox1.TabIndex = 19 + ' + 'CHANGED_WHENDateTimePicker + ' + Me.CHANGED_WHENDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENDateTimePicker.Enabled = False + Me.CHANGED_WHENDateTimePicker.Location = New System.Drawing.Point(113, 276) + Me.CHANGED_WHENDateTimePicker.Name = "CHANGED_WHENDateTimePicker" + Me.CHANGED_WHENDateTimePicker.Size = New System.Drawing.Size(200, 21) + Me.CHANGED_WHENDateTimePicker.TabIndex = 21 + ' + 'TabPageDocuments + ' + Me.TabPageDocuments.Controls.Add(Label8) + Me.TabPageDocuments.Controls.Add(Me.BindingNavigator2) + Me.TabPageDocuments.Controls.Add(GUIDLabel2) + Me.TabPageDocuments.Controls.Add(Me.GUIDTextBox2) + Me.TabPageDocuments.Controls.Add(PROFILE_IDLabel1) + Me.TabPageDocuments.Controls.Add(Me.PROFILE_IDTextBox1) + Me.TabPageDocuments.Controls.Add(CONN_IDLabel1) + Me.TabPageDocuments.Controls.Add(Me.CONN_IDTextBox1) + Me.TabPageDocuments.Controls.Add(SQL_COMMANDLabel1) + Me.TabPageDocuments.Controls.Add(Me.TextBox2) + Me.TabPageDocuments.Controls.Add(Me.SQL_COMMANDTextBox1) + Me.TabPageDocuments.Controls.Add(TAB_INDEXLabel1) + Me.TabPageDocuments.Controls.Add(Me.TAB_INDEXTextBox1) + Me.TabPageDocuments.Controls.Add(Me.ACTIVECheckBox2) + Me.TabPageDocuments.Controls.Add(TAB_TITLELabel1) + Me.TabPageDocuments.Controls.Add(Me.TAB_TITLETextBox1) + Me.TabPageDocuments.Controls.Add(ADDED_WHOLabel2) + Me.TabPageDocuments.Controls.Add(Me.ADDED_WHOTextBox2) + Me.TabPageDocuments.Controls.Add(ADDED_WHENLabel2) + Me.TabPageDocuments.Controls.Add(Me.ADDED_WHENDateTimePicker1) + Me.TabPageDocuments.Controls.Add(CHANGED_WHOLabel2) + Me.TabPageDocuments.Controls.Add(Me.CHANGED_WHOTextBox2) + Me.TabPageDocuments.Controls.Add(CHANGED_WHENLabel2) + Me.TabPageDocuments.Controls.Add(Me.CHANGED_WHENDateTimePicker1) + Me.TabPageDocuments.Name = "TabPageDocuments" + Me.TabPageDocuments.Size = New System.Drawing.Size(1046, 535) + Me.TabPageDocuments.Text = "Dokument-Suchen" + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Me.BindingNavigatorAddNewItem2 + Me.BindingNavigator2.BindingSource = Me.TBCW_PROF_DOC_SEARCHBindingSource + Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem2 + Me.BindingNavigator2.CountItemFormat = "von {0} Dokument-Suchen" + Me.BindingNavigator2.DeleteItem = Me.BindingNavigatorDeleteItem2 + Me.BindingNavigator2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem2, Me.BindingNavigatorMovePreviousItem2, Me.BindingNavigatorSeparator6, Me.BindingNavigatorPositionItem2, Me.BindingNavigatorCountItem2, Me.BindingNavigatorSeparator7, Me.BindingNavigatorMoveNextItem2, Me.BindingNavigatorMoveLastItem2, Me.BindingNavigatorSeparator8, Me.BindingNavigatorAddNewItem2, Me.BindingNavigatorDeleteItem2, Me.ToolStripButton2}) + Me.BindingNavigator2.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem2 + Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem2 + Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem2 + Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem2 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem2 + Me.BindingNavigator2.Size = New System.Drawing.Size(1046, 25) + Me.BindingNavigator2.TabIndex = 22 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'BindingNavigatorAddNewItem2 + ' + Me.BindingNavigatorAddNewItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem2.Image = CType(resources.GetObject("BindingNavigatorAddNewItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem2.Name = "BindingNavigatorAddNewItem2" + Me.BindingNavigatorAddNewItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem2.Text = "Neu hinzufügen" + ' + 'TBCW_PROF_DOC_SEARCHBindingSource + ' + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH" + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.MyDataset + ' + 'BindingNavigatorCountItem2 + ' + Me.BindingNavigatorCountItem2.Name = "BindingNavigatorCountItem2" + Me.BindingNavigatorCountItem2.Size = New System.Drawing.Size(147, 22) + Me.BindingNavigatorCountItem2.Text = "von {0} Dokument-Suchen" + Me.BindingNavigatorCountItem2.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem2 + ' + Me.BindingNavigatorDeleteItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem2.Image = CType(resources.GetObject("BindingNavigatorDeleteItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem2.Name = "BindingNavigatorDeleteItem2" + Me.BindingNavigatorDeleteItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem2.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem2 + ' + Me.BindingNavigatorMoveFirstItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem2.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem2.Name = "BindingNavigatorMoveFirstItem2" + Me.BindingNavigatorMoveFirstItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem2.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem2 + ' + Me.BindingNavigatorMovePreviousItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem2.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem2.Name = "BindingNavigatorMovePreviousItem2" + Me.BindingNavigatorMovePreviousItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem2.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator6 + ' + Me.BindingNavigatorSeparator6.Name = "BindingNavigatorSeparator6" + Me.BindingNavigatorSeparator6.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem2 + ' + Me.BindingNavigatorPositionItem2.AccessibleName = "Position" + Me.BindingNavigatorPositionItem2.AutoSize = False + Me.BindingNavigatorPositionItem2.Name = "BindingNavigatorPositionItem2" + Me.BindingNavigatorPositionItem2.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem2.Text = "0" + Me.BindingNavigatorPositionItem2.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator7 + ' + Me.BindingNavigatorSeparator7.Name = "BindingNavigatorSeparator7" + Me.BindingNavigatorSeparator7.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem2 + ' + Me.BindingNavigatorMoveNextItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem2.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem2.Name = "BindingNavigatorMoveNextItem2" + Me.BindingNavigatorMoveNextItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem2.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem2 + ' + Me.BindingNavigatorMoveLastItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem2.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem2.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem2.Name = "BindingNavigatorMoveLastItem2" + Me.BindingNavigatorMoveLastItem2.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem2.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem2.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator8 + ' + Me.BindingNavigatorSeparator8.Name = "BindingNavigatorSeparator8" + Me.BindingNavigatorSeparator8.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Daten speichern" + ' + 'GUIDTextBox2 + ' + Me.GUIDTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True)) + Me.GUIDTextBox2.Location = New System.Drawing.Point(113, 60) + Me.GUIDTextBox2.Name = "GUIDTextBox2" + Me.GUIDTextBox2.Size = New System.Drawing.Size(200, 21) + Me.GUIDTextBox2.TabIndex = 1 + ' + 'PROFILE_IDTextBox1 + ' + Me.PROFILE_IDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "PROFILE_ID", True)) + Me.PROFILE_IDTextBox1.Location = New System.Drawing.Point(113, 87) + Me.PROFILE_IDTextBox1.Name = "PROFILE_IDTextBox1" + Me.PROFILE_IDTextBox1.Size = New System.Drawing.Size(200, 21) + Me.PROFILE_IDTextBox1.TabIndex = 3 + ' + 'CONN_IDTextBox1 + ' + Me.CONN_IDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True)) + Me.CONN_IDTextBox1.Location = New System.Drawing.Point(113, 114) + Me.CONN_IDTextBox1.Name = "CONN_IDTextBox1" + Me.CONN_IDTextBox1.Size = New System.Drawing.Size(200, 21) + Me.CONN_IDTextBox1.TabIndex = 5 + ' + 'TextBox2 + ' + Me.TextBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.TextBox2.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox2.Location = New System.Drawing.Point(319, 329) + Me.TextBox2.Multiline = True + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.TextBox2.Size = New System.Drawing.Size(724, 203) + Me.TextBox2.TabIndex = 7 + ' + 'SQL_COMMANDTextBox1 + ' + Me.SQL_COMMANDTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.SQL_COMMANDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.SQL_COMMANDTextBox1.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_COMMANDTextBox1.Location = New System.Drawing.Point(319, 60) + Me.SQL_COMMANDTextBox1.Multiline = True + Me.SQL_COMMANDTextBox1.Name = "SQL_COMMANDTextBox1" + Me.SQL_COMMANDTextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.SQL_COMMANDTextBox1.Size = New System.Drawing.Size(724, 237) + Me.SQL_COMMANDTextBox1.TabIndex = 7 + ' + 'TAB_INDEXTextBox1 + ' + Me.TAB_INDEXTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) + Me.TAB_INDEXTextBox1.Location = New System.Drawing.Point(113, 141) + Me.TAB_INDEXTextBox1.Name = "TAB_INDEXTextBox1" + Me.TAB_INDEXTextBox1.Size = New System.Drawing.Size(200, 21) + Me.TAB_INDEXTextBox1.TabIndex = 9 + ' + 'ACTIVECheckBox2 + ' + Me.ACTIVECheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox2.Location = New System.Drawing.Point(18, 36) + Me.ACTIVECheckBox2.Name = "ACTIVECheckBox2" + Me.ACTIVECheckBox2.Size = New System.Drawing.Size(200, 24) + Me.ACTIVECheckBox2.TabIndex = 11 + Me.ACTIVECheckBox2.Text = "Suche Aktiv" + Me.ACTIVECheckBox2.UseVisualStyleBackColor = True + ' + 'TAB_TITLETextBox1 + ' + Me.TAB_TITLETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TAB_TITLETextBox1.Location = New System.Drawing.Point(113, 168) + Me.TAB_TITLETextBox1.Name = "TAB_TITLETextBox1" + Me.TAB_TITLETextBox1.Size = New System.Drawing.Size(200, 21) + Me.TAB_TITLETextBox1.TabIndex = 13 + ' + 'ADDED_WHOTextBox2 + ' + Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox2.Enabled = False + Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(113, 195) + Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" + Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(200, 21) + Me.ADDED_WHOTextBox2.TabIndex = 15 + ' + 'ADDED_WHENDateTimePicker1 + ' + Me.ADDED_WHENDateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENDateTimePicker1.Enabled = False + Me.ADDED_WHENDateTimePicker1.Location = New System.Drawing.Point(113, 222) + Me.ADDED_WHENDateTimePicker1.Name = "ADDED_WHENDateTimePicker1" + Me.ADDED_WHENDateTimePicker1.Size = New System.Drawing.Size(200, 21) + Me.ADDED_WHENDateTimePicker1.TabIndex = 17 + ' + 'CHANGED_WHOTextBox2 + ' + Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox2.Enabled = False + Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(113, 249) + Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" + Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(200, 21) + Me.CHANGED_WHOTextBox2.TabIndex = 19 + ' + 'CHANGED_WHENDateTimePicker1 + ' + Me.CHANGED_WHENDateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENDateTimePicker1.Enabled = False + Me.CHANGED_WHENDateTimePicker1.Location = New System.Drawing.Point(113, 276) + Me.CHANGED_WHENDateTimePicker1.Name = "CHANGED_WHENDateTimePicker1" + Me.CHANGED_WHENDateTimePicker1.Size = New System.Drawing.Size(200, 21) + Me.CHANGED_WHENDateTimePicker1.TabIndex = 21 ' 'TabPageBasicSettings ' Me.TabPageBasicSettings.Controls.Add(Me.GroupBox5) Me.TabPageBasicSettings.Name = "TabPageBasicSettings" - Me.TabPageBasicSettings.Size = New System.Drawing.Size(1277, 622) + Me.TabPageBasicSettings.Size = New System.Drawing.Size(1291, 588) Me.TabPageBasicSettings.Text = "Grundeinstellungen" ' - 'PROFILE_TYPELabel + 'TBCW_PROF_DATA_SEARCHTableAdapter ' - PROFILE_TYPELabel.AutoSize = True - PROFILE_TYPELabel.Location = New System.Drawing.Point(14, 212) - PROFILE_TYPELabel.Name = "PROFILE_TYPELabel" - PROFILE_TYPELabel.Size = New System.Drawing.Size(56, 13) - PROFILE_TYPELabel.TabIndex = 20 - PROFILE_TYPELabel.Text = "Profil Typ:" + Me.TBCW_PROF_DATA_SEARCHTableAdapter.ClearBeforeFill = True ' - 'PROFILE_TYPEComboBox + 'TBCW_PROF_DOC_SEARCHTableAdapter ' - Me.PROFILE_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) - Me.PROFILE_TYPEComboBox.FormattingEnabled = True - Me.PROFILE_TYPEComboBox.Location = New System.Drawing.Point(17, 228) - Me.PROFILE_TYPEComboBox.Name = "PROFILE_TYPEComboBox" - Me.PROFILE_TYPEComboBox.Size = New System.Drawing.Size(295, 21) - Me.PROFILE_TYPEComboBox.TabIndex = 21 + Me.TBCW_PROF_DOC_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'VWCW_GROUP_PROFILETableAdapter + ' + Me.VWCW_GROUP_PROFILETableAdapter.ClearBeforeFill = True ' 'frmAdministration ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1283, 672) + Me.ClientSize = New System.Drawing.Size(1297, 638) Me.Controls.Add(Me.XtraTabControl2) Me.Controls.Add(Me.StatusStrip1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1166,7 +2209,7 @@ Partial Class frmAdministration Me.Text = "Administration" CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBCW_PROFILESBindingNavigator.ResumeLayout(False) @@ -1185,21 +2228,44 @@ Partial Class frmAdministration Me.XtraTabControl3.ResumeLayout(False) Me.TabPageGeneralSettings.ResumeLayout(False) Me.TabPageGeneralSettings.PerformLayout() + CType(Me.TBWH_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageProcessAssignment.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() Me.TabPageUserAssignment.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewProfileUser, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlUserInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUserInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlUserNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUserNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPageGroupAssignment.ResumeLayout(False) + Me.SplitContainer2.Panel1.ResumeLayout(False) + Me.SplitContainer2.Panel2.ResumeLayout(False) + CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer2.ResumeLayout(False) + CType(Me.GridControlGroupInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWCW_GROUP_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewGroupInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlGroupNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewGroupNotInProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPageData.ResumeLayout(False) + Me.TabPageData.PerformLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPageDocuments.ResumeLayout(False) + Me.TabPageDocuments.PerformLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageBasicSettings.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -1231,7 +2297,7 @@ Partial Class frmAdministration Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridControlProfiles As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn @@ -1269,7 +2335,6 @@ Partial Class frmAdministration Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents btndeleteProcessProfileLink As Button Friend WithEvents btnLinkProcessPRofile As Button - Friend WithEvents GroupBox3 As GroupBox Friend WithEvents lblprocessCheckActive As Label Friend WithEvents btnStartStopProcess As Button Friend WithEvents txtProcessName As TextBox @@ -1278,22 +2343,96 @@ Partial Class frmAdministration Friend WithEvents Label3 As Label Friend WithEvents TabPageUserAssignment As DevExpress.XtraTab.XtraTabPage Friend WithEvents SplitContainer1 As SplitContainer - Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewProfileUser As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlUserInProfile As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUserInProfile As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPRENAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents Label1 As Label - Friend WithEvents GridControlUsers2Menue As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewlUsers2Menue As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlUserNotInProfile As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUserNotInProfile As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents Label2 As Label - Friend WithEvents btnAddUser2Profile As Button - Friend WithEvents btndeleteUserConstructorRel As Button + Friend WithEvents btnAddUserToProfile As Button + Friend WithEvents btnRemoveUserFromProfile As Button Friend WithEvents PROFILE_TYPEComboBox As ComboBox + Friend WithEvents TabPageData As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TBCW_PROF_DATA_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DATA_SEARCHTableAdapter As MyDatasetTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter + Friend WithEvents BindingNavigator1 As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem1 As ToolStripButton + Friend WithEvents BindingNavigatorCountItem1 As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem1 As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem1 As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem1 As ToolStripButton + Friend WithEvents BindingNavigatorSeparator3 As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem1 As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator4 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem1 As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem1 As ToolStripButton + Friend WithEvents BindingNavigatorSeparator5 As ToolStripSeparator + Friend WithEvents GUIDTextBox1 As TextBox + Friend WithEvents PROFILE_IDTextBox As TextBox + Friend WithEvents CONN_IDTextBox As TextBox + Friend WithEvents SQL_COMMANDTextBox As TextBox + Friend WithEvents TAB_INDEXTextBox As TextBox + Friend WithEvents ACTIVECheckBox1 As CheckBox + Friend WithEvents TAB_TITLETextBox As TextBox + Friend WithEvents ADDED_WHOTextBox1 As TextBox + Friend WithEvents ADDED_WHENDateTimePicker As DateTimePicker + Friend WithEvents CHANGED_WHOTextBox1 As TextBox + Friend WithEvents CHANGED_WHENDateTimePicker As DateTimePicker + Friend WithEvents ToolStripButton3 As ToolStripButton + Friend WithEvents TabPageDocuments As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DOC_SEARCHTableAdapter As MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter + Friend WithEvents GUIDTextBox2 As TextBox + Friend WithEvents PROFILE_IDTextBox1 As TextBox + Friend WithEvents CONN_IDTextBox1 As TextBox + Friend WithEvents SQL_COMMANDTextBox1 As TextBox + Friend WithEvents TAB_INDEXTextBox1 As TextBox + Friend WithEvents ACTIVECheckBox2 As CheckBox + Friend WithEvents TAB_TITLETextBox1 As TextBox + Friend WithEvents ADDED_WHOTextBox2 As TextBox + Friend WithEvents ADDED_WHENDateTimePicker1 As DateTimePicker + Friend WithEvents CHANGED_WHOTextBox2 As TextBox + Friend WithEvents CHANGED_WHENDateTimePicker1 As DateTimePicker + Friend WithEvents BindingNavigator2 As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem2 As ToolStripButton + Friend WithEvents BindingNavigatorCountItem2 As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem2 As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem2 As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem2 As ToolStripButton + Friend WithEvents BindingNavigatorSeparator6 As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem2 As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator7 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem2 As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem2 As ToolStripButton + Friend WithEvents BindingNavigatorSeparator8 As ToolStripSeparator + Friend WithEvents ToolStripButton2 As ToolStripButton + Friend WithEvents TextBox1 As TextBox + Friend WithEvents TextBox2 As TextBox + Friend WithEvents TabPageGroupAssignment As DevExpress.XtraTab.XtraTabPage + Friend WithEvents btnRemoveGroupFromProfile As Button + Friend WithEvents btnAddGroupToProfile As Button + Friend WithEvents SplitContainer2 As SplitContainer + Friend WithEvents GridControlGroupInProfile As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewGroupInProfile As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents Label9 As Label + Friend WithEvents GridControlGroupNotInProfile As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewGroupNotInProfile As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents Label10 As Label + Friend WithEvents TBWH_GROUPBindingSource As BindingSource + Friend WithEvents VWCW_GROUP_PROFILEBindingSource As BindingSource + Friend WithEvents VWCW_GROUP_PROFILETableAdapter As MyDatasetTableAdapters.VWCW_GROUP_PROFILETableAdapter + Friend WithEvents colGUID3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNAME2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNAME3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents TBWH_PROFILE_TYPEBindingSource As BindingSource End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index 211d021..29b9c59 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -144,20 +144,83 @@ False - - 127, 17 + + False - - 127, 17 + + False - - 17, 17 + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 355, 17 - 17, 17 + 245, 17 - 738, 17 + 962, 17 @@ -232,43 +295,43 @@ - 736, 56 + 345, 56 - 180, 56 + 17, 17 - 349, 17 + 575, 17 - 565, 17 + 789, 17 - 976, 17 + 1198, 17 - 17, 56 + 1315, 17 - 408, 56 + 17, 56 - 631, 56 + 240, 56 - 930, 56 + 539, 56 - 17, 95 + 808, 56 - 280, 95 + 1071, 56 - 443, 95 + 1234, 56 - - False + + 751, 134 @@ -303,8 +366,177 @@ D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== + + 227, 134 + + + 17, 134 + + + 579, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 17, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 1284, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + 733, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 301, 95 + + + 1011, 95 + + + 492, 134 + - 139 + 265 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index e524423..cfa345b 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -25,6 +25,23 @@ Public Class frmAdministration MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub + + Sub Load_ProfileTypes() + Dim oTypeNames As New Dictionary(Of Integer, String) From { + {0, "Dokumente und Daten"}, + {1, "Nur Dokumente"}, + {2, "Nur Daten"} + } + + For Each oTypeName As KeyValuePair(Of Integer, String) In oTypeNames + Dim oRow = MyDataset.TBWH_PROFILE_TYPE.NewTBWH_PROFILE_TYPERow() + oRow.TYPE_ID = oTypeName.Key + oRow.TYPE_NAME = oTypeName.Value + MyDataset.TBWH_PROFILE_TYPE.Rows.Add(oRow) + Next + End Sub + + Sub Save_Profile() Try Me.TBCW_PROFILESBindingSource.EndEdit() @@ -42,12 +59,7 @@ Public Class frmAdministration End Sub Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load Load_Profiles() - - PROFILE_TYPEComboBox.DataSource = New List(Of ProfileType) From { - New ProfileType() With {.Id = 0, .Name = "Daten und Dokumente"}, - New ProfileType() With {.Id = 1, .Name = "Nur Dokumente"}, - New ProfileType() With {.Id = 2, .Name = "Nur Daten"} - } + Load_ProfileTypes() lbllicenseCount.Text = LICENSE_COUNT If LICENSE_DATE.ToString.Contains("2099") Then @@ -64,6 +76,7 @@ Public Class frmAdministration Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBCW_PROFILES.PROFILE_TYPEColumn.DefaultValue = 0 End Sub Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click @@ -79,28 +92,33 @@ Public Class frmAdministration Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged If GUIDTextBox.Text <> "" Then - Refresh_Profile_user() + Refresh_ProfileData() Refresh_Free_Users(GUIDTextBox.Text) + Refresh_Free_Groups(GUIDTextBox.Text) + Load_Profile_Process() + TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text) + + TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text) End If End Sub - Sub Refresh_Profile_user() + Sub Refresh_ProfileData() Try - Try - Dim ID = CInt(GUIDTextBox.Text) - Catch ex As Exception - Exit Sub - End Try - Me.VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.VWUSER_PROFILETableAdapter.Fill(Me.MyDataset.VWUSER_PROFILE, GUIDTextBox.Text) + VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, GUIDTextBox.Text) + + VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, GUIDTextBox.Text) Catch ex As Exception MsgBox("Unexpected Error in Refresh Profile User: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs) Handles btnAddUser2Profile.Click + Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs) Handles btnAddUserToProfile.Click Try Try Dim i As Integer = CInt(GUIDTextBox.Text) @@ -120,7 +138,7 @@ Public Class frmAdministration Next If GUIDTextBox.Text <> "" Then Refresh_Free_Users(GUIDTextBox.Text) - Refresh_Profile_user() + Refresh_ProfileData() End If Catch ex As Exception @@ -158,9 +176,28 @@ Public Class frmAdministration End Sub - Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click + Sub Refresh_Free_Groups(PROFILE_ID As Integer) + Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID) + Dim oDataTable = clsDatabase.Return_Datatable(Sql) + Try - Dim ID = GridViewProfileUser.GetFocusedRowCellValue(GridViewProfileUser.Columns("GUID")) + MyDataset.TBWH_GROUP.Clear() + + For Each row As DataRow In oDataTable.Rows + Dim oNewRow As MyDataset.TBWH_GROUPRow + oNewRow = MyDataset.TBWH_GROUP.NewTBWH_GROUPRow + oNewRow.NAME = row.Item("NAME") + oNewRow.ID = row.Item("GUID") + MyDataset.TBWH_GROUP.Rows.Add(oNewRow) + Next + Catch ex As Exception + MsgBox("Unexpected Error in Refresh_Free_Groups: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btnRemoveUserFromProfile.Click + Try + Dim ID = GridViewUserInProfile.GetFocusedRowCellValue(GridViewUserInProfile.Columns("GUID")) Try Dim I As Integer = CInt(ID) Catch ex As Exception @@ -168,7 +205,7 @@ Public Class frmAdministration End Try Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID) If clsDatabase.Execute_non_Query(del) = True Then - Refresh_Profile_user() + Refresh_ProfileData() If GUIDTextBox.Text <> "" Then Refresh_Free_Users(GUIDTextBox.Text) End If @@ -179,10 +216,6 @@ Public Class frmAdministration End Try End Sub - Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs) - - End Sub - Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick clsWINDOWSApi.Get_ForegroundWindow_Info() If PID <> CurrPROC_PID And CurrPROC_Name <> "DD_Clipboard_Watcher" Then @@ -268,6 +301,7 @@ Public Class frmAdministration Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown If GUIDTextBox.Text = "" Then Refresh_Free_Users(0) + Refresh_Free_Groups(0) End If End Sub @@ -286,12 +320,91 @@ Public Class frmAdministration Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click Load_Profiles() - Refresh_Profile_user() + Refresh_ProfileData() Try Dim ID = CInt(GUIDTextBox.Text) Catch ex As Exception Exit Sub End Try Refresh_Free_Users(GUIDTextBox.Text) + Refresh_Free_Groups(GUIDTextBox.Text) + End Sub + + Private Sub TBCW_PROF_DATA_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DATA_SEARCHBindingSource.AddingNew + MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text + MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1 + End Sub + + Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click + Try + TBCW_PROF_DATA_SEARCHBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then + CHANGED_WHOTextBox1.Text = Environment.UserName + TBCW_PROF_DATA_SEARCHBindingSource.EndEdit() + TBCW_PROF_DATA_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DATA_SEARCH) + End If + Catch ex As Exception + MsgBox("Unexpected Error in Save Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + Try + TBCW_PROF_DOC_SEARCHBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROF_DOC_SEARCH.GetChanges) Then + CHANGED_WHOTextBox2.Text = Environment.UserName + TBCW_PROF_DOC_SEARCHBindingSource.EndEdit() + TBCW_PROF_DOC_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DOC_SEARCH) + End If + Catch ex As Exception + MsgBox("Unexpected Error in Save Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnAddGroupToProfile_Click(sender As Object, e As EventArgs) Handles btnAddGroupToProfile.Click + Try + Dim oSelectedGroups = GridViewGroupNotInProfile.GetSelectedRows() + + For Each oRowHandle In oSelectedGroups + Dim oRow As MyDataset.TBWH_GROUPRow = DirectCast(GridViewGroupNotInProfile.GetRow(oRowHandle), DataRowView).Row + Dim oGroupId As Integer = oRow.ID + Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({GUIDTextBox.Text},{oGroupId})" + + If clsDatabase.Execute_non_Query(oSQL) = False Then + MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation) + End If + Next + + GridViewGroupNotInProfile.ClearSelection() + + Refresh_Free_Groups(GUIDTextBox.Text) + Refresh_ProfileData() + Catch ex As Exception + MsgBox("Unexpected Error while adding Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnRemoveGroupFromProfile_Click(sender As Object, e As EventArgs) Handles btnRemoveGroupFromProfile.Click + Try + Dim oSelectedGroups = GridViewGroupInProfile.GetSelectedRows() + + For Each oRowHandle In oSelectedGroups + Dim oRow As MyDataset.VWCW_GROUP_PROFILERow = DirectCast(GridViewGroupInProfile.GetRow(oRowHandle), DataRowView).Row + Dim oGroupId As Integer = oRow.GUID + Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE GUID = ({oGroupId})" + + If clsDatabase.Execute_non_Query(oSQL) = False Then + MsgBox("Could not delete the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation) + End If + Next + + GridViewGroupInProfile.ClearSelection() + + Refresh_Free_Groups(GUIDTextBox.Text) + Refresh_ProfileData() + Catch ex As Exception + MsgBox("Unexpected Error in deleting Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try End Sub End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb index 4d12c93..bce9039 100644 --- a/app/DD_Clipboard_Searcher/frmConfig_Basic.vb +++ b/app/DD_Clipboard_Searcher/frmConfig_Basic.vb @@ -220,7 +220,7 @@ Public Class frmConfig_Basic Dim kc As New KeysConverter Dim obj As Object = kc.ConvertFromString(txtHotkeySearchKey.Text.ToUpper) keyCode = CType(obj, Keys) - If cmbfunctionHit.Text = "strg" Then + If cmbfunctionHit.Text = ClassConstants.HOTKEY_CTRL Then Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) ElseIf cmbfunctionHit.Text = "SHIFT" Then Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.vb index 86c20e0..b6206e5 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.vb @@ -4,7 +4,6 @@ Public Class frmProfileMatch Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold) Private SecondaryFont As New Font("Segoe UI", 10) - Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load If Not ConfigManager.Config.MatchWindowLocation.IsEmpty Then Location = ConfigManager.Config.MatchWindowLocation @@ -15,10 +14,11 @@ Public Class frmProfileMatch End If If USER_LANGUAGE = "de-DE" Then - Me.Label1.Text = $"Clipboard Watcher hat mehr als einen Match für Ihre Suche nach ""{CURR_MATCH_RESULT}"" gefunden:" + Label1.Text = $"Clipboard Watcher hat mehr als einen Match für Ihre Suche nach ""{CURR_MATCH_RESULT}"" gefunden:" Else - Me.Label1.Text = $"Clipboard Watcher found more than on match for your search for ""{CURR_MATCH_RESULT}"":" + Label1.Text = $"Clipboard Watcher found more than on match for your search for ""{CURR_MATCH_RESULT}"":" End If + CreateTiles() CurrDocSearch2Load = Nothing End Sub @@ -84,20 +84,16 @@ Public Class frmProfileMatch Dim oText As String = "No implemented" If Profile.CountData = ClassConstants.INVALID_COUNT_SQL Then - 'oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!" oText = "Invalid SQL!" ElseIf Profile.CountData = ClassConstants.NO_COUNT_SQL Then - 'oText = "DocCount (MatchCountConfig has not been configured)" oText = "No SQL!" Else oText = CountText End If If Profile.CountDocs = ClassConstants.INVALID_COUNT_SQL Then - 'oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!" oText = "Invalid SQL!" ElseIf Profile.CountDocs = ClassConstants.NO_COUNT_SQL Then - 'oText = "DocCount (MatchCountConfig has not been configured)" oText = "No SQL!" Else oText = CountText diff --git a/app/DD_Clipboard_Searcher/frmStart.Designer.vb b/app/DD_Clipboard_Searcher/frmStart.Designer.vb index 2df7ba7..35ade95 100644 --- a/app/DD_Clipboard_Searcher/frmStart.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmStart.Designer.vb @@ -115,9 +115,9 @@ Partial Class frmStart Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(12, 44) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(281, 26) + Me.Label1.Size = New System.Drawing.Size(284, 26) Me.Label1.TabIndex = 7 - Me.Label1.Text = "Inaktivieren des Watchers über Rechtsklick Systray oder " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tastaturkombination Str" & + Me.Label1.Text = "Deaktivieren des Watchers über Rechtsklick Systray oder " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tastaturkombination Str" & "g + T" ' 'Label3 @@ -150,7 +150,7 @@ Partial Class frmStart Me.GroupBox1.Size = New System.Drawing.Size(308, 32) Me.GroupBox1.TabIndex = 11 Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Aktueller GlobalHook:" + Me.GroupBox1.Text = "Aktuelle Tastenkombination:" ' 'btnAdminConfig ' @@ -192,7 +192,6 @@ Partial Class frmStart Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.KeyPreview = True Me.MaximizeBox = False - Me.MinimizeBox = False Me.Name = "frmStart" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Clipboard Watcher" diff --git a/app/DD_Clipboard_Searcher/frmStart.vb b/app/DD_Clipboard_Searcher/frmStart.vb index c206a70..7b79695 100644 --- a/app/DD_Clipboard_Searcher/frmStart.vb +++ b/app/DD_Clipboard_Searcher/frmStart.vb @@ -1,4 +1,5 @@ Imports System.Threading +Imports System.IO Imports DD_LIB_Standards Public Class frmStart @@ -26,149 +27,22 @@ Public Class frmStart Dim WindowTitle As String = clsHotkey.GetCaption() Dim oProfileFilter As New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW) + Dim oProfiles = oProfileFilter. - FilterProfilesByProcess(CurrPROC_Name). - FilterProfilesByClipboardRegex(ClipboardContents). - FilterWindowsByWindowTitle(WindowTitle). - FilterProfilesByWindowRegex(ClipboardContents). - ToList() + Profiles. + AsEnumerable() + + oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, CurrPROC_Name) + oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) + oProfiles = oProfileFilter.FilterWindowsByWindowTitle(oProfiles, WindowTitle) + oProfiles = oProfileFilter.FilterProfilesByWindowRegex(oProfiles, ClipboardContents) + oProfiles = oProfileFilter.RemoveDuplicateProfiles() + oProfiles = oProfiles.ToList() CURRENT_MATCHING_PROFILES = oProfiles CURR_MATCH_RESULT = ClipboardContents End Sub - 'Private Sub _Watcher_Changed(ByVal sender As Object, ByVal e As EventArgs) ' Handles _Watcher.Changed - - ' clsHotkey.GetCaption() - - ' If DT_USER_PROFILES Is Nothing Then - ' Exit Sub - ' End If - ' If DT_USER_PROFILES.Rows.Count = 0 Then - ' Exit Sub - ' End If - ' CURR_MATCH_RESULT = Nothing - ' 'CURR_MATCH_WM_SEARCH = Nothing - ' If MONITORING_ACTIVE = False Then - ' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info) - ' Exit Sub - ' End If - - ' Dim Data As IDataObject = Clipboard.GetDataObject - - ' ' Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan") - ' 'With Me.TextBox1 - ' ' .AppendText(String.Concat("Available Formats:", vbNewLine)) - ' ' .AppendText(String.Join(vbNewLine, Data.GetFormats)) - ' ' .AppendText(String.Concat(vbNewLine, vbNewLine, "Text = '", _ - ' ' Clipboard.GetText, "'", vbNewLine, vbNewLine)) - ' 'End With - ' Dim oFound As Boolean = False - ' CLIPBOARD_TEXT = Clipboard.GetText - ' Logger.Debug(String.Format(" >>[{0}] Clipboard-Watcher fired for process '{1}'", Now.ToString, CurrPROC_Name), False) - ' Dim oDTMatchProfiles As DataTable = New DataTable - ' oDTMatchProfiles.Columns.Add("GUID") - ' oDTMatchProfiles.Columns.Add("NAME") - ' oDTMatchProfiles.Columns.Add("COUNT") - ' oDTMatchProfiles.Columns.Add("COMMENT") - - ' For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows - ' Dim oProfileID = oProfileRow.Item("GUID") - ' 'If found = True Then Exit For - ' '#### 1st CHECK: PROCESSNAME EQUAL #### - ' If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then - ' '### 2nd CHECK: MATCH ClipboardValue - ' Dim oRegex_expression = oProfileRow.Item("REGEX_EXPRESSION") - ' Dim oRegex As New System.Text.RegularExpressions.Regex(oRegex_expression) - ' Dim oMatch As System.Text.RegularExpressions.Match = oRegex.Match(CLIPBOARD_TEXT) - ' If oMatch.Success Then - ' ' If match.Groups(0).Value <> CURR_MATCH_RESULT Then - ' CURR_MATCH_RESULT = oMatch.Groups(0).Value - ' If Not IsNothing(CURR_MATCH_RESULT) Then - ' '#### 3rd CHECK: WindowTitle Match - ' Dim oMatchWindow As Boolean = True - ' Dim oCountWindowDefinitions As Integer = 0 - ' For Each oWindowMatchRow As DataRow In DTPROFILE_REL_WINDOW.Rows - ' If oWindowMatchRow.Item("PROFILE_ID") = oProfileID Then - ' oCountWindowDefinitions += 1 - ' oRegex_expression = oWindowMatchRow.Item("REGEX") - ' oRegex = New System.Text.RegularExpressions.Regex(oRegex_expression) - ' oMatch = oRegex.Match(CURR_FOCUSED_WINDOWNAME) - ' oMatchWindow = oMatch.Success - ' If oMatchWindow = True Then - ' Dim oMatchRegexWindowClipboard As Boolean = False - ' Logger.Debug($"Found a match on windowtitle [{CURR_FOCUSED_WINDOWNAME}]") - ' If oWindowMatchRow.Item("REGEX_CLIPBOARD") <> String.Empty Then - ' oRegex_expression = oWindowMatchRow.Item("REGEX_CLIPBOARD") - ' oRegex = New System.Text.RegularExpressions.Regex(oRegex_expression) - ' oMatch = oRegex.Match(CLIPBOARD_TEXT) - ' oMatchRegexWindowClipboard = oMatch.Success - ' If oMatchRegexWindowClipboard = True Then - ' Logger.Debug($"Found a match on oMatchRegexWindowClipboard [{oRegex_expression}]") - ' Exit For - ' End If - ' End If - - ' End If - ' End If - ' Next - ' If oMatchWindow = False Then - ' Logger.Debug($"Found NO MATCH on windowtitle [{CURR_FOCUSED_WINDOWNAME}], but [{oCountWindowDefinitions}] definitions are configured") - ' Exit For - ' End If - - - - - ' ' ================= MOVE TO CTRL + F ================= - - ' 'CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH") - ' Dim oSQL_COUNT As String = oProfileRow.Item("SQL_COUNT_DOCS") - ' Dim oRESULTDocs As Integer - ' If oSQL_COUNT <> String.Empty Then - ' oSQL_COUNT = clsPatterns.ReplaceAllValues(oSQL_COUNT, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID) - ' Try - ' oRESULTDocs = ClassDatabase.Execute_Scalar(oSQL_COUNT, MyConnectionString) - ' Catch ex As Exception - ' oRESULTDocs = 99999 - ' End Try - ' Else - ' oRESULTDocs = 99998 - ' End If - ' If (oRESULTDocs <> 99998 And oRESULTDocs <> 99998 And oRESULTDocs <> 0) Then - ' Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow - ' onewMatchRow("GUID") = oProfileID - ' onewMatchRow("NAME") = oProfileRow.Item("NAME") - ' onewMatchRow("COMMENT") = oProfileRow.Item("COMMENT") - ' onewMatchRow("COUNT") = oRESULTDocs - ' oDTMatchProfiles.Rows.Add(onewMatchRow) - ' oFound = True - ' End If - - ' ' ================= MOVE TO CTRL + F ================= - - - ' End If - ' 'Else - ' ' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", String.Format("Clipboard Watcher fired but Clipboardcontent is equal: '{0}'", CURR_MATCH_RESULT), ToolTipIcon.Info) - ' ' Logger.Debug(String.Format(" >> {0} - Equal Clipboard-result '{1}'", Now.ToString, CURR_MATCH_RESULT), False) - ' ' Exit For - ' 'End If - ' Else - ' 'Logger.Debug(String.Format(" >> {0} - No regex-match for cliboardtext '{1}'", Now.ToString, oMatch.Groups(0).Value), False) - ' End If - ' End If - ' Next - ' If oFound = False Then - ' Logger.Debug(String.Format(" >> {0} - oFound is false - no match on Clipboardvalue '{1}'!", Now.ToString, CURR_MATCH_RESULT), False) - ' CurrDT_PROFILE_MATCH = Nothing - ' Else - ' CurrDT_PROFILE_MATCH = oDTMatchProfiles - - ' End If - - 'End Sub - Public Sub New() Dim splash As New frmSplash() splash.ShowDialog() @@ -209,32 +83,26 @@ Public Class frmStart End Try Try Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TOGGLE_WATCHER) - Catch ex As Exception - - End Try - Try Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TRIGGER_WATCHER) Catch ex As Exception - + Logger.Error(ex) + Logger.Warn("Hotkeys could not be removed") End Try 'TempDateien löschen - Try - For Each _file In TEMP_FILES - System.IO.File.Delete(_file) - Next - Catch ex As Exception - - End Try - If clsLogger.LOGG_MSG <> String.Empty Then - Logger.Info(clsLogger.LOGG_MSG, False) - End If + For Each oFile In TEMP_FILES + Try + File.Delete(oFile) + Catch ex As Exception + Logger.Warn("Temp file {0} could not be deleted", oFile) + Logger.Error(ex) + End Try + Next End Sub Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load ClassWindowLocation.LoadFormLocationSize(Me) If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then - frmConfig_Basic.ShowDialog() End If @@ -247,22 +115,23 @@ Public Class frmStart End If Exit Sub End If - Me.NotifyIconMain.Visible = True + NotifyIconMain.Visible = True clsHotkey.Refresh_Profile_Links() Hotkey.AddHotKey(Keys.T, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TOGGLE_WATCHER) - Dim keyCode As Keys - Dim kc As New KeysConverter - Dim obj As Object = kc.ConvertFromString(HotkeySearchKey.ToUpper) - keyCode = CType(obj, Keys) - If HotkeyFunctionKey = "strg" Then - Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) + Dim oKeyCode As Keys + Dim oConverter As New KeysConverter + Dim oObject As Object = oConverter.ConvertFromString(HotkeySearchKey.ToUpper) + oKeyCode = CType(oObject, Keys) + + If HotkeyFunctionKey = ClassConstants.HOTKEY_CTRL Then + Hotkey.AddHotKey(oKeyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER) ElseIf HotkeyFunctionKey = "SHIFT" Then - Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) + Hotkey.AddHotKey(oKeyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER) End If End If tslblUser.Text = USER_USERNAME - lbHKFunction.Text = HotkeyFunctionKey & " + " & HotkeySearchKey.ToUpper + lbHKFunction.Text = HotkeyFunctionKey.ToUpper & " + " & HotkeySearchKey.ToUpper End Sub Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed If HotKeyID = ClassConstants.HOTKEY_TRIGGER_WATCHER Then @@ -276,6 +145,8 @@ Public Class frmStart End Sub Sub CHECK_PROFILE_MATCH() Dim oProfiles = CURRENT_MATCHING_PROFILES + Dim oInvalidDocumentSQL = False + Dim oInvalidDataSQL = False For Each oProfile In oProfiles Dim oDocumentSQL = oProfile.SQLCountDocs @@ -283,62 +154,67 @@ Public Class frmStart Dim oResultDocs As Integer = 0 Dim oResultData As Integer = 0 - If oDataSQL = String.Empty Then - oProfile.SQLCountData = ClassConstants.NO_COUNT_SQL - End If + Dim oDataSearches As DataTable = clsDatabase.Return_Datatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE PROFILE_ID = {oProfile.Guid}") + Dim oDocSearches As DataTable = clsDatabase.Return_Datatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE PROFILE_ID = {oProfile.Guid}") - If oDocumentSQL = String.Empty Then - oProfile.SQLCountDocs = ClassConstants.NO_COUNT_SQL - End If + For Each oRow As DataRow In oDataSearches.Rows + Try + Dim oCountCommand = oRow.Item("COUNT_COMMAND") - Try - oDataSQL = clsPatterns.ReplaceAllValues(oDataSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid) - oResultData = ClassDatabase.Execute_Scalar(oDataSQL, MyConnectionString) - Catch ex As Exception - Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oDataSQL) - oResultData = ClassConstants.INVALID_COUNT_SQL - End Try + If oCountCommand = String.Empty Then + Continue For + End If - Try - oDocumentSQL = clsPatterns.ReplaceAllValues(oDocumentSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid) - oResultDocs = ClassDatabase.Execute_Scalar(oDocumentSQL, MyConnectionString) - Catch ex As Exception - Logger.Warn("Invalid SQL Query for Counting Documents in Profile {0}: {1}", oProfile.Guid, oDocumentSQL) - oResultDocs = ClassConstants.INVALID_COUNT_SQL - End Try + oDataSQL = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid) + oResultData += ClassDatabase.Execute_Scalar(oDataSQL, MyConnectionString) + Catch ex As Exception + Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oDataSQL) + oInvalidDataSQL = True + End Try + Next + + For Each oRow As DataRow In oDocSearches.Rows + Try + Dim oCountCommand = oRow.Item("COUNT_COMMAND") + + If oCountCommand = String.Empty Then + Continue For + End If + + oDataSQL = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid) + oResultDocs += ClassDatabase.Execute_Scalar(oDataSQL, MyConnectionString) + Catch ex As Exception + oInvalidDocumentSQL = True + Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oDataSQL) + End Try + Next oProfile.CountData = oResultData oProfile.CountDocs = oResultDocs Next - 'If oProfiles.Count = 1 Then - ' If oProfiles.First().CountDocs = ClassConstants.INVALID_COUNT_SQL Then - ' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your Data SQL in Profiles!", ToolTipIcon.Info) - ' Exit Sub - ' End If - - ' If oProfiles.First().CountDocs = ClassConstants.NO_COUNT_SQL Then - ' NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but Data SQL is not configured!", ToolTipIcon.Info) - ' Exit Sub - ' End If - - ' If oProfiles.First().CountData = ClassConstants.INVALID_COUNT_SQL Then - ' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your Document SQL in Profiles!", ToolTipIcon.Info) - ' Exit Sub - ' End If - - ' If oProfiles.First().CountData = ClassConstants.NO_COUNT_SQL Then - ' NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but Document SQL is not configured!", ToolTipIcon.Info) - ' Exit Sub - ' End If - - ' CurrDocSearch2Load = oProfiles.First().Guid - ' frmResultDoc.Show() - 'Else - ' frmProfileMatch.ShowDialog() - 'End If - - frmProfileMatch.ShowDialog() + If oInvalidDocumentSQL Or oInvalidDataSQL Then + MsgBox("Ein oder mehrere Abfragen konnten nicht ausgeführt werden. Bitte überprüfen Sie das Log.", MsgBoxStyle.Exclamation, "Warnung") + End If + + If oProfiles.Count = 1 Then + Dim oCountData = oProfiles.First().CountData + Dim oCountDocs = oProfiles.First().CountDocs = 0 + + If oCountData = 0 Then + CurrDocSearch2Load = oProfiles.First().Guid + frmResultDoc.Show() + ElseIf oCountDocs = 0 Then + CurrDocSearch2Load = oProfiles.First().Guid + frmResultDoc.Show() + ElseIf oCountDocs = 0 And oCountData = 0 Then + MsgBox("Es wurden keine Ergebnisse gefunden!") + Else + frmProfileMatch.ShowDialog() + End If + Else + frmProfileMatch.ShowDialog() + End If End Sub Sub Change_Monitoring_State() If MONITORING_ACTIVE = True Then @@ -352,15 +228,15 @@ Public Class frmStart Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then If DT_USER_PROFILES.Rows.Count >= 1 Then - Me.Hide() + Hide() End If Else If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then - MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "") + MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License") Else If Not USER_IS_ADMIN Then - MsgBox("Application will close now!", MsgBoxStyle.Critical, "") - Me.Close() + MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License") + Close() End If End If diff --git a/app/DD_Clipboard_Searcher/modCurrent.vb b/app/DD_Clipboard_Searcher/modCurrent.vb index bc44665..b68556e 100644 --- a/app/DD_Clipboard_Searcher/modCurrent.vb +++ b/app/DD_Clipboard_Searcher/modCurrent.vb @@ -8,7 +8,7 @@ Module modCurrent Public ConfigManager As ConfigManager(Of ClassConfig) Public MyConnectionString As String = "" - Public HotkeyFunctionKey As String = "strg" + Public HotkeyFunctionKey As String = ClassConstants.HOTKEY_CTRL Public HotkeySearchKey As String = "f" Public LogErrorsOnly As Boolean = True @@ -47,7 +47,7 @@ Module modCurrent Public DT_USER_PROFILES As DataTable Public CLIPBOARD_TEXT As String - Public CURRENT_MATCHING_PROFILES As List(Of ClassProfileFilter.ProfileData) + Public CURRENT_MATCHING_PROFILES As New List(Of ClassProfileFilter.ProfileData) Public CURR_MATCH_RESULT 'Public CURR_MATCH_WM_SEARCH diff --git a/app/DD_Clipboard_Searcher/modMySettings.vb b/app/DD_Clipboard_Searcher/modMySettings.vb deleted file mode 100644 index bb0855c..0000000 --- a/app/DD_Clipboard_Searcher/modMySettings.vb +++ /dev/null @@ -1,142 +0,0 @@ -Imports System.IO -Imports DD_LIB_Standards -Module modMySettings - Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml") - - Public Function LoadMyConfig() - Dim rowresult As String = "" - Try - Dim DT As DataTable - 'if file doesn't exist, create the file with its default xml table - If Not File.Exists(ConfigPath) Then - DT = CreateConfigTable() - DT.WriteXml(ConfigPath) - End If - DT = GetTablefromXML() - For Each Row As DataRow In DT.Rows - rowresult &= Row.Item("ConfigName") - Select Case Row.Item("ConfigName") - Case "MyConnectionString" - Dim connstring As String - 'Den ConnectonString mit verschlüsseltem PW laden - Dim csb As New SqlClient.SqlConnectionStringBuilder - csb.ConnectionString = Row.Item("Value") - If csb.ConnectionString.Contains("Password=") Then - 'SA-Auth - 'Jetzt das Passwort entschlüsseln - Dim PWplainText As String - Dim wrapper As New clsEncryption("!35452didalog=") - ' DecryptData throws if the wrong password is used. - Try - PWplainText = wrapper.DecryptData(csb.Password) - Catch ex As Exception - Logger.Info("- the Password '" & csb.Password & "' could not be decrypted", False) - PWplainText = csb.Password - End Try - connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText) - Else - 'Win-Auth - connstring = Row.Item("Value").ToString - End If - MyConnectionString = connstring - Case "LogErrorsOnly" - LogErrorsOnly = CBool(Row.Item("Value")) - Case "HotkeyFunctionKey" - HotkeyFunctionKey = Row.Item("Value") - Case "HotkeySearchKey" - HotkeySearchKey = Row.Item("Value") - End Select - Next - If rowresult.Contains("HotkeyFunctionKey") = False Then - Dim newRow As DataRow = DT.NewRow() - newRow("ConfigName") = "HotkeyFunctionKey" - newRow("Value") = "strg" - DT.Rows.Add(newRow) - DT.WriteXml(ConfigPath) - - End If - If rowresult.Contains("HotkeySearchKey") = False Then - Dim newRow As DataRow = DT.NewRow() - newRow("ConfigName") = "HotkeySearchKey" - newRow("Value") = "f" - DT.Rows.Add(newRow) - DT.WriteXml(ConfigPath) - End If - Return True - Catch ex As Exception - MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return False - End Try - End Function - Private Function GetTablefromXML() - Try - Dim DS As New DataSet - DS.ReadXml(ConfigPath) - Return DS.Tables(0) - Catch ex As Exception - MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return Nothing - End Try - - End Function - Private Function CreateConfigTable() As DataTable - Try - ' Create sample Customers table, in order - ' to demonstrate the behavior of the DataTableReader. - Dim table As New DataTable - table.TableName = "MyConfig" - - ' Create two columns, ID and Name. - Dim idColumn As DataColumn = table.Columns.Add("ID", _ - GetType(System.Int32)) - - idColumn.AutoIncrement = True - idColumn.AutoIncrementSeed = 0 - idColumn.AutoIncrementStep = 1 - table.Columns.Add("ConfigName", GetType(System.String)) - table.Columns.Add("Value", GetType(System.String)) - 'Set the ID column as the primary key column. - table.PrimaryKey = New DataColumn() {idColumn} - Dim newRow As DataRow = table.NewRow() - newRow("ConfigName") = "MyConnectionString" - newRow("Value") = "" - table.Rows.Add(newRow) - Dim newRow1 As DataRow = table.NewRow() - newRow1("ConfigName") = "LogErrorsOnly" - newRow1("Value") = "True" - table.Rows.Add(newRow1) - Dim newRow2 As DataRow = table.NewRow() - newRow2("ConfigName") = "HotkeyFunctionKey" - newRow2("Value") = "strg" - table.Rows.Add(newRow2) - Dim newRow3 As DataRow = table.NewRow() - newRow3("ConfigName") = "HotkeySearchKey" - newRow3("Value") = "f" - table.Rows.Add(newRow3) - table.AcceptChanges() - Return table - Catch ex As Exception - MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return Nothing - End Try - End Function - Public Function SaveConfigValue(name As String, value As String) - Try - Dim DT As DataTable - DT = GetTablefromXML() - - For Each Row As DataRow In DT.Rows - If Row.Item("ConfigName") = name Then - Row.Item("Value") = value - End If - Next - DT.AcceptChanges() - DT.WriteXml(ConfigPath) - Catch ex As Exception - MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return False - End Try - Return True - - End Function -End Module