From 257ed6524679f800421ed1f53a5fbb5629031a26 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 25 Jul 2019 16:18:41 +0200 Subject: [PATCH] many bvuttons --- .../DD_Clipboard_Watcher.vbproj | 11 + .../My Project/Resources.Designer.vb | 20 + .../My Project/Resources.resx | 28 +- .../MyDataset.Designer.vb | 1493 ++++++++++++++--- app/DD_Clipboard_Searcher/MyDataset.xsd | 160 ++ app/DD_Clipboard_Searcher/MyDataset.xss | 53 +- app/DD_Clipboard_Searcher/Resources/add.png | Bin 0 -> 733 bytes .../Resources/application_go.png | Bin 0 -> 634 bytes .../frmAdministration.Designer.vb | 592 +++++-- .../frmAdministration.resx | 128 +- .../frmAdministration.vb | 130 +- .../frmProcessCapture.Designer.vb | 165 ++ .../frmProcessCapture.resx | 297 ++++ .../frmProcessCapture.vb | 21 + 14 files changed, 2606 insertions(+), 492 deletions(-) create mode 100644 app/DD_Clipboard_Searcher/Resources/add.png create mode 100644 app/DD_Clipboard_Searcher/Resources/application_go.png create mode 100644 app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb create mode 100644 app/DD_Clipboard_Searcher/frmProcessCapture.resx create mode 100644 app/DD_Clipboard_Searcher/frmProcessCapture.vb diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index d33107c..8f65068 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -172,6 +172,12 @@ Form + + frmProcessCapture.vb + + + Form + frmResultSQL.vb @@ -267,6 +273,9 @@ frmPrint.vb + + frmProcessCapture.vb + frmResultSQL.vb @@ -341,6 +350,8 @@ + + diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb index a92ea7c..0dfefc3 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb @@ -70,6 +70,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -80,6 +90,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property application_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("application_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.resx b/app/DD_Clipboard_Searcher/My Project/Resources.resx index efc2bb8..78a547d 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.resx +++ b/app/DD_Clipboard_Searcher/My Project/Resources.resx @@ -130,8 +130,8 @@ ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -151,15 +151,12 @@ ..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -202,6 +199,12 @@ ..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\PreviewTab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\mp4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -226,8 +229,8 @@ ..\Resources\mp3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\build_Selection_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -235,10 +238,13 @@ ..\Resources\xlsx.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\PreviewTab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\application_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index 1ec8da8..6d5f1ce 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -41,6 +41,8 @@ Partial Public Class MyDataset Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable + Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable + Private tableTBWH_User As TBWH_UserDataTable Private tableTBWH_GROUP As TBWH_GROUPDataTable @@ -51,6 +53,8 @@ Partial Public Class MyDataset Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation + Private relationFK_TBCW_PROF_REL_CONTROL_PROF_ID As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property TBCW_PROF_REL_WINDOW() As TBCW_PROF_REL_WINDOWDataTable + Get + Return Me.tableTBCW_PROF_REL_WINDOW + End Get + End Property + _ + Private Function ShouldSerializeTBCW_PROF_REL_WINDOW() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_User() As Boolean @@ -626,6 +663,9 @@ Partial Public Class MyDataset _ Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent) + _ + Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent) + _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) @@ -3484,26 +3524,36 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBWH_UserDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) + Partial Public Class TBCW_PROF_REL_WINDOWDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_WINDOWRow) - 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 columnPROCESS_NAME As Global.System.Data.DataColumn - Private columnSurname As Global.System.Data.DataColumn + Private columnDESCRIPTION As Global.System.Data.DataColumn - Private columnEmail As Global.System.Data.DataColumn + Private columnREGEX As Global.System.Data.DataColumn - Private columnID As Global.System.Data.DataColumn + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnREGEX_CLIPBOARD As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBWH_User" + Me.TableName = "TBCW_PROF_REL_WINDOW" Me.BeginInit Me.InitClass Me.EndInit @@ -3536,49 +3586,89 @@ 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 PROCESS_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnPrename + Return Me.columnPROCESS_NAME End Get End Property _ - Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnSurname + Return Me.columnDESCRIPTION End Get End Property _ - Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnEmail + Return Me.columnREGEX End Get End Property _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get - Return Me.columnID + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property REGEX_CLIPBOARDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_CLIPBOARD + 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 @@ -3593,44 +3683,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_REL_WINDOWRow Get - Return CType(Me.Rows(index),TBWH_UserRow) + Return CType(Me.Rows(index),TBCW_PROF_REL_WINDOWRow) End Get End Property _ - Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_REL_WINDOWRowChanging As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ - Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_REL_WINDOWRowChanged As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ - Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_REL_WINDOWRowDeleting As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ - Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler + Public Event TBCW_PROF_REL_WINDOWRowDeleted As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ - Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) + Public Overloads Sub AddTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) 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_REL_WINDOWRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_REL_CONTROL_PROF_ID As TBCW_PROFILESRow, ByVal PROCESS_NAME As String, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal REGEX_CLIPBOARD As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROF_REL_WINDOWRow + Dim rowTBCW_PROF_REL_WINDOWRow As TBCW_PROF_REL_WINDOWRow = CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_REL_CONTROL_PROF_ID) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_REL_CONTROL_PROF_ID(0) + End If + rowTBCW_PROF_REL_WINDOWRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_REL_WINDOWRow) + Return rowTBCW_PROF_REL_WINDOWRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_WINDOWRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_WINDOWRow) 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_REL_WINDOWDataTable = CType(MyBase.Clone,TBCW_PROF_REL_WINDOWDataTable) cln.InitVars Return cln End Function @@ -3638,65 +3737,96 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_UserDataTable() + Return New TBCW_PROF_REL_WINDOWDataTable() 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.columnPROCESS_NAME = MyBase.Columns("PROCESS_NAME") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnREGEX = MyBase.Columns("REGEX") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnREGEX_CLIPBOARD = MyBase.Columns("REGEX_CLIPBOARD") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() - Me.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.columnPROCESS_NAME = New Global.System.Data.DataColumn("PROCESS_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROCESS_NAME) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnREGEX_CLIPBOARD = New Global.System.Data.DataColumn("REGEX_CLIPBOARD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_CLIPBOARD) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPROFILE_ID.AllowDBNull = false + Me.columnPROCESS_NAME.AllowDBNull = false + Me.columnPROCESS_NAME.MaxLength = 250 + Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.MaxLength = 250 + Me.columnREGEX.AllowDBNull = false + Me.columnREGEX.MaxLength = 500 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnREGEX_CLIPBOARD.AllowDBNull = false + Me.columnREGEX_CLIPBOARD.MaxLength = 500 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBWH_UserRow() As TBWH_UserRow - Return CType(Me.NewRow,TBWH_UserRow) + Public Function NewTBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow + Return CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) 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_REL_WINDOWRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_UserRow) + Return GetType(TBCW_PROF_REL_WINDOWRow) 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_REL_WINDOWRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowChanged(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub @@ -3704,8 +3834,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_REL_WINDOWRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowChanging(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub @@ -3713,8 +3843,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_REL_WINDOWRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowDeleted(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub @@ -3722,14 +3852,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_REL_WINDOWRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_REL_WINDOWRowDeleting(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) + Public Sub RemoveTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) Me.Rows.Remove(row) End Sub @@ -3756,7 +3886,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_REL_WINDOWDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3805,18 +3935,26 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBWH_GROUPDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_GROUPRow) + Partial Public Class TBWH_UserDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) - Private columnID As Global.System.Data.DataColumn + Private columnSelect As Global.System.Data.DataColumn - Private columnNAME 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_GROUP" + Me.TableName = "TBWH_User" Me.BeginInit Me.InitClass Me.EndInit @@ -3849,17 +3987,49 @@ Partial Public Class MyDataset _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get - Return Me.columnID + Return Me.columnSelect End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + 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 @@ -3874,35 +4044,316 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_GROUPRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow Get - Return CType(Me.Rows(index),TBWH_GROUPRow) + Return CType(Me.Rows(index),TBWH_UserRow) End Get End Property _ - Public Event TBWH_GROUPRowChanging As TBWH_GROUPRowChangeEventHandler + Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler _ - Public Event TBWH_GROUPRowChanged As TBWH_GROUPRowChangeEventHandler + Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler _ - Public Event TBWH_GROUPRowDeleting As TBWH_GROUPRowChangeEventHandler + Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler _ - Public Event TBWH_GROUPRowDeleted As TBWH_GROUPRowChangeEventHandler + Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler _ - Public Overloads Sub AddTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) + Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) 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} + 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 @@ -4573,6 +5024,16 @@ Partial Public Class MyDataset Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROF_DOC_SEARCHRow()) End If End Function + + _ + Public Function GetTBCW_PROF_REL_WINDOWRows() As TBCW_PROF_REL_WINDOWRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID") Is Nothing) Then + Return New TBCW_PROF_REL_WINDOWRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID")),TBCW_PROF_REL_WINDOWRow()) + End If + End Function End Class ''' @@ -5423,6 +5884,202 @@ Partial Public Class MyDataset End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_REL_WINDOWRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_REL_WINDOW = CType(Me.Table,TBCW_PROF_REL_WINDOWDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property PROCESS_NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property REGEX() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property REGEX_CLIPBOARD() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.REGEX_CLIPBOARDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.REGEX_CLIPBOARDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.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_REL_WINDOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.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_REL_WINDOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.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_REL_WINDOW ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -5962,7 +6619,43 @@ Partial Public Class MyDataset _ - Public ReadOnly Property Row() As TBCW_GROUP_PROFILERow + 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 @@ -5981,16 +6674,16 @@ Partial Public Class MyDataset '''Row event argument class ''' _ - Public Class VWCW_GROUP_PROFILERowChangeEvent + Public Class TBCW_PROF_REL_WINDOWRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWCW_GROUP_PROFILERow + Private eventRow As TBCW_PROF_REL_WINDOWRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWCW_GROUP_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBCW_PROF_REL_WINDOWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -5998,7 +6691,7 @@ Partial Public Class MyDataset _ - Public ReadOnly Property Row() As VWCW_GROUP_PROFILERow + Public ReadOnly Property Row() As TBCW_PROF_REL_WINDOWRow Get Return Me.eventRow End Get @@ -7963,56 +8656,258 @@ Namespace MyDatasetTableAdapters tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBCW_GROUP_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + 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 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_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 + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_GROUP_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_GROUP_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable = New MyDataset.TBCW_GROUP_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + 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 + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWCW_GROUP_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 = "VWCW_GROUP_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + 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_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(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 TBCW_GROUP_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE" + 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("@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_GROUP_PROFILEDataTable) 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(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -8049,39 +8953,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() As MyDataset.TBCW_GROUP_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As MyDataset.VWCW_GROUP_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable = New MyDataset.TBCW_GROUP_PROFILEDataTable() + 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_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) + 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 @@ -8094,7 +8994,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 VWCW_GROUP_PROFILETableAdapter + Partial Public Class TBCW_PROF_REL_WINDOWTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -8211,10 +9111,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 = "VWCW_GROUP_PROFILE" + tableMapping.DataSetTable = "TBCW_PROF_REL_WINDOW" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("PROCESS_NAME", "PROCESS_NAME") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("REGEX", "REGEX") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("REGEX_CLIPBOARD", "REGEX_CLIPBOARD") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_REL_WINDOW] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _ + "_ID] = @Original_PROFILE_ID) AND ([PROCESS_NAME] = @Original_PROCESS_NAME) AND ("& _ + "[DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQ"& _ + "UENCE] = @Original_SEQUENCE) AND ([REGEX_CLIPBOARD] = @Original_REGEX_CLIPBOARD)"& _ + " 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)) A"& _ + "ND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @"& _ + "Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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_PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", 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_PROF_REL_WINDOW] ([PROFILE_ID], [PROCESS_NAME], [DESCRIPTION], "& _ + "[REGEX], [SEQUENCE], [REGEX_CLIPBOARD], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO]"& _ + ", [CHANGED_WHEN]) VALUES (@PROFILE_ID, @PROCESS_NAME, @DESCRIPTION, @REGEX, @SEQ"& _ + "UENCE, @REGEX_CLIPBOARD, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIP"& _ + "BOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDO"& _ + "W 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("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_PROF_REL_WINDOW] SET [PROFILE_ID] = @PROFILE_ID, [PROCESS_NAME] = @P"& _ + "ROCESS_NAME, [DESCRIPTION] = @DESCRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUE"& _ + "NCE, [REGEX_CLIPBOARD] = @REGEX_CLIPBOARD, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN"& _ + "] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WH"& _ + "ERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([P"& _ + "ROCESS_NAME] = @Original_PROCESS_NAME) AND ([DESCRIPTION] = @Original_DESCRIPTIO"& _ + "N) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([R"& _ + "EGEX_CLIPBOARD] = @Original_REGEX_CLIPBOARD) 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) O"& _ + "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ + "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (G"& _ + "UID = @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("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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_PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub 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, 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).CommandText = "SELECT TBCW_PROF_REL_WINDOW.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_WINDOW WHERE "& _ + "PROCESS_NAME = @PROCESS_NAME AND PROFILE_ID = @PROFILE_ID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", 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.VWCW_GROUP_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable, ByVal PROCESS_NAME As String, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (PROCESS_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -8260,35 +9257,45 @@ 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.VWCW_GROUP_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal PROCESS_NAME As String, ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_REL_WINDOWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable = New MyDataset.VWCW_GROUP_PROFILEDataTable() + If (PROCESS_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFILE_ID,Integer) + Dim dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable = New MyDataset.TBCW_PROF_REL_WINDOWDataTable() 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 + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable) 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_PROF_REL_WINDOW") + 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 @@ -8317,6 +9324,8 @@ Namespace MyDatasetTableAdapters Private _tBCW_GROUP_PROFILETableAdapter As TBCW_GROUP_PROFILETableAdapter + Private _tBCW_PROF_REL_WINDOWTableAdapter As TBCW_PROF_REL_WINDOWTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -8416,6 +9425,20 @@ Namespace MyDatasetTableAdapters End Set End Property + _ + Public Property TBCW_PROF_REL_WINDOWTableAdapter() As TBCW_PROF_REL_WINDOWTableAdapter + Get + Return Me._tBCW_PROF_REL_WINDOWTableAdapter + End Get + Set + Me._tBCW_PROF_REL_WINDOWTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -8459,6 +9482,10 @@ Namespace MyDatasetTableAdapters AndAlso (Not (Me._tBCW_GROUP_PROFILETableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_GROUP_PROFILETableAdapter.Connection End If + If ((Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection + End If Return Nothing End Get Set @@ -8490,6 +9517,9 @@ Namespace MyDatasetTableAdapters If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -8555,6 +9585,15 @@ Namespace MyDatasetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.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_REL_WINDOWTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -8613,6 +9652,14 @@ Namespace MyDatasetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_REL_WINDOWTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -8623,6 +9670,14 @@ 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_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_REL_WINDOWTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If 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) _ @@ -8742,6 +9797,11 @@ 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_REL_WINDOWTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_REL_WINDOWTableAdapter.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"& _ @@ -8830,6 +9890,15 @@ Namespace MyDatasetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_GROUP_PROFILETableAdapter.Adapter) End If End If + If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_REL_WINDOWTableAdapter, Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection) + Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_REL_WINDOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -8914,6 +9983,10 @@ Namespace MyDatasetTableAdapters 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 (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then + Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_WINDOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_REL_WINDOWTableAdapter.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.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index 03f6b5e..26499f5 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -536,6 +536,108 @@ WHERE (GUID = @GUID) + + + + + + DELETE FROM [TBCW_PROF_REL_WINDOW] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([PROCESS_NAME] = @Original_PROCESS_NAME) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([REGEX_CLIPBOARD] = @Original_REGEX_CLIPBOARD) 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_REL_WINDOW] ([PROFILE_ID], [PROCESS_NAME], [DESCRIPTION], [REGEX], [SEQUENCE], [REGEX_CLIPBOARD], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PROFILE_ID, @PROCESS_NAME, @DESCRIPTION, @REGEX, @SEQUENCE, @REGEX_CLIPBOARD, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + SELECT TBCW_PROF_REL_WINDOW.* +FROM TBCW_PROF_REL_WINDOW WHERE PROCESS_NAME = @PROCESS_NAME AND PROFILE_ID = @PROFILE_ID + + + + + + + + + UPDATE [TBCW_PROF_REL_WINDOW] SET [PROFILE_ID] = @PROFILE_ID, [PROCESS_NAME] = @PROCESS_NAME, [DESCRIPTION] = @DESCRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUENCE, [REGEX_CLIPBOARD] = @REGEX_CLIPBOARD, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([PROCESS_NAME] = @Original_PROCESS_NAME) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([REGEX_CLIPBOARD] = @Original_REGEX_CLIPBOARD) 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, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -835,6 +937,59 @@ WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -869,11 +1024,16 @@ WHERE (GUID = @GUID) + + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index a2e7e8f..0dc7962 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -4,42 +4,55 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - + + + + + + + + + + + + - + - 250 - 52 + 255 + 11 729 - 52 + 11 - + - 250 - 181 + 255 + 140 377 - 181 + 140 + + + + + + + 135 + 242 + + + 135 + 270 diff --git a/app/DD_Clipboard_Searcher/Resources/add.png b/app/DD_Clipboard_Searcher/Resources/add.png new file mode 100644 index 0000000000000000000000000000000000000000..6332fefea4be19eeadf211b0b202b272e8564898 GIT binary patch literal 733 zcmV<30wVp1P)9VHk(~TedF+gQSL8D5xnVSSWAVY>J9b+m>@{iq7_KE}go~11+5s4;8hc+i0Xa zI1j@EX5!S+Me6HNqKzU5YQwL;-W5$p%ZMKMeR<%zp69-~?<4?8|C8S?bklXr4v&Ov zb&06v2|-x?qB`90yn>Qi%Sh2^G4n)$ZdyvTPf9}1)_buUT7>`e2G&2VU@~Bb(o+Mz zi4)>IxlSY${Dj4k={-9RzU^W5g9|2V5RZ2ZulL9s2xQbZ@r6eP9Ra5u(s|C0Nj#&4>wTSkb?%#=9?@ z^oxDy-O@tyN{L@by(WWvQ3%CyEu8x{+#Jb4-h&K9Owi)2pgg+heWDyked|3R$$kL@A z#sp1v-r+=G4B8D6DqsDH0@7OztA7aT9qc1Py{()w`m``?Y0&gi2=ROcc-9+nU^I6< zT=e_Y=vSnG@?3Ue{BW5ONFttcE!R-R_W4O01|0-|K-YNXLo2`4Qv z`r1LxR6#yf3FB%T95gJnaKKivA~Z}S9A(ZxEDK}O3T04USJ P00000NkvXXu0mjf^IS-S literal 0 HcmV?d00001 diff --git a/app/DD_Clipboard_Searcher/Resources/application_go.png b/app/DD_Clipboard_Searcher/Resources/application_go.png new file mode 100644 index 0000000000000000000000000000000000000000..5cc2b0dd36978513f3ca009c68ebc4150976fc80 GIT binary patch literal 634 zcmV-=0)_pFP)cA1hmXWM zDZ#H?v3PJ5$Hq5OmbDN{wJ%9%wAR zT-Qu9!vIN`896F;t~rD&@Nfe0`Nv1rEgogE>hi36i1p_V%rE6ZqX5JdGmz-z3Rm#{ z+Z*c0z*?bg!mefM79{Zs`zK3~u)rkEuD#mHG}dlY@$@R6?<^o~D%1C9AK Udps;mZ~y=R07*qoM6N<$f`qvmMgRZ+ literal 0 HcmV?d00001 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb index 4eedd6c..e8a6769 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.Designer.vb @@ -112,21 +112,34 @@ Partial Class frmAdministration 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.BindingNavigator3 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem3 = New System.Windows.Forms.ToolStripButton() + Me.TBCW_PROF_REL_WINDOWBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.BindingNavigatorCountItem3 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem3 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem3 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colPROCESS_NAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colREGEX = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colREGEX_CLIPBOARD = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSEQUENCE = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridControl3 = New DevExpress.XtraGrid.GridControl() Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.btndeleteProcessProfileLink = New System.Windows.Forms.Button() - Me.btnLinkProcessPRofile = New System.Windows.Forms.Button() - Me.lblprocessCheckActive = New System.Windows.Forms.Label() - Me.btnStartStopProcess = New System.Windows.Forms.Button() - Me.txtProcessName = New System.Windows.Forms.TextBox() - Me.txtPID = New System.Windows.Forms.TextBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() Me.TabPageUserAssignment = New DevExpress.XtraTab.XtraTabPage() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.GridControlUserInProfile = New DevExpress.XtraGrid.GridControl() @@ -220,6 +233,21 @@ Partial Class frmAdministration 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() + Me.TBCW_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() COMMENTLabel = New System.Windows.Forms.Label() @@ -271,9 +299,14 @@ Partial Class frmAdministration Me.TabPageGeneralSettings.SuspendLayout() CType(Me.TBWH_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageProcessAssignment.SuspendLayout() - Me.GroupBox4.SuspendLayout() + CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator3.SuspendLayout() + CType(Me.TBCW_PROF_REL_WINDOWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() Me.TabPageUserAssignment.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() @@ -303,6 +336,13 @@ Partial Class frmAdministration Me.BindingNavigator2.SuspendLayout() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageBasicSettings.SuspendLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer3.Panel1.SuspendLayout() + Me.SplitContainer3.Panel2.SuspendLayout() + Me.SplitContainer3.SuspendLayout() + Me.ToolStrip2.SuspendLayout() Me.SuspendLayout() ' 'GUIDLabel @@ -906,6 +946,7 @@ Partial Class frmAdministration Me.TableAdapterManager.TBCW_GROUP_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBCW_PROF_DATA_SEARCHTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROF_DOC_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing @@ -1081,39 +1122,189 @@ Partial Class frmAdministration ' 'TabPageProcessAssignment ' - Me.TabPageProcessAssignment.Controls.Add(Me.GroupBox4) + Me.TabPageProcessAssignment.Controls.Add(Me.SplitContainer3) + Me.TabPageProcessAssignment.Controls.Add(Me.BindingNavigator3) Me.TabPageProcessAssignment.Controls.Add(Me.GridControl3) + Me.TabPageProcessAssignment.Controls.Add(Me.ToolStrip1) Me.TabPageProcessAssignment.Name = "TabPageProcessAssignment" Me.TabPageProcessAssignment.Size = New System.Drawing.Size(1046, 535) Me.TabPageProcessAssignment.Text = "Prozess Zuordnung" ' - 'GroupBox4 - ' - 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(689, 34) - Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(309, 272) - Me.GroupBox4.TabIndex = 64 - Me.GroupBox4.TabStop = False - Me.GroupBox4.Text = "Zugeordnete Prozesse" + 'BindingNavigator3 + ' + Me.BindingNavigator3.AddNewItem = Me.BindingNavigatorAddNewItem3 + Me.BindingNavigator3.BindingSource = Me.TBCW_PROF_REL_WINDOWBindingSource + Me.BindingNavigator3.CountItem = Me.BindingNavigatorCountItem3 + Me.BindingNavigator3.DeleteItem = Me.BindingNavigatorDeleteItem3 + Me.BindingNavigator3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.BindingNavigatorAddNewItem3, Me.BindingNavigatorDeleteItem3, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripButton4}) + Me.BindingNavigator3.Location = New System.Drawing.Point(192, 25) + Me.BindingNavigator3.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3 + Me.BindingNavigator3.MoveLastItem = Me.BindingNavigatorMoveLastItem3 + Me.BindingNavigator3.MoveNextItem = Me.BindingNavigatorMoveNextItem3 + Me.BindingNavigator3.MovePreviousItem = Me.BindingNavigatorMovePreviousItem3 + Me.BindingNavigator3.Name = "BindingNavigator3" + Me.BindingNavigator3.PositionItem = Me.BindingNavigatorPositionItem3 + Me.BindingNavigator3.Size = New System.Drawing.Size(854, 25) + Me.BindingNavigator3.TabIndex = 68 + Me.BindingNavigator3.Text = "BindingNavigator3" + ' + 'BindingNavigatorAddNewItem3 + ' + Me.BindingNavigatorAddNewItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem3.Image = CType(resources.GetObject("BindingNavigatorAddNewItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem3.Name = "BindingNavigatorAddNewItem3" + Me.BindingNavigatorAddNewItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem3.Text = "Neu hinzufügen" + ' + 'TBCW_PROF_REL_WINDOWBindingSource + ' + Me.TBCW_PROF_REL_WINDOWBindingSource.AllowNew = True + Me.TBCW_PROF_REL_WINDOWBindingSource.DataMember = "TBCW_PROF_REL_WINDOW" + Me.TBCW_PROF_REL_WINDOWBindingSource.DataSource = Me.MyDataset + ' + 'BindingNavigatorCountItem3 + ' + Me.BindingNavigatorCountItem3.Name = "BindingNavigatorCountItem3" + Me.BindingNavigatorCountItem3.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem3.Text = "von {0}" + Me.BindingNavigatorCountItem3.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem3 + ' + Me.BindingNavigatorDeleteItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem3.Image = CType(resources.GetObject("BindingNavigatorDeleteItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem3.Name = "BindingNavigatorDeleteItem3" + Me.BindingNavigatorDeleteItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem3.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem3 + ' + Me.BindingNavigatorMoveFirstItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem3.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem3.Name = "BindingNavigatorMoveFirstItem3" + Me.BindingNavigatorMoveFirstItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem3.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem3 + ' + Me.BindingNavigatorMovePreviousItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem3.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem3.Name = "BindingNavigatorMovePreviousItem3" + Me.BindingNavigatorMovePreviousItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem3.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator9 + ' + Me.BindingNavigatorSeparator9.Name = "BindingNavigatorSeparator9" + Me.BindingNavigatorSeparator9.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem3 + ' + Me.BindingNavigatorPositionItem3.AccessibleName = "Position" + Me.BindingNavigatorPositionItem3.AutoSize = False + Me.BindingNavigatorPositionItem3.Name = "BindingNavigatorPositionItem3" + Me.BindingNavigatorPositionItem3.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem3.Text = "0" + Me.BindingNavigatorPositionItem3.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator10 + ' + Me.BindingNavigatorSeparator10.Name = "BindingNavigatorSeparator10" + Me.BindingNavigatorSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem3 + ' + Me.BindingNavigatorMoveNextItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem3.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem3.Name = "BindingNavigatorMoveNextItem3" + Me.BindingNavigatorMoveNextItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem3.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem3 + ' + Me.BindingNavigatorMoveLastItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem3.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem3.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem3.Name = "BindingNavigatorMoveLastItem3" + Me.BindingNavigatorMoveLastItem3.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem3.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem3.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator11 + ' + Me.BindingNavigatorSeparator11.Name = "BindingNavigatorSeparator11" + Me.BindingNavigatorSeparator11.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image) + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton7.Text = "Daten speichern" + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBCW_PROF_REL_WINDOWBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView2 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(284, 485) + Me.GridControl1.TabIndex = 66 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPROCESS_NAME, Me.colSEQUENCE, Me.colDESCRIPTION, Me.colREGEX, Me.colREGEX_CLIPBOARD}) + Me.GridView2.GridControl = Me.GridControl1 + Me.GridView2.Name = "GridView2" + ' + 'colPROCESS_NAME + ' + Me.colPROCESS_NAME.FieldName = "PROCESS_NAME" + Me.colPROCESS_NAME.Name = "colPROCESS_NAME" + ' + 'colDESCRIPTION + ' + Me.colDESCRIPTION.FieldName = "DESCRIPTION" + Me.colDESCRIPTION.Name = "colDESCRIPTION" + Me.colDESCRIPTION.Visible = True + Me.colDESCRIPTION.VisibleIndex = 1 + ' + 'colREGEX + ' + Me.colREGEX.FieldName = "REGEX" + Me.colREGEX.Name = "colREGEX" + Me.colREGEX.Visible = True + Me.colREGEX.VisibleIndex = 2 + ' + 'colREGEX_CLIPBOARD + ' + Me.colREGEX_CLIPBOARD.FieldName = "REGEX_CLIPBOARD" + Me.colREGEX_CLIPBOARD.Name = "colREGEX_CLIPBOARD" + Me.colREGEX_CLIPBOARD.Visible = True + Me.colREGEX_CLIPBOARD.VisibleIndex = 3 + ' + 'colSEQUENCE + ' + Me.colSEQUENCE.FieldName = "SEQUENCE" + Me.colSEQUENCE.Name = "colSEQUENCE" + Me.colSEQUENCE.Visible = True + Me.colSEQUENCE.VisibleIndex = 0 ' 'GridControl3 ' - 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(22, 60) + Me.GridControl3.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl3.Location = New System.Drawing.Point(0, 25) Me.GridControl3.MainView = Me.GridViewProcessProfile Me.GridControl3.Name = "GridControl3" - Me.GridControl3.Size = New System.Drawing.Size(480, 246) + Me.GridControl3.Size = New System.Drawing.Size(192, 510) Me.GridControl3.TabIndex = 20 Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProcessProfile}) ' @@ -1121,7 +1312,7 @@ Partial Class frmAdministration ' Me.GridViewProcessProfile.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua Me.GridViewProcessProfile.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewProcessProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPROC_NAME, Me.colADDED_WHEN, Me.colADDED_WHO}) + Me.GridViewProcessProfile.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPROC_NAME}) Me.GridViewProcessProfile.GridControl = Me.GridControl3 Me.GridViewProcessProfile.Name = "GridViewProcessProfile" Me.GridViewProcessProfile.OptionsBehavior.Editable = False @@ -1138,128 +1329,42 @@ Partial Class frmAdministration Me.colGUID2.Caption = "ID" Me.colGUID2.FieldName = "GUID" Me.colGUID2.Name = "colGUID2" - Me.colGUID2.Visible = True - Me.colGUID2.VisibleIndex = 0 Me.colGUID2.Width = 43 ' 'colPROC_NAME ' - Me.colPROC_NAME.Caption = "Process Name" + Me.colPROC_NAME.Caption = "Prozess" Me.colPROC_NAME.FieldName = "PROC_NAME" Me.colPROC_NAME.Name = "colPROC_NAME" Me.colPROC_NAME.Visible = True - Me.colPROC_NAME.VisibleIndex = 1 + Me.colPROC_NAME.VisibleIndex = 0 Me.colPROC_NAME.Width = 104 ' - 'colADDED_WHEN - ' - Me.colADDED_WHEN.Caption = "Added when" - Me.colADDED_WHEN.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN.Name = "colADDED_WHEN" - Me.colADDED_WHEN.Visible = True - Me.colADDED_WHEN.VisibleIndex = 3 - ' - 'colADDED_WHO - ' - Me.colADDED_WHO.Caption = "Added who" - Me.colADDED_WHO.FieldName = "ADDED_WHO" - Me.colADDED_WHO.Name = "colADDED_WHO" - Me.colADDED_WHO.Visible = True - Me.colADDED_WHO.VisibleIndex = 2 - Me.colADDED_WHO.Width = 84 - ' - 'btndeleteProcessProfileLink - ' - Me.btndeleteProcessProfileLink.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btndeleteProcessProfileLink.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - 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(63, 54) - Me.btndeleteProcessProfileLink.Name = "btndeleteProcessProfileLink" - Me.btndeleteProcessProfileLink.Size = New System.Drawing.Size(205, 26) - Me.btndeleteProcessProfileLink.TabIndex = 61 - Me.btndeleteProcessProfileLink.Text = "Lösche Zuordnung" - Me.btndeleteProcessProfileLink.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndeleteProcessProfileLink.UseVisualStyleBackColor = True - ' - 'btnLinkProcessPRofile - ' - Me.btnLinkProcessPRofile.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - 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(63, 20) - Me.btnLinkProcessPRofile.Name = "btnLinkProcessPRofile" - Me.btnLinkProcessPRofile.Size = New System.Drawing.Size(205, 28) - Me.btnLinkProcessPRofile.TabIndex = 60 - Me.btnLinkProcessPRofile.Text = "Prozess und Profil verknüpfen" - Me.btnLinkProcessPRofile.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnLinkProcessPRofile.UseVisualStyleBackColor = True - ' - '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(16, 161) - Me.lblprocessCheckActive.Name = "lblprocessCheckActive" - Me.lblprocessCheckActive.Size = New System.Drawing.Size(264, 28) - Me.lblprocessCheckActive.TabIndex = 23 - Me.lblprocessCheckActive.Text = "Auswertung aktiv" - Me.lblprocessCheckActive.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.lblprocessCheckActive.Visible = False - ' - 'btnStartStopProcess - ' - 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(16, 130) - Me.btnStartStopProcess.Name = "btnStartStopProcess" - Me.btnStartStopProcess.Size = New System.Drawing.Size(264, 26) - Me.btnStartStopProcess.TabIndex = 8 - Me.btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl" - Me.btnStartStopProcess.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnStartStopProcess.UseVisualStyleBackColor = True - ' - '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(100, 225) - Me.txtProcessName.Name = "txtProcessName" - Me.txtProcessName.ReadOnly = True - Me.txtProcessName.Size = New System.Drawing.Size(180, 21) - Me.txtProcessName.TabIndex = 4 - ' - '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(100, 198) - Me.txtPID.Name = "txtPID" - Me.txtPID.ReadOnly = True - Me.txtPID.Size = New System.Drawing.Size(180, 21) - Me.txtPID.TabIndex = 3 - ' - 'Label4 - ' - 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(16, 228) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(78, 13) - Me.Label4.TabIndex = 1 - Me.Label4.Text = "Prozess Name:" - ' - 'Label3 - ' - 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(16, 201) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(59, 13) - Me.Label3.TabIndex = 0 - Me.Label3.Text = "ProzessID:" + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton6, Me.ToolStripButton5, Me.ToolStripSeparator1, Me.ToolStripButton11, Me.ToolStripButton13, Me.ToolStripSeparator2, Me.ToolStripButton12, Me.ToolStripButton14}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1046, 25) + Me.ToolStrip1.TabIndex = 65 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(171, 22) + Me.ToolStripButton5.Text = "Lösche Prozess-Zuordnung" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.application_go + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(153, 22) + Me.ToolStripButton6.Text = "Prozess Auswahl starten" ' 'TabPageUserAssignment ' @@ -2195,6 +2300,127 @@ Partial Class frmAdministration ' Me.VWCW_GROUP_PROFILETableAdapter.ClearBeforeFill = True ' + 'TBCW_PROF_REL_WINDOWTableAdapter + ' + Me.TBCW_PROF_REL_WINDOWTableAdapter.ClearBeforeFill = True + ' + 'GridControl2 + ' + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl2.Location = New System.Drawing.Point(0, 25) + Me.GridControl2.MainView = Me.GridView3 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(566, 460) + Me.GridControl2.TabIndex = 69 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + ' + 'GridView3 + ' + Me.GridView3.GridControl = Me.GridControl2 + Me.GridView3.Name = "GridView3" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(170, 22) + Me.ToolStripButton4.Text = "Lösche Fenster-Zuordnung" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.application_go + Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.Size = New System.Drawing.Size(152, 22) + Me.ToolStripButton8.Text = "Fenster Auswahl starten" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'SplitContainer3 + ' + Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer3.Location = New System.Drawing.Point(192, 50) + Me.SplitContainer3.Name = "SplitContainer3" + ' + 'SplitContainer3.Panel1 + ' + Me.SplitContainer3.Panel1.Controls.Add(Me.GridControl1) + ' + 'SplitContainer3.Panel2 + ' + Me.SplitContainer3.Panel2.Controls.Add(Me.GridControl2) + Me.SplitContainer3.Panel2.Controls.Add(Me.ToolStrip2) + Me.SplitContainer3.Size = New System.Drawing.Size(854, 485) + Me.SplitContainer3.SplitterDistance = 284 + Me.SplitContainer3.TabIndex = 70 + ' + 'ToolStrip2 + ' + Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton9, Me.ToolStripButton10}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(566, 25) + Me.ToolStrip2.TabIndex = 70 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.application_go + Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.Size = New System.Drawing.Size(152, 22) + Me.ToolStripButton9.Text = "Fenster Auswahl starten" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.Size = New System.Drawing.Size(170, 22) + Me.ToolStripButton10.Text = "Lösche Fenster-Zuordnung" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.application_go + Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.Size = New System.Drawing.Size(153, 22) + Me.ToolStripButton11.Text = "Prozess Auswahl starten" + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.application_go + Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.Size = New System.Drawing.Size(153, 22) + Me.ToolStripButton12.Text = "Prozess Auswahl starten" + ' + 'ToolStripButton13 + ' + Me.ToolStripButton13.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton13.Name = "ToolStripButton13" + Me.ToolStripButton13.Size = New System.Drawing.Size(171, 22) + Me.ToolStripButton13.Text = "Lösche Prozess-Zuordnung" + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.ToolStripButton14.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.Size = New System.Drawing.Size(171, 22) + Me.ToolStripButton14.Text = "Lösche Prozess-Zuordnung" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' 'frmAdministration ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2230,10 +2456,17 @@ Partial Class frmAdministration Me.TabPageGeneralSettings.PerformLayout() CType(Me.TBWH_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageProcessAssignment.ResumeLayout(False) - Me.GroupBox4.ResumeLayout(False) - Me.GroupBox4.PerformLayout() + Me.TabPageProcessAssignment.PerformLayout() + CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator3.ResumeLayout(False) + Me.BindingNavigator3.PerformLayout() + CType(Me.TBCW_PROF_REL_WINDOWBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() Me.TabPageUserAssignment.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) @@ -2267,6 +2500,15 @@ Partial Class frmAdministration Me.BindingNavigator2.PerformLayout() CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageBasicSettings.ResumeLayout(False) + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer3.Panel1.ResumeLayout(False) + Me.SplitContainer3.Panel2.ResumeLayout(False) + Me.SplitContainer3.Panel2.PerformLayout() + CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer3.ResumeLayout(False) + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -2326,21 +2568,10 @@ Partial Class frmAdministration Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl Friend WithEvents TabPageGeneralSettings As DevExpress.XtraTab.XtraTabPage Friend WithEvents TabPageProcessAssignment As DevExpress.XtraTab.XtraTabPage - Friend WithEvents GroupBox4 As GroupBox Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewProcessProfile As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPROC_NAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents btndeleteProcessProfileLink As Button - Friend WithEvents btnLinkProcessPRofile As Button - Friend WithEvents lblprocessCheckActive As Label - Friend WithEvents btnStartStopProcess As Button - Friend WithEvents txtProcessName As TextBox - Friend WithEvents txtPID As TextBox - Friend WithEvents Label4 As Label - Friend WithEvents Label3 As Label Friend WithEvents TabPageUserAssignment As DevExpress.XtraTab.XtraTabPage Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents GridControlUserInProfile As DevExpress.XtraGrid.GridControl @@ -2435,4 +2666,43 @@ Partial Class frmAdministration Friend WithEvents colID1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME3 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents TBWH_PROFILE_TYPEBindingSource As BindingSource + Friend WithEvents ToolStrip1 As ToolStrip + Friend WithEvents ToolStripButton5 As ToolStripButton + Friend WithEvents ToolStripButton6 As ToolStripButton + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents TBCW_PROF_REL_WINDOWBindingSource As BindingSource + Friend WithEvents TBCW_PROF_REL_WINDOWTableAdapter As MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter + Friend WithEvents BindingNavigator3 As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem3 As ToolStripButton + Friend WithEvents BindingNavigatorCountItem3 As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem3 As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem3 As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem3 As ToolStripButton + Friend WithEvents BindingNavigatorSeparator9 As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem3 As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator10 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem3 As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem3 As ToolStripButton + Friend WithEvents BindingNavigatorSeparator11 As ToolStripSeparator + Friend WithEvents colPROCESS_NAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colREGEX As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSEQUENCE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colREGEX_CLIPBOARD As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ToolStripButton7 As ToolStripButton + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents ToolStripButton8 As ToolStripButton + Friend WithEvents ToolStripButton4 As ToolStripButton + Friend WithEvents SplitContainer3 As SplitContainer + Friend WithEvents ToolStrip2 As ToolStrip + Friend WithEvents ToolStripButton9 As ToolStripButton + Friend WithEvents ToolStripButton10 As ToolStripButton + Friend WithEvents ToolStripSeparator1 As ToolStripSeparator + Friend WithEvents ToolStripButton11 As ToolStripButton + Friend WithEvents ToolStripButton13 As ToolStripButton + Friend WithEvents ToolStripSeparator2 As ToolStripSeparator + Friend WithEvents ToolStripButton12 As ToolStripButton + Friend WithEvents ToolStripButton14 As ToolStripButton End Class diff --git a/app/DD_Clipboard_Searcher/frmAdministration.resx b/app/DD_Clipboard_Searcher/frmAdministration.resx index 29b9c59..40ba35f 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.resx +++ b/app/DD_Clipboard_Searcher/frmAdministration.resx @@ -216,6 +216,12 @@ 355, 17 + + 355, 17 + + + 245, 17 + 245, 17 @@ -330,42 +336,101 @@ 1234, 56 - - 751, 134 + + 17, 173 + + + 711, 169 - + + 557, 169 + + + + 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== + + + + + 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/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd - tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 - PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI - vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm - RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 - yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E - A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y - Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu - YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI - nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y - todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ - RU5ErkJggg== + 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 - + - iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 - JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACO0lE - QVRIS7WSS28SYRhGiSsTly79NcaoiGAbiHItvWFry8Zf4KJUeoEKchEYikiqFXcmxkZTE6Ooce/CVXdu - tBaBwnQYZubpOzMOYPwSazNdnEzyzJdzMhcLgBOFOZoJczQT5mgmzNHgS9Ayu+20YCd0Os66fxSYo4oh - l1b9aoAm9rl/wRwNeWfJh3rUa27AkLeiPuwuutFY8ZkXMOT1Ra8m31v2oBkPmBMw5HsRjy5f8uBXzIfm - vQC+hc8ei++3z8X/kO8uuPHzrhv1ZW9f3kqNoZObgLA+DfHRTUiPb0HenINSnQeehTWUahjy03lIT+bQ - q8ygW5pCd2tNDQzkPxZu9OWNmF+T76eDA3n5t5xEqlypUmRzBvLGFKRyAL2iB2LWBSFhB79qhfA6qwdq - 10keIXmU5Cskj5M8ocv5/CSEUghiZVaXb4SgVIJQyh4oRRfk/AikrB29lA3dhBUHscv0513EfuQC+K30 - 4Am+Bk8N5MkA2ulx8IVpXf5wEtK6HzLngkJCJe8grkHOOUjuILmd5DaSW0l+CS2SN+6cR+dFSg8Y30CN - NJNjaGcnwOfGIWTdEDOjkN8XoNSIDxyUj0W6qnCQaxykdwVIb/MQ3+TQ3X4A4VUG/Ms0ye+j/Tw5CAxH - OgknDtZsEJNXIGXsmkw9eEz0v2g4shM6Q499VXt8mV4FPhW1w8Pn/oe/BiMCbhRKYcT8gEo/UnIC9N5N - D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg== + 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= + + + + 997, 134 + + + 579, 95 + + + 1284, 95 + + + 751, 134 + + + 751, 134 + 227, 134 @@ -535,8 +600,11 @@ 492, 134 + + 298, 173 + - 265 + 230 diff --git a/app/DD_Clipboard_Searcher/frmAdministration.vb b/app/DD_Clipboard_Searcher/frmAdministration.vb index cfa345b..afadd40 100644 --- a/app/DD_Clipboard_Searcher/frmAdministration.vb +++ b/app/DD_Clipboard_Searcher/frmAdministration.vb @@ -1,6 +1,8 @@ Imports DD_LIB_Standards Public Class frmAdministration + Private SelectedProcessName As String + Class ProfileType Public Name As String Public Id As Int16 @@ -216,18 +218,6 @@ Public Class frmAdministration End Try 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 - lblprocessCheckActive.Visible = True - PID = CurrPROC_PID - txtPID.Text = CurrPROC_PID - txtProcessName.Text = CurrPROC_Name - Else - lblprocessCheckActive.Visible = False - End If - End Sub - Private Sub Load_Profile_Process() Try If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then @@ -241,54 +231,6 @@ Public Class frmAdministration End Sub - Private Sub btnLinkProcessPRofile_Click(sender As Object, e As EventArgs) Handles btnLinkProcessPRofile.Click - Try - If txtProcessName.Text <> "" Then - Dim insert = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, txtProcessName.Text, Environment.UserName) - If clsDatabase.Execute_non_Query(insert) = False Then - MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation) - End If - End If - Load_Profile_Process() - clsHotkey.Refresh_Profile_Links() - Catch ex As Exception - MsgBox("Unexpected Error while adding Process-Profile-link: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub btndeleteProcessProfileLink_Click(sender As Object, e As EventArgs) Handles btndeleteProcessProfileLink.Click - Try - Dim ID = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID")) - Try - Dim I As Integer = CInt(ID) - Catch ex As Exception - Exit Sub - End Try - Dim del = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", ID) - If clsDatabase.Execute_non_Query(del) = True Then - Load_Profile_Process() - End If - Catch ex As Exception - MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub btnStartStopProcess_Click(sender As Object, e As EventArgs) Handles btnStartStopProcess.Click - If btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl" Then - Me.Cursor = Cursors.WaitCursor - txtPID.Text = "" - txtProcessName.Text = "" - TimerTest.Start() - btnStartStopProcess.Text = "Stoppe Auswertung Fenster" - Status_Changed("Auswertung von aktivem Fenster läuft! Wechseln Sie durch die aktiven Anwendungen!", Color.Orange) - Else - Me.Cursor = Cursors.Default - TimerTest.Stop() - btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl" - Status_Changed("", Color.Transparent) - End If - End Sub - Private Sub WD_SEARCHTextBox_MouseHover(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.MouseHover ToolTip1.SetToolTip(WD_SEARCHTextBox, "Replace patterns for string fields: " & vbNewLine & "@Clipboard" & vbNewLine & "@CLIPBOARD" & vbNewLine & "@Zwischenablage" & vbNewLine & "Replace patterns for integer fields: " & vbNewLine & "123456789" & vbNewLine & "4711") @@ -407,4 +349,72 @@ Public Class frmAdministration MsgBox("Unexpected Error in deleting Group-Rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub + + Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click + Dim oForm As New frmProcessCapture() + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + Try + Dim oProcessName As String = oForm.ProcessName + + If oProcessName <> "" Then + Dim insert = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, oProcessName, Environment.UserName) + If clsDatabase.Execute_non_Query(insert) = False Then + MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation) + End If + End If + Load_Profile_Process() + clsHotkey.Refresh_Profile_Links() + Catch ex As Exception + MsgBox("Unexpected Error while adding Process-Profile-link: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click + Try + Dim oGuid = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID")) + Dim oSQL = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", oGuid) + If clsDatabase.Execute_non_Query(oSQL) Then + Load_Profile_Process() + End If + Catch ex As Exception + MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub GridViewProcessProfile_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProcessProfile.FocusedRowChanged + If e.FocusedRowHandle < 0 Then + Exit Sub + End If + + Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle) + Dim oProcessName As String = oSelectedRow.Item("PROC_NAME") + SelectedProcessName = oProcessName + + TBCW_PROF_REL_WINDOWTableAdapter.Connection.ConnectionString = MyConnectionString + TBCW_PROF_REL_WINDOWTableAdapter.Fill(MyDataset.TBCW_PROF_REL_WINDOW, SelectedProcessName, GUIDTextBox.Text) + End Sub + + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click + Try + TBCW_PROF_REL_WINDOWBindingSource.EndEdit() + If Not IsNothing(MyDataset.TBCW_PROF_REL_WINDOW.GetChanges) Then + CHANGED_WHOTextBox3.Text = Environment.UserName + TBCW_PROF_REL_WINDOWBindingSource.EndEdit() + TBCW_PROF_REL_WINDOWTableAdapter.Update(MyDataset.TBCW_PROF_REL_WINDOW) + End If + + TBCW_PROF_REL_WINDOWTableAdapter.Fill(MyDataset.TBCW_PROF_REL_WINDOW, SelectedProcessName, GUIDTextBox.Text) + Catch ex As Exception + MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TBCW_PROF_REL_WINDOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_REL_WINDOWBindingSource.AddingNew + MyDataset.TBCW_PROF_REL_WINDOW.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBCW_PROF_REL_WINDOW.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text + MyDataset.TBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn.DefaultValue = SelectedProcessName + End Sub End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb b/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb new file mode 100644 index 0000000..e928b14 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.Designer.vb @@ -0,0 +1,165 @@ + _ +Partial Class frmProcessCapture + 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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProcessCapture)) + Me.Button1 = New System.Windows.Forms.Button() + Me.txtPID = New System.Windows.Forms.TextBox() + Me.txtName = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.txtWindowTitle = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(12, 206) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(159, 34) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "Fenster zuordnen" + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtPID + ' + Me.txtPID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPID.Location = New System.Drawing.Point(129, 12) + Me.txtPID.Name = "txtPID" + Me.txtPID.ReadOnly = True + Me.txtPID.Size = New System.Drawing.Size(224, 20) + Me.txtPID.TabIndex = 1 + ' + 'txtName + ' + Me.txtName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtName.Location = New System.Drawing.Point(129, 40) + Me.txtName.Name = "txtName" + Me.txtName.ReadOnly = True + Me.txtName.Size = New System.Drawing.Size(224, 20) + Me.txtName.TabIndex = 2 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(9, 17) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(61, 13) + Me.Label1.TabIndex = 3 + Me.Label1.Text = "Prozess ID:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(9, 43) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(78, 13) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "Prozess Name:" + ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(9, 118) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(344, 42) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Auswertung von aktivem Fenster läuft! Wechseln Sie durch die aktiven Anwendungen!" & + "" + ' + 'Timer1 + ' + Me.Timer1.Interval = 1000 + ' + 'txtWindowTitle + ' + Me.txtWindowTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtWindowTitle.Location = New System.Drawing.Point(129, 66) + Me.txtWindowTitle.Name = "txtWindowTitle" + Me.txtWindowTitle.ReadOnly = True + Me.txtWindowTitle.Size = New System.Drawing.Size(224, 20) + Me.txtWindowTitle.TabIndex = 2 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(9, 69) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(68, 13) + Me.Label4.TabIndex = 3 + Me.Label4.Text = "Fenster Titel:" + ' + 'Button2 + ' + Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(194, 206) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(159, 34) + Me.Button2.TabIndex = 0 + Me.Button2.Text = "Abbruch" + Me.Button2.UseVisualStyleBackColor = True + ' + 'frmProcessCapture + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(365, 252) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtWindowTitle) + Me.Controls.Add(Me.txtName) + Me.Controls.Add(Me.txtPID) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmProcessCapture" + Me.Text = "Prozess Auswertung" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Button1 As Button + Friend WithEvents txtPID As TextBox + Friend WithEvents txtName As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Timer1 As Timer + Friend WithEvents txtWindowTitle As TextBox + Friend WithEvents Label4 As Label + Friend WithEvents Button2 As Button +End Class diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.resx b/app/DD_Clipboard_Searcher/frmProcessCapture.resx new file mode 100644 index 0000000..7a9fa63 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.resx @@ -0,0 +1,297 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAYAEBAQAAEABAAoAQAAZgAAABAQAAABAAgAaAUAAI4BAAAQEAAAAQAgAGgEAAD2BgAAICAQAAEA + BADoAgAAXgsAACAgAAABAAgAqAgAAEYOAAAgIAAAAQAgAKgQAADuFgAAKAAAABAAAAAgAAAAAQAEAAAA + AACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA + /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAP//////////93d3d3d3d3/3////////f/f/ + //////9/9////////3/3////////f/f///////9/9////////3/3////////f/f///////9/93d3d3d3 + d3/3d3d3d3d3f/d3d3d3d3d///////////8AAAAAAAAAAP//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAAoAAAAEAAAACAAAAABAAgAAAAAAAAB + AAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgDx7/AA9vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwMDAwMDAwMDAwEBAQEB + AQEBAQEBAQEBAwMBAgICAgICAgICAgICAQMDAQICAgICAgICAgICAgEDAwECAgICAgICAgICAgIBAwMB + AgICAgICAgICAgICAQMDAQICAgICAgICAgICAgEDAwECAgICAgICAgICAgIBAwMBAgICAgICAgICAgIC + AQMDAQICAgICAgICAgICAgEDAwEBAQEBAQEBAQEBAQEBAwMBAQEBAQEBAQEBAQEBAQMDAQEBAQEBAQEB + AQEBAQEDAwMDAwMDAwMDAwMDAwMDAwAAAAAAAAAAAAAAAAAAAAD//wAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAAKAAAABAAAAAgAAAAAQAgAAAA + AABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC//b29v/29vb/QkJC//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv/29vb/9vb2/0JCQv/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/9vb2//b29v9CQkL/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC//b29v/29vb/QkJC//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv/29vb/9vb2/0JC + Qv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/9vb2//b2 + 9v9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC//b2 + 9v/29vb/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC + Qv/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAAKAAAACAAAABAAAAAAQAEAAAAAAAAAgAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8A + AAD/AP8A//8AAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///////////////////////////////////////////93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3 + d3d3d3f//3f///////////////93//93////////////////d///d////////////////3f//3f///// + //////////93//93////////////////d///d////////////////3f//3f///////////////93//93 + ////////////////d///d////////////////3f//3f///////////////93//93//////////////// + d///d////////////////3f//3f///////////////93//93////////////////d///d/////////// + /////3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 + d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f///////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////////wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////KAAAACAA + AABAAAAAAQAIAAAAAAAABAAAAAAAAAAAAAAAAQAAAAEAAAAAAABCQkIA8e/wAPb29gAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAADAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAwMDAwEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEDAwMDAQECAgICAgICAgICAgICAgICAgICAgICAgIBAQMDAwMBAQIC + AgICAgICAgICAgICAgICAgICAgICAgEBAwMDAwEBAgICAgICAgICAgICAgICAgICAgICAgICAQEDAwMD + AQECAgICAgICAgICAgICAgICAgICAgICAgIBAQMDAwMBAQICAgICAgICAgICAgICAgICAgICAgICAgEB + AwMDAwEBAgICAgICAgICAgICAgICAgICAgICAgICAQEDAwMDAQECAgICAgICAgICAgICAgICAgICAgIC + AgIBAQMDAwMBAQICAgICAgICAgICAgICAgICAgICAgICAgEBAwMDAwEBAgICAgICAgICAgICAgICAgIC + AgICAgICAQEDAwMDAQECAgICAgICAgICAgICAgICAgICAgICAgIBAQMDAwMBAQICAgICAgICAgICAgIC + AgICAgICAgICAgEBAwMDAwEBAgICAgICAgICAgICAgICAgICAgICAgICAQEDAwMDAQECAgICAgICAgIC + AgICAgICAgICAgICAgIBAQMDAwMBAQICAgICAgICAgICAgICAgICAgICAgICAgEBAwMDAwEBAgICAgIC + AgICAgICAgICAgICAgICAgICAQEDAwMDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQMDAwMBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAwMDAwEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEDAwMD + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQMDAwMBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AwMDAwEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////////8oAAAAIAAAAEAA + AAABACAAAAAAAIAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC//b29v/29vb/9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/9vb2//b29v/29vb/QkJC/0JCQv/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v/29vb/9vb2//b29v9CQkL/QkJC//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2//b29v/29vb/9vb2/0JC + Qv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/9vb2//b2 + 9v/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2 + 9v/29vb/9vb2//b29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC + Qv9CQkL/9vb2//b29v/29vb/9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/QkJC/0JCQv/29vb/9vb2//b29v/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v/29vb/9vb2//b29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2//b29v/29vb/9vb2/0JCQv9CQkL/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/9vb2//b29v/29vb/QkJC/0JC + Qv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v/29vb/9vb2//b2 + 9v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2//b2 + 9v/29vb/9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC + Qv/29vb/9vb2//b29v/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P9CQkL/QkJC//b29v/29vb/9vb2//b29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w/0JCQv9CQkL/9vb2//b29v/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/9vb2//b29v9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b2 + 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b2 + 9v/29vb/9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////////wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////// + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmProcessCapture.vb b/app/DD_Clipboard_Searcher/frmProcessCapture.vb new file mode 100644 index 0000000..d4dbfbc --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmProcessCapture.vb @@ -0,0 +1,21 @@ +Public Class frmProcessCapture + Public ProcessId As Integer + Public ProcessName As String + Public WindowTitle As String + + Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick + clsWINDOWSApi.Get_ForegroundWindow_Info() + If CurrPROC_Name <> "DD_Clipboard_Watcher" Then + txtPID.Text = CurrPROC_PID + txtName.Text = CurrPROC_Name + txtWindowTitle.Text = CurrPROC_WindowTitle + ProcessId = CurrPROC_PID + ProcessName = CurrPROC_Name + WindowTitle = CurrPROC_WindowTitle + End If + End Sub + + Private Sub frmProcessCapture_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Timer1.Enabled = True + End Sub +End Class \ No newline at end of file