Final fixes before vacation \o/

This commit is contained in:
Jonathan Jenne 2019-08-08 16:24:31 +02:00
parent aa84e977b9
commit eeb38b5849
21 changed files with 1180 additions and 777 deletions

View File

@ -231,13 +231,16 @@ Public Class ClassInit
Public Shared Sub Refresh_Profile_Links()
Try
Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID)
Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE ACTIVE = 1 AND USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID)
DT_USER_PROFILES = Database.GetDatatable(oSql)
If DT_USER_PROFILES.Rows.Count = 0 Then
MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)
Else
oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}"
DTPROFILE_REL_WINDOW = Database.GetDatatable(oSql)
oSql = $"SELECT * FROM VWCW_PROFILE_REL_CONTROL WHERE USER_ID = {USER_ID}"
DTPROFILE_REL_CONTROL = Database.GetDatatable(oSql)
End If
Catch ex As Exception
Logger.Error(ex)

View File

@ -1,9 +1,10 @@
Imports System.Text.RegularExpressions
Imports DD_Clipboard_Watcher
Imports DD_Clipboard_Watcher.ClassWindowAPI
Public Class ClassProfileFilter
Private _ProfileTable As DataTable
Private _WindowTable As DataTable
Private _ControlTable As DataTable
Private _Profiles As List(Of ProfileData)
Private _DebugData As DebugData
@ -18,6 +19,7 @@ Public Class ClassProfileFilter
Public ProfileType As Integer
Public Windows As List(Of WindowData)
Public Controls As List(Of ControlData)
Public CountDocs As Integer = 0
Public CountData As Integer = 0
@ -30,6 +32,11 @@ Public Class ClassProfileFilter
Public ClipboardRegex As String
End Class
Class ControlData
Public Description As String
Public Regex As String
End Class
' TODO: Fill this Class!!!! :D
Class DebugData
Public ProcessMatch As List(Of String)
@ -44,11 +51,12 @@ Public Class ClassProfileFilter
End Get
End Property
Public Sub New(ProfileDatatable As DataTable, WindowDatatable As DataTable)
Public Sub New(ProfileDatatable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable)
Try
_DebugData = New DebugData()
_ProfileTable = ProfileDatatable
_WindowTable = WindowDatatable
_ControlTable = ControlDatatable
_Profiles = TransformProfiles()
Catch ex As Exception
Logger.Error(ex)
@ -66,45 +74,54 @@ Public Class ClassProfileFilter
Select(Function(p) p.FirstOrDefault())
End Function
Public Function FilterProfilesByProcess(Profiles As IEnumerable(Of ProfileData), CurrentProcessName As String) As IEnumerable(Of ProfileData)
Return Profiles.
Where(Function(p)
If p.ProcessName.ToLower = CurrentProcessName.ToLower Then
'TODO: Add Debug Data
Return True
Else
Return False
End If
End Function)
Public Function FilterProfilesByProcess(Profiles As List(Of ProfileData), CurrentProcessName As String) As List(Of ProfileData)
Dim oFilteredProfiles As New List(Of ProfileData)
For Each oProfile In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name)
If oProfile.ProcessName.ToLower = CurrentProcessName.ToLower Then
Logger.Debug("Processname Matched: {0}", oProfile.ProcessName.ToLower)
'TODO: Add Debug Data
oFilteredProfiles.Add(oProfile)
End If
Next
Return oFilteredProfiles
End Function
Public Function FilterProfilesByClipboardRegex(Profiles As IEnumerable(Of ProfileData), ClipboardContents As String) As IEnumerable(Of ProfileData)
Return Profiles.
Where(Function(p)
Try
Dim oRegex As New Regex(p.Regex)
Dim oMatch = oRegex.Match(ClipboardContents)
If oMatch.Success Then
'TODO: Add Debug Data
Return True
Else
Return False
End If
Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", p.Regex, ClipboardContents)
Logger.Error(ex)
Return False
End Try
End Function)
Public Function FilterProfilesByClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
Dim oFilteredProfiles As New List(Of ProfileData)
For Each oProfile In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name)
Try
Dim oRegex As New Regex(oProfile.Regex)
Dim oMatch = oRegex.Match(ClipboardContents)
If oMatch.Success Then
Logger.Debug("Global Clipboard Regex Matched: {0}", ClipboardContents)
'TODO: Add Debug Data
oFilteredProfiles.Add(oProfile)
End If
Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents)
Logger.Error(ex)
End Try
Next
Return oFilteredProfiles
End Function
Public Function FilterWindowsByWindowTitleRegex(Profiles As IEnumerable(Of ProfileData), WindowTitle As String) As IEnumerable(Of ProfileData)
Public Function FilterWindowsByWindowTitleRegex(Profiles As List(Of ProfileData), WindowTitle As String) As List(Of ProfileData)
Dim oProfiles As New List(Of ProfileData)
For Each p As ProfileData In Profiles
For Each oProfile As ProfileData In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name)
Dim oWindows As New List(Of WindowData)
For Each w As WindowData In p.Windows
For Each w As WindowData In oProfile.Windows
Try
If w.Regex = String.Empty Then
oWindows.Add(w)
@ -114,6 +131,7 @@ Public Class ClassProfileFilter
Dim oMatch = oRegex.Match(WindowTitle)
If oMatch.Success Then
Logger.Debug("Window Title Regex Matched: {0}", WindowTitle)
'TODO: Add Debug Data
oWindows.Add(w)
End If
@ -123,38 +141,107 @@ Public Class ClassProfileFilter
End Try
Next
p.Windows = oWindows
If oWindows.Count > 0 Then
oProfile.Windows = oWindows
oProfiles.Add(oProfile)
End If
Next
Return oProfiles
End Function
Public Function FilterProfilesByWindowClipboardRegex(Profiles As IEnumerable(Of ProfileData), ClipboardContents As String) As IEnumerable(Of ProfileData)
Return _Profiles.Where(Function(p)
If p.Windows.Count = 0 Then Return True
Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
Dim oProfiles As New List(Of ProfileData)
Return p.Windows.
Any(Function(w)
Try
If w.ClipboardRegex = String.Empty Then Return True
For Each oProfile As ProfileData In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name)
Dim oRegex As New Regex(w.ClipboardRegex)
Dim oMatch = oRegex.Match(ClipboardContents)
Dim oWindows As New List(Of WindowData)
If oMatch.Success Then
'TODO: Add Debug Data
Return True
Else
Return False
End If
Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.ClipboardRegex, ClipboardContents)
Logger.Error(ex)
Return False
End Try
End Function)
End Function)
For Each w As WindowData In oProfile.Windows
Try
If w.ClipboardRegex = String.Empty Then
oWindows.Add(w)
End If
Dim oRegex As New Regex(w.ClipboardRegex)
Dim oMatch = oRegex.Match(ClipboardContents)
If oMatch.Success Then
Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents)
'TODO: Add Debug Data
oWindows.Add(w)
End If
Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.ClipboardRegex, ClipboardContents)
Logger.Error(ex)
End Try
Next
If oWindows.Count > 0 Then
oProfile.Windows = oWindows
oProfiles.Add(oProfile)
End If
Next
Return oProfiles
End Function
Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData)) As List(Of ProfileData)
Dim oWindow As WindowInfo
Dim oFocusedControl As WindowInfo
Try
oWindow = GetWindowInfo()
oFocusedControl = GetFocusedControl(oWindow.hWnd)
If oFocusedControl Is Nothing OrElse oFocusedControl.ControlName = String.Empty Then
Logger.Warn("Could not get FocusedControl in Window {0}", oWindow.WindowTitle)
Return Profiles
End If
Catch ex As Exception
Logger.Warn("Error while getting Focused control")
Logger.Error(ex)
Return Profiles
End Try
Dim oFilteredProfiles As New List(Of ProfileData)
For Each oProfile In Profiles
Logger.Debug("Current Profile: {0}", oProfile.Name)
If oProfile.Controls.Count = 0 Then
oFilteredProfiles.Add(oProfile)
End If
Dim oControls As New List(Of ControlData)
For Each c In oProfile.Controls
Try
If c.Regex = String.Empty Then
oControls.Add(c)
End If
Dim oRegex As New Regex(c.Regex)
Dim oMatch = oRegex.Match(oFocusedControl.ControlName)
If oMatch.Success Then
Logger.Debug("Focused Control Name Regex Matched: {0}", oFocusedControl.ControlName)
'TODO: Add Debug Data
oControls.Add(c)
End If
Catch ex As Exception
Logger.Warn("Regex '{0}' could not be processed for input '{1}'", c.Regex, oFocusedControl.ControlName)
Logger.Error(ex)
End Try
Next
If oControls.Count > 0 Then
oProfile.Controls = oControls
oFilteredProfiles.Add(oProfile)
End If
Next
Return oFilteredProfiles
End Function
Private Function TransformProfiles() As List(Of ProfileData)
@ -163,6 +250,7 @@ Public Class ClassProfileFilter
For Each oRow As DataRow In _ProfileTable.Rows
Dim oProfileId = oRow.Item("GUID")
Dim oWindowList As List(Of WindowData) = TransformWindows(oProfileId, _WindowTable)
Dim oControlList As List(Of ControlData) = TransformControls(oProfileId, _ControlTable)
oList.Add(New ProfileData() With {
.Guid = oRow.Item("GUID"),
@ -173,13 +261,29 @@ Public Class ClassProfileFilter
.SQLCountDocs = oRow.Item("SQL_COUNT_DOCS"),
.SQLCountData = oRow.Item("SQL_COUNT_DATA"),
.ProfileType = oRow.Item("PROFILE_TYPE"),
.Windows = oWindowList
.Windows = oWindowList,
.Controls = oControlList
})
Next
Return oList
End Function
Private Function TransformControls(ProfileId As Integer, ControlDatatable As DataTable) As List(Of ControlData)
Dim oControlList As New List(Of ControlData)
For Each oRow As DataRow In ControlDatatable.Rows
If oRow.Item("PROFILE_ID") = ProfileId Then
oControlList.Add(New ControlData() With {
.Description = oRow.Item("DESCRIPTION"),
.Regex = oRow.Item("REGEX")
})
End If
Next
Return oControlList
End Function
Private Function TransformWindows(ProfileId As Integer, WindowDatatable As DataTable) As List(Of WindowData)
Dim oWindowList As New List(Of WindowData)

View File

@ -67,6 +67,9 @@
<Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Controls.RegexEditor">
<HintPath>..\..\..\DDMonorepo\Controls.RegexEditor\bin\Debug\DigitalData.Controls.RegexEditor.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
@ -90,9 +93,6 @@
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="RegexEditor">
<HintPath>..\..\..\DDMonorepo\Controls.RegexEditor\bin\Debug\RegexEditor.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />

View File

@ -12032,16 +12032,28 @@ Namespace MyDatasetTableAdapters
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_PROF_REL_CONTROL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL"
Me._commandCollection(0).CommandText = "SELECT TBCW_PROF_REL_CONTROL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL WHER"& _
"E PROCESS_NAME = @PROCESS_NAME AND WINDOW_ID = @WINDOW_ID AND PROFILE_ID = @PROF"& _
"ILE_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("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable, ByVal PROCESS_NAME As String, ByVal WINDOW_ID As Integer, ByVal PROFILE_ID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
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(WINDOW_ID,Integer)
Me.Adapter.SelectCommand.Parameters(2).Value = CType(PROFILE_ID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@ -12053,8 +12065,15 @@ 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_PROF_REL_CONTROLDataTable
Public Overloads Overridable Function GetData(ByVal PROCESS_NAME As String, ByVal WINDOW_ID As Integer, ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_REL_CONTROLDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
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(WINDOW_ID,Integer)
Me.Adapter.SelectCommand.Parameters(2).Value = CType(PROFILE_ID,Integer)
Dim dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable = New MyDataset.TBCW_PROF_REL_CONTROLDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable

View File

@ -752,8 +752,12 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT TBCW_PROF_REL_CONTROL.*
FROM TBCW_PROF_REL_CONTROL</CommandText>
<Parameters />
FROM TBCW_PROF_REL_CONTROL WHERE PROCESS_NAME = @PROCESS_NAME AND WINDOW_ID = @WINDOW_ID AND PROFILE_ID = @PROFILE_ID</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROCESS_NAME" ColumnName="PROCESS_NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@PROCESS_NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="PROCESS_NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDOW_ID" ColumnName="WINDOW_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WINDOW_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WINDOW_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFILE_ID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROF_REL_CONTROL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFILE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
@ -814,7 +818,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
<xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBCW_PROFILES" msprop:Generator_TableClassName="TBCW_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILES" msprop:Generator_TablePropName="TBCW_PROFILES" msprop:Generator_RowDeletingName="TBCW_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILESRowDeleted" msprop:Generator_UserTableName="TBCW_PROFILES" msprop:Generator_RowChangedName="TBCW_PROFILESRowChanged" msprop:Generator_RowEvArgName="TBCW_PROFILESRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROFILESRow">
<xs:element name="TBCW_PROFILES" msprop:Generator_TableClassName="TBCW_PROFILESDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILES" msprop:Generator_RowChangedName="TBCW_PROFILESRowChanged" msprop:Generator_TablePropName="TBCW_PROFILES" msprop:Generator_RowDeletingName="TBCW_PROFILESRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILESRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILESRowDeleted" msprop:Generator_RowClassName="TBCW_PROFILESRow" msprop:Generator_UserTableName="TBCW_PROFILES" msprop:Generator_RowEvArgName="TBCW_PROFILESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -867,7 +871,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_USER_PROFILE" msprop:Generator_TableClassName="TBCW_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_USER_PROFILE" msprop:Generator_TablePropName="TBCW_USER_PROFILE" msprop:Generator_RowDeletingName="TBCW_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_USER_PROFILERowDeleted" msprop:Generator_UserTableName="TBCW_USER_PROFILE" msprop:Generator_RowChangedName="TBCW_USER_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCW_USER_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCW_USER_PROFILERow">
<xs:element name="TBCW_USER_PROFILE" msprop:Generator_TableClassName="TBCW_USER_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_USER_PROFILE" msprop:Generator_RowChangedName="TBCW_USER_PROFILERowChanged" msprop:Generator_TablePropName="TBCW_USER_PROFILE" msprop:Generator_RowDeletingName="TBCW_USER_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_USER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_USER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_USER_PROFILERowDeleted" msprop:Generator_RowClassName="TBCW_USER_PROFILERow" msprop:Generator_UserTableName="TBCW_USER_PROFILE" msprop:Generator_RowEvArgName="TBCW_USER_PROFILERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -884,7 +888,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_RowClassName="VWUSER_PROFILERow" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent">
<xs:element name="VWUSER_PROFILE" msprop:Generator_TableClassName="VWUSER_PROFILEDataTable" msprop:Generator_TableVarName="tableVWUSER_PROFILE" msprop:Generator_TablePropName="VWUSER_PROFILE" msprop:Generator_RowDeletingName="VWUSER_PROFILERowDeleting" msprop:Generator_RowChangingName="VWUSER_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWUSER_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWUSER_PROFILERowDeleted" msprop:Generator_UserTableName="VWUSER_PROFILE" msprop:Generator_RowChangedName="VWUSER_PROFILERowChanged" msprop:Generator_RowEvArgName="VWUSER_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWUSER_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -913,7 +917,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent" msprop:Generator_RowClassName="TBWH_UserRow">
<xs:element name="TBWH_User" msprop:Generator_TableClassName="TBWH_UserDataTable" msprop:Generator_TableVarName="tableTBWH_User" msprop:Generator_RowChangedName="TBWH_UserRowChanged" msprop:Generator_TablePropName="TBWH_User" msprop:Generator_RowDeletingName="TBWH_UserRowDeleting" msprop:Generator_RowChangingName="TBWH_UserRowChanging" msprop:Generator_RowEvHandlerName="TBWH_UserRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_UserRowDeleted" msprop:Generator_RowClassName="TBWH_UserRow" msprop:Generator_UserTableName="TBWH_User" msprop:Generator_RowEvArgName="TBWH_UserRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Username" msprop:Generator_ColumnVarNameInTable="columnUsername" msprop:Generator_ColumnPropNameInRow="Username" msprop:Generator_ColumnPropNameInTable="UsernameColumn" msprop:Generator_UserColumnName="Username" type="xs:string" minOccurs="0" />
@ -924,7 +928,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCW_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCW_PROFILE_PROCESSRowChanged" msprop:Generator_TablePropName="TBCW_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCW_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILE_PROCESSRowDeleted" msprop:Generator_RowClassName="TBCW_PROFILE_PROCESSRow" msprop:Generator_UserTableName="TBCW_PROFILE_PROCESS" msprop:Generator_RowEvArgName="TBCW_PROFILE_PROCESSRowChangeEvent">
<xs:element name="TBCW_PROFILE_PROCESS" msprop:Generator_TableClassName="TBCW_PROFILE_PROCESSDataTable" msprop:Generator_TableVarName="tableTBCW_PROFILE_PROCESS" msprop:Generator_TablePropName="TBCW_PROFILE_PROCESS" msprop:Generator_RowDeletingName="TBCW_PROFILE_PROCESSRowDeleting" msprop:Generator_RowChangingName="TBCW_PROFILE_PROCESSRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROFILE_PROCESSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROFILE_PROCESSRowDeleted" msprop:Generator_UserTableName="TBCW_PROFILE_PROCESS" msprop:Generator_RowChangedName="TBCW_PROFILE_PROCESSRowChanged" msprop:Generator_RowEvArgName="TBCW_PROFILE_PROCESSRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROFILE_PROCESSRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -947,7 +951,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_DATA_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DATA_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DATA_SEARCH" msprop:Generator_TablePropName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DATA_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DATA_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DATA_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DATA_SEARCHRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DATA_SEARCHRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_DATA_SEARCHRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_DATA_SEARCHRow">
<xs:element name="TBCW_PROF_DATA_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DATA_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DATA_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DATA_SEARCHRowChanged" msprop:Generator_TablePropName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DATA_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DATA_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DATA_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DATA_SEARCHRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_DATA_SEARCHRow" msprop:Generator_UserTableName="TBCW_PROF_DATA_SEARCH" msprop:Generator_RowEvArgName="TBCW_PROF_DATA_SEARCHRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -995,7 +999,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_DOC_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DOC_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DOC_SEARCH" msprop:Generator_TablePropName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DOC_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DOC_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DOC_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DOC_SEARCHRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DOC_SEARCHRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_DOC_SEARCHRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_DOC_SEARCHRow">
<xs:element name="TBCW_PROF_DOC_SEARCH" msprop:Generator_TableClassName="TBCW_PROF_DOC_SEARCHDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_DOC_SEARCH" msprop:Generator_RowChangedName="TBCW_PROF_DOC_SEARCHRowChanged" msprop:Generator_TablePropName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowDeletingName="TBCW_PROF_DOC_SEARCHRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_DOC_SEARCHRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_DOC_SEARCHRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_DOC_SEARCHRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_DOC_SEARCHRow" msprop:Generator_UserTableName="TBCW_PROF_DOC_SEARCH" msprop:Generator_RowEvArgName="TBCW_PROF_DOC_SEARCHRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1043,7 +1047,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_GROUP_PROFILE" msprop:Generator_TableClassName="TBCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_GROUP_PROFILE" msprop:Generator_TablePropName="TBCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="TBCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_GROUP_PROFILERowDeleted" msprop:Generator_UserTableName="TBCW_GROUP_PROFILE" msprop:Generator_RowChangedName="TBCW_GROUP_PROFILERowChanged" msprop:Generator_RowEvArgName="TBCW_GROUP_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBCW_GROUP_PROFILERow">
<xs:element name="TBCW_GROUP_PROFILE" msprop:Generator_TableClassName="TBCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableTBCW_GROUP_PROFILE" msprop:Generator_RowChangedName="TBCW_GROUP_PROFILERowChanged" msprop:Generator_TablePropName="TBCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="TBCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="TBCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_GROUP_PROFILERowDeleted" msprop:Generator_RowClassName="TBCW_GROUP_PROFILERow" msprop:Generator_UserTableName="TBCW_GROUP_PROFILE" msprop:Generator_RowEvArgName="TBCW_GROUP_PROFILERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1060,7 +1064,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_GROUP" msprop:Generator_TableClassName="TBWH_GROUPDataTable" msprop:Generator_TableVarName="tableTBWH_GROUP" msprop:Generator_TablePropName="TBWH_GROUP" msprop:Generator_RowDeletingName="TBWH_GROUPRowDeleting" msprop:Generator_RowChangingName="TBWH_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBWH_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_GROUPRowDeleted" msprop:Generator_UserTableName="TBWH_GROUP" msprop:Generator_RowChangedName="TBWH_GROUPRowChanged" msprop:Generator_RowEvArgName="TBWH_GROUPRowChangeEvent" msprop:Generator_RowClassName="TBWH_GROUPRow">
<xs:element name="TBWH_GROUP" msprop:Generator_TableClassName="TBWH_GROUPDataTable" msprop:Generator_TableVarName="tableTBWH_GROUP" msprop:Generator_RowChangedName="TBWH_GROUPRowChanged" msprop:Generator_TablePropName="TBWH_GROUP" msprop:Generator_RowDeletingName="TBWH_GROUPRowDeleting" msprop:Generator_RowChangingName="TBWH_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBWH_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_GROUPRowDeleted" msprop:Generator_RowClassName="TBWH_GROUPRow" msprop:Generator_UserTableName="TBWH_GROUP" msprop:Generator_RowEvArgName="TBWH_GROUPRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="ID" msprop:Generator_ColumnVarNameInTable="columnID" msprop:Generator_ColumnPropNameInRow="ID" msprop:Generator_ColumnPropNameInTable="IDColumn" msprop:Generator_UserColumnName="ID" type="xs:string" minOccurs="0" />
@ -1068,7 +1072,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWCW_GROUP_PROFILE" msprop:Generator_TableClassName="VWCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableVWCW_GROUP_PROFILE" msprop:Generator_TablePropName="VWCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="VWCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="VWCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWCW_GROUP_PROFILERowDeleted" msprop:Generator_UserTableName="VWCW_GROUP_PROFILE" msprop:Generator_RowChangedName="VWCW_GROUP_PROFILERowChanged" msprop:Generator_RowEvArgName="VWCW_GROUP_PROFILERowChangeEvent" msprop:Generator_RowClassName="VWCW_GROUP_PROFILERow">
<xs:element name="VWCW_GROUP_PROFILE" msprop:Generator_TableClassName="VWCW_GROUP_PROFILEDataTable" msprop:Generator_TableVarName="tableVWCW_GROUP_PROFILE" msprop:Generator_RowChangedName="VWCW_GROUP_PROFILERowChanged" msprop:Generator_TablePropName="VWCW_GROUP_PROFILE" msprop:Generator_RowDeletingName="VWCW_GROUP_PROFILERowDeleting" msprop:Generator_RowChangingName="VWCW_GROUP_PROFILERowChanging" msprop:Generator_RowEvHandlerName="VWCW_GROUP_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="VWCW_GROUP_PROFILERowDeleted" msprop:Generator_RowClassName="VWCW_GROUP_PROFILERow" msprop:Generator_UserTableName="VWCW_GROUP_PROFILE" msprop:Generator_RowEvArgName="VWCW_GROUP_PROFILERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1082,7 +1086,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_PROFILE_TYPE" msprop:Generator_TableClassName="TBWH_PROFILE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_PROFILE_TYPE" msprop:Generator_RowChangedName="TBWH_PROFILE_TYPERowChanged" msprop:Generator_TablePropName="TBWH_PROFILE_TYPE" msprop:Generator_RowDeletingName="TBWH_PROFILE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_PROFILE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_PROFILE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_PROFILE_TYPERowDeleted" msprop:Generator_RowClassName="TBWH_PROFILE_TYPERow" msprop:Generator_UserTableName="TBWH_PROFILE_TYPE" msprop:Generator_RowEvArgName="TBWH_PROFILE_TYPERowChangeEvent">
<xs:element name="TBWH_PROFILE_TYPE" msprop:Generator_TableClassName="TBWH_PROFILE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_PROFILE_TYPE" msprop:Generator_TablePropName="TBWH_PROFILE_TYPE" msprop:Generator_RowDeletingName="TBWH_PROFILE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_PROFILE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_PROFILE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_PROFILE_TYPERowDeleted" msprop:Generator_UserTableName="TBWH_PROFILE_TYPE" msprop:Generator_RowChangedName="TBWH_PROFILE_TYPERowChanged" msprop:Generator_RowEvArgName="TBWH_PROFILE_TYPERowChangeEvent" msprop:Generator_RowClassName="TBWH_PROFILE_TYPERow">
<xs:complexType>
<xs:sequence>
<xs:element name="TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_UserColumnName="TYPE_ID" type="xs:short" default="0" />
@ -1090,7 +1094,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_REL_WINDOW" msprop:Generator_TableClassName="TBCW_PROF_REL_WINDOWDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_WINDOW" msprop:Generator_RowChangedName="TBCW_PROF_REL_WINDOWRowChanged" msprop:Generator_TablePropName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowDeletingName="TBCW_PROF_REL_WINDOWRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_WINDOWRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_WINDOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_WINDOWRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_REL_WINDOWRow" msprop:Generator_UserTableName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowEvArgName="TBCW_PROF_REL_WINDOWRowChangeEvent">
<xs:element name="TBCW_PROF_REL_WINDOW" msprop:Generator_TableClassName="TBCW_PROF_REL_WINDOWDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_WINDOW" msprop:Generator_TablePropName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowDeletingName="TBCW_PROF_REL_WINDOWRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_WINDOWRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_WINDOWRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_WINDOWRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_REL_WINDOW" msprop:Generator_RowChangedName="TBCW_PROF_REL_WINDOWRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_REL_WINDOWRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_REL_WINDOWRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1143,7 +1147,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBDD_CONNECTIONRow" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent">
<xs:element name="TBDD_CONNECTION" msprop:Generator_TableClassName="TBDD_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBDD_CONNECTION" msprop:Generator_TablePropName="TBDD_CONNECTION" msprop:Generator_RowDeletingName="TBDD_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBDD_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBDD_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBDD_CONNECTION" msprop:Generator_RowChangedName="TBDD_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBDD_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBDD_CONNECTIONRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@ -1216,7 +1220,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBCW_PROF_REL_CONTROL" msprop:Generator_TableClassName="TBCW_PROF_REL_CONTROLDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_CONTROL" msprop:Generator_TablePropName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowDeletingName="TBCW_PROF_REL_CONTROLRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_CONTROLRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_CONTROLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_CONTROLRowDeleted" msprop:Generator_UserTableName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowChangedName="TBCW_PROF_REL_CONTROLRowChanged" msprop:Generator_RowEvArgName="TBCW_PROF_REL_CONTROLRowChangeEvent" msprop:Generator_RowClassName="TBCW_PROF_REL_CONTROLRow">
<xs:element name="TBCW_PROF_REL_CONTROL" msprop:Generator_TableClassName="TBCW_PROF_REL_CONTROLDataTable" msprop:Generator_TableVarName="tableTBCW_PROF_REL_CONTROL" msprop:Generator_RowChangedName="TBCW_PROF_REL_CONTROLRowChanged" msprop:Generator_TablePropName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowDeletingName="TBCW_PROF_REL_CONTROLRowDeleting" msprop:Generator_RowChangingName="TBCW_PROF_REL_CONTROLRowChanging" msprop:Generator_RowEvHandlerName="TBCW_PROF_REL_CONTROLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBCW_PROF_REL_CONTROLRowDeleted" msprop:Generator_RowClassName="TBCW_PROF_REL_CONTROLRow" msprop:Generator_UserTableName="TBCW_PROF_REL_CONTROL" msprop:Generator_RowEvArgName="TBCW_PROF_REL_CONTROLRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1312,10 +1316,10 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE,
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_PROF_ID" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_PROF_ID" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_PROF_ID" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DATA_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_DOC_SEARCH" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_PROF_ID" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_PROF_ID" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_PROF_ID" msprop:Generator_UserParentTable="TBCW_PROFILES" />
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_PROF_IF" msdata:parent="TBCW_PROFILES" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="PROFILE_ID" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_PROF_IF" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_PROF_IF" msprop:Generator_UserParentTable="TBCW_PROFILES" msprop:Generator_ParentPropName="TBCW_PROFILESRow" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

View File

@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-5" ViewPortY="-54" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="18" X="13" Y="-44" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="4" X="680" Y="299" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
@ -16,10 +16,10 @@
<Shape ID="DesignTable:VWCW_GROUP_PROFILE" ZOrder="9" X="1252" Y="5" Height="248" Width="218" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBCW_PROF_REL_WINDOW" ZOrder="7" X="10" Y="270" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="3" X="675" Y="483" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="328" Y="334" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBWH_User" ZOrder="16" X="1221" Y="436" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
<Shape ID="DesignTable:TBWH_GROUP" ZOrder="10" X="1240" Y="329" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBWH_PROFILE_TYPE" ZOrder="8" X="1204" Y="609" Height="67" Width="190" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBCW_PROF_REL_CONTROL" ZOrder="2" X="328" Y="334" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBCW_PROF_DATA_SEARCH_PROF_IF" ZOrder="13" LineWidth="11">

View File

@ -34,12 +34,17 @@ Partial Class ctrlApplicationAssignment
Me.colREGEX = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemRegexEdit = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit()
Me.colREGEX_CLIPBOARD = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSEQUENCE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit()
Me.Label1 = New System.Windows.Forms.Label()
Me.GridControl_Control = New DevExpress.XtraGrid.GridControl()
Me.TBCW_PROF_REL_CONTROLBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridView_Control = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colREGEX1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RepositoryItemButtonEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit()
Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Label2 = New System.Windows.Forms.Label()
Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.TBCW_PROFILE_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridViewProcessProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -47,6 +52,9 @@ Partial Class ctrlApplicationAssignment
Me.colPROC_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBCW_PROFILE_PROCESSTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROFILE_PROCESSTableAdapter()
Me.TBCW_PROF_REL_WINDOWTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_WINDOWTableAdapter()
Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter()
Me.TableAdapterManager = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager()
Me.TBCW_PROF_REL_CONTROLTableAdapter = New DD_Clipboard_Watcher.MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter()
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer3.Panel1.SuspendLayout()
Me.SplitContainer3.Panel2.SuspendLayout()
@ -58,7 +66,10 @@ Partial Class ctrlApplicationAssignment
CType(Me.RepositoryItemRegexEdit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl_Control, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).BeginInit()
@ -111,7 +122,7 @@ Partial Class ctrlApplicationAssignment
'
Me.GridView_Window.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.GridView_Window.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView_Window.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPROCESS_NAME, Me.colGUID, Me.colDESCRIPTION, Me.colREGEX, Me.colREGEX_CLIPBOARD, Me.colSEQUENCE})
Me.GridView_Window.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPROCESS_NAME, Me.colGUID, Me.colDESCRIPTION, Me.colREGEX, Me.colREGEX_CLIPBOARD})
Me.GridView_Window.GridControl = Me.GridControl_Window
Me.GridView_Window.Name = "GridView_Window"
Me.GridView_Window.OptionsView.EnableAppearanceEvenRow = True
@ -159,15 +170,6 @@ Partial Class ctrlApplicationAssignment
Me.colREGEX_CLIPBOARD.Visible = True
Me.colREGEX_CLIPBOARD.VisibleIndex = 2
'
'colSEQUENCE
'
Me.colSEQUENCE.Caption = "Anordnung"
Me.colSEQUENCE.ColumnEdit = Me.RepositoryItemSpinEdit1
Me.colSEQUENCE.FieldName = "SEQUENCE"
Me.colSEQUENCE.Name = "colSEQUENCE"
Me.colSEQUENCE.Visible = True
Me.colSEQUENCE.VisibleIndex = 3
'
'RepositoryItemSpinEdit1
'
Me.RepositoryItemSpinEdit1.AutoHeight = False
@ -187,23 +189,60 @@ Partial Class ctrlApplicationAssignment
'
'GridControl_Control
'
Me.GridControl_Control.DataSource = Me.TBCW_PROF_REL_CONTROLBindingSource
Me.GridControl_Control.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl_Control.Enabled = False
Me.GridControl_Control.Location = New System.Drawing.Point(0, 25)
Me.GridControl_Control.MainView = Me.GridView_Control
Me.GridControl_Control.Name = "GridControl_Control"
Me.GridControl_Control.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemButtonEdit1})
Me.GridControl_Control.Size = New System.Drawing.Size(915, 302)
Me.GridControl_Control.TabIndex = 69
Me.GridControl_Control.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Control})
'
'TBCW_PROF_REL_CONTROLBindingSource
'
Me.TBCW_PROF_REL_CONTROLBindingSource.DataMember = "TBCW_PROF_REL_CONTROL"
Me.TBCW_PROF_REL_CONTROLBindingSource.DataSource = Me.MyDataset
'
'GridView_Control
'
Me.GridView_Control.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.GridView_Control.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView_Control.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colREGEX1, Me.colDESCRIPTION1, Me.colGUID1})
Me.GridView_Control.CustomizationFormBounds = New System.Drawing.Rectangle(902, 520, 252, 236)
Me.GridView_Control.GridControl = Me.GridControl_Control
Me.GridView_Control.Name = "GridView_Control"
Me.GridView_Control.OptionsView.EnableAppearanceEvenRow = True
'
'colREGEX1
'
Me.colREGEX1.Caption = "Feld Name Regex"
Me.colREGEX1.ColumnEdit = Me.RepositoryItemButtonEdit1
Me.colREGEX1.FieldName = "REGEX"
Me.colREGEX1.Name = "colREGEX1"
Me.colREGEX1.Visible = True
Me.colREGEX1.VisibleIndex = 0
'
'RepositoryItemButtonEdit1
'
Me.RepositoryItemButtonEdit1.AutoHeight = False
Me.RepositoryItemButtonEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()})
Me.RepositoryItemButtonEdit1.Name = "RepositoryItemButtonEdit1"
'
'colDESCRIPTION1
'
Me.colDESCRIPTION1.Caption = "Beschreibung"
Me.colDESCRIPTION1.FieldName = "DESCRIPTION"
Me.colDESCRIPTION1.Name = "colDESCRIPTION1"
Me.colDESCRIPTION1.Visible = True
Me.colDESCRIPTION1.VisibleIndex = 1
'
'colGUID1
'
Me.colGUID1.Caption = "GUID"
Me.colGUID1.FieldName = "GUID"
Me.colGUID1.Name = "colGUID1"
'
'Label2
'
Me.Label2.Dock = System.Windows.Forms.DockStyle.Top
@ -215,6 +254,11 @@ Partial Class ctrlApplicationAssignment
Me.Label2.Text = "Zugeordnete Felder:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TBCW_PROF_DOC_SEARCHBindingSource
'
Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH"
Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.MyDataset
'
'GridControl3
'
Me.GridControl3.DataSource = Me.TBCW_PROFILE_PROCESSBindingSource
@ -271,6 +315,28 @@ Partial Class ctrlApplicationAssignment
'
Me.TBCW_PROF_REL_WINDOWTableAdapter.ClearBeforeFill = True
'
'TBCW_PROF_DOC_SEARCHTableAdapter
'
Me.TBCW_PROF_DOC_SEARCHTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBCW_GROUP_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBCW_PROF_DATA_SEARCHTableAdapter = Nothing
Me.TableAdapterManager.TBCW_PROF_DOC_SEARCHTableAdapter = Me.TBCW_PROF_DOC_SEARCHTableAdapter
Me.TableAdapterManager.TBCW_PROF_REL_CONTROLTableAdapter = Nothing
Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Me.TBCW_PROF_REL_WINDOWTableAdapter
Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Me.TBCW_PROFILE_PROCESSTableAdapter
Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing
Me.TableAdapterManager.TBCW_USER_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Clipboard_Watcher.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBCW_PROF_REL_CONTROLTableAdapter
'
Me.TBCW_PROF_REL_CONTROLTableAdapter.ClearBeforeFill = True
'
'ctrlApplicationAssignment
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -290,7 +356,10 @@ Partial Class ctrlApplicationAssignment
CType(Me.RepositoryItemRegexEdit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl_Control, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBCW_PROF_REL_CONTROLBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView_Control, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemButtonEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBCW_PROFILE_PROCESSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewProcessProfile, System.ComponentModel.ISupportInitialize).EndInit()
@ -302,7 +371,6 @@ Partial Class ctrlApplicationAssignment
Friend WithEvents GridControl_Window As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView_Window As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colPROCESS_NAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colSEQUENCE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colREGEX As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colREGEX_CLIPBOARD As DevExpress.XtraGrid.Columns.GridColumn
@ -322,4 +390,14 @@ Partial Class ctrlApplicationAssignment
Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource
Friend WithEvents TBCW_PROF_DOC_SEARCHTableAdapter As MyDatasetTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter
Friend WithEvents TableAdapterManager As MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents TBCW_PROF_REL_CONTROLBindingSource As BindingSource
Friend WithEvents TBCW_PROF_REL_CONTROLTableAdapter As MyDatasetTableAdapters.TBCW_PROF_REL_CONTROLTableAdapter
Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colREGEX1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents RepositoryItemRegexEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit
Friend WithEvents RepositoryItemButtonEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemButtonEdit
Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn
End Class

View File

@ -123,6 +123,12 @@
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>558, 12</value>
</metadata>
<metadata name="TBCW_PROF_REL_CONTROLBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>741, 56</value>
</metadata>
<metadata name="TBCW_PROF_DOC_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="TBCW_PROFILE_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>20, 10</value>
</metadata>
@ -132,6 +138,15 @@
<metadata name="TBCW_PROF_REL_WINDOWTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>703, 18</value>
</metadata>
<metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>295, 56</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>568, 56</value>
</metadata>
<metadata name="TBCW_PROF_REL_CONTROLTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1024, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>112</value>
</metadata>

View File

@ -8,13 +8,16 @@ Imports DigitalData.Controls.RegexEditor
Public Class ctrlApplicationAssignment
Private Current_ProfileId As Integer
Private Current_WindowId As Integer
Private Current_ProcessName As String
Private Sub ctrlApplicationAssignment_Load(sender As Object, e As EventArgs) Handles Me.Load
TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_REL_WINDOWTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_REL_CONTROLTableAdapter.Connection.ConnectionString = MyConnectionString
AddHandler RepositoryItemRegexEdit.ButtonClick, AddressOf RepositoryItemRegexEdit_Click
AddHandler RepositoryItemButtonEdit1.ButtonClick, AddressOf RepositoryItemRegexEdit_Click
End Sub
Public Function Process_Load(ProfileId As Integer) As Boolean
@ -156,7 +159,18 @@ Public Class ctrlApplicationAssignment
End Try
End Function
Public Function Control_CreateAssignment(ProfileId As Integer, WindowId As Integer)
Public Function Control_Load() As Boolean
Try
TBCW_PROF_REL_CONTROLTableAdapter.Fill(MyDataset.TBCW_PROF_REL_CONTROL, Current_ProcessName, Current_WindowId, Current_ProfileId)
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Public Function Control_CreateAssignment(ProfileId As Integer) As Boolean
Dim oForm As New frmControlCapture()
Dim oResult = oForm.ShowDialog()
@ -166,21 +180,55 @@ Public Class ctrlApplicationAssignment
Dim oProcessName As String = oForm.ProcessName
If oControlTitle <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$','{4}')", ProfileId, oProcessName, oProcessName, oControlTitle, Environment.UserName)
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (PROFILE_ID, DESCRIPTION, PROCESS_NAME, REGEX, WINDOW_ID, ADDED_WHO) VALUES ({0}, '{1}', '{2}','^{3}$',{4},'{5}')", ProfileId, Current_ProcessName, Current_ProcessName, oControlTitle, Current_WindowId, Environment.UserName)
If Database.ExecuteNonQuery(insert) = False Then
Return False
End If
End If
Window_Load()
Control_Load()
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
Else
Return True
End If
End Function
Public Function Control_SaveAssignment() As Boolean
Try
GridView_Control.CloseEditor()
TBCW_PROF_REL_CONTROLBindingSource.EndEdit()
If Not IsNothing(MyDataset.TBCW_PROF_REL_CONTROL.GetChanges) Then
TBCW_PROF_REL_CONTROLBindingSource.EndEdit()
TBCW_PROF_REL_CONTROLTableAdapter.Update(MyDataset.TBCW_PROF_REL_CONTROL)
End If
Return True
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Public Function Control_DeleteAssignment() As Boolean
Try
Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then
Window_Load()
Return True
End If
Return False
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
Private Sub GridViewProcessProfile_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProcessProfile.FocusedRowChanged
If e.FocusedRowHandle < 0 Then
Exit Sub
@ -201,6 +249,17 @@ Public Class ctrlApplicationAssignment
Replace(vbNullChar, "")
End Function
Private Sub GridView_Window_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView_Window.FocusedRowChanged
If e.FocusedRowHandle < 0 Then
Exit Sub
End If
Dim oSelectedRow As DataRow = GridViewProcessProfile.GetDataRow(e.FocusedRowHandle)
Dim oWindowId As String = oSelectedRow.Item("GUID")
Current_WindowId = oWindowId
If Control_Load() = False Then
MsgBox($"Error while loading controls for window {oWindowId}", vbCritical, "")
End If
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@ -668,48 +668,84 @@
</data>
<data name="BarButtonItem23.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAALHRFWHRUaXRsZQBOZXh0O0Rv
dWJsZTtBcnJvdztGYXN0O1Jld2luZDtJbmNyZWFzZcl3QB8AAAB/SURBVDhPtZDBDYAwDAO7YNdhAJZg
BP682C40FkIlXCEfHudKlm1FLWZW6rxXf3vIIyQtbLFAHiE5w7cCeYSkC18F8ghJCKvQ2KIXy85oQIXG
Y2Ral/SA83nJ14DzOvLrBamPHA2kyg4NKEgeIaEgeYSEgpmyI6FgpuygmcfKAXuxrY4cCR8rAAAAAElF
TkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAsdEVYdFRpdGxlAE5leHQ7RG91YmxlO0Fycm93O0Zh
c3Q7UmV3aW5kO0luY3JlYXNlyXdAHwAAAH9JREFUOE+1kMENgDAMA7tg12EAlmAE/rzYLjQWQiVcIR8e
50qWbUUtZlbqvFd/e8gjJC1ssUAeITnDtwJ5hKQLXwXyCEkIq9DYohfLzmhAhcZjZFqX9IDzecnXgPM6
8usFqY8cDaTKDg0oSB4hoSB5hISCmbIjoWCm7KCZx8oBe7GtjhwJHysAAAAASUVORK5CYII=
</value>
</data>
<data name="BarButtonItem23.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAALHRFWHRUaXRsZQBOZXh0O0Rv
dWJsZTtBcnJvdztGYXN0O1Jld2luZDtJbmNyZWFzZcl3QB8AAAD6SURBVFhHxZLBDYMwEARpkHZSQJpI
Cfnnle4cHwqSbQaWwyfzGKHMit0TypRSuhWUI0E5P78pM1NmqNwDyv/A7ojKPaAsBnBE5R5QNgObEZV7
QAkD1QhkVe4BJZSvLCP5+Wl8lXtACcUlcybsCJRQ2hJ2BEooJEKOQAlle3QfgRKKjug6AiWUKOQRj/cL
t1BCwRkufYmNMODls7iPqH6swItnuPULXP4jooSCIy6PGyihZI+ucQMlFBHd4wZKKGsJGTdQQmFJ2LiB
EkpXlvL8DBk3UEJxVQ5ZlXtAqcpV7gGlKle5B5SqXOUeUKryqHED5UhQjgTlONL0A0h+ATgx7MVAAAAA
AElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAsdEVYdFRpdGxlAE5leHQ7RG91YmxlO0Fycm93O0Zh
c3Q7UmV3aW5kO0luY3JlYXNlyXdAHwAAAPpJREFUWEfFksENgzAQBGmQdlJAmkgJ+eeV7hwfCpJtBpbD
J/MYocyK3RPKlFK6FZQjQTk/vykzU2ao3APK/8DuiMo9oCwGcETlHlA2A5sRlXtACQPVCGRV7gEllK8s
I/n5aXyVe0AJxSVzJuwIlFDaEnYESigkQo5ACWV7dB+BEoqO6DoCJZQo5BGP9wu3UELBGS59iY0w4OWz
uI+ofqzAi2e49Qtc/iOihIIjLo8bKKFkj65xAyUUEd3jBkooawkZN1BCYUnYuIESSleW8vwMGTdQQnFV
DlmVe0CpylXuAaUqV7kHlKpc5R5QqvKocQPlSFCOBOU40vQDSH4BODHsxUAAAAAASUVORK5CYII=
</value>
</data>
<data name="BarButtonItem24.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAI3RFWHRUaXRsZQBDYW5jZWw7
U3RvcDtFeGl0O0JhcnM7UmliYm9uO0yWlrIAAADCSURBVDhPjZNLCgIxEERzOGFWegkvIH4QRhyv6UkU
V20VpCTpTquLB0n9GAZSzKzct6s1mHn+B2Qv7PCs8gsYuPqwB5lbzbKzoXCqgkhH4Kks9jLOzggj0Hz5
SL0NpCM4D8vkM1CDfmQBaZl0AwQBP9LSlUl3EQiORkKZBIEg7D+bLKNsEBAclUUY6S4I+PIBhB/bdr6W
Gy8d+VkW0IYjNPgwWiOUBTw/MlOcwKMKaVkgo5EnmCRyZOfDGcjyAU5mVt7SQJzMJkqbYgAAAABJRU5E
rkJggg==
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy
cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y
BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+
ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa
I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem24.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAI3RFWHRUaXRsZQBDYW5jZWw7
U3RvcDtFeGl0O0JhcnM7UmliYm9uO0yWlrIAAAFuSURBVFhHxZZNSgQxFIRn5gIOeiU3LhxBj+BRRRTF
Wc9VXMWqJg+e6XpNXoS4+BYpUj/Q3dC7Usq/IsWZSHEmUpyJFC/Pt3+iyTr4c4sUa9AVeAF39dyNy7kH
r+Do8z1ShIHlH6CAb5AaUTNYTi8zPoEcsRJw8QC4mkYjO8KXG8zct32/DgYuPoE2oHeEKuf5QXWtBILL
5LEa26CtEalyIkUYjMyIdDmRIkyenhFD5USKMLZsjRguJ1KEWRGNGC4nUkRAhBrhSZUTKSJki2jEUg5k
ZoQUGbKBeuY2YHkxVWaEFBkSEJUbywiVGSFFhCiit11p3SOkiIDecj7z8BNV2S1ShLm33O4Mj5AijJly
Y2iEFGEiUfkJ+GJPeoQUYRgpN1IjVgIu7sFbNfqAnnJDjXgH3T8k1+CrGrPlluFHnMFN20NWAsFlwhFc
nSonLocjmCHLiRQtCPD/0J+7aLLyv+UzkeJMpDgTKc6j7H4AaYUNY+IvplgAAAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy
cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e
hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv
kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM
zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV
ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96
hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I
8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BarButtonItem25.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j
+P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU
ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII=
</value>
</data>
<data name="BarButtonItem25.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft
l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB
OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo
mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi
J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA
PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem26.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENvcHk7QmFycztSaWJib247U3Rh
bmRhcmQ7Q2xvbmVtDt9bAAAAb0lEQVQ4T+2OwQ2AIBAE6ckW700HlOaXIny4cgbIokE5w9NNJhC4HXAA
GkQEHfa8LjzflBUd6kXvvPcrS8yClI0ltfREjFGLt3PtDr0aQqiSEpNAc5WYBExJ3r8LOL9gkoBJ+fSD
s1OYJxiFywDcAUEvVDi/LQTFAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem26.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENvcHk7QmFycztSaWJib247U3Rh
bmRhcmQ7Q2xvbmVtDt9bAAAA50lEQVRYR+2TwQqDMAyGfT6fq1dRevfJxFNhD7EdsvysgukSp1vtBusH
P5K0id9BGyL6atRmyajNNM45OpjAaTmYfcp6tyis8BA/9oP7XdfdxnFsuUx3iVoUVt4RmOdZlSgmADSJ
ogIgldgUwOCReO9pmiYeleBsTZS4QoLPxDtFkQ6+Avf7vqcQQuw80PYsEnwmvomPBbA4lUB/Ixe+kk8A
aBIWcSavANgrcZoA2CNxqgBYJLS/A2QXsDIMQ7wlwRmTR2ALa1cVqAJVoAr8l4AVpowAI/ZrEUUV+AmB
nFnvtqI2y4WaO7s+m1CnlB8XAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -728,6 +764,14 @@
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1149, 134</value>
</metadata>
<data name="TabPageDocuments.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAFRleHQ7UGFnZTtSZXBvcnR2YWEA
AAAAVUlEQVQ4T2P4//8/RRjOaGlp+Y8H/4PSxsiaQRjFAHwAJN/X13cX3RCSDACCX+iGkGQAMgYC0gxA
BngN8G3agReDwKgLaO0CYgDtDCAFYxhAHv7PAAC6Jy+iz67OxwAAAABJRU5ErkJggg==
</value>
</data>
<data name="TabPageData.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@ -735,14 +779,6 @@
dG9yrLHqcgAAAIhJREFUOE9j+P//P8O7I0UgLADEUUA8C4jPAfEnJAzig8RB8iB1YH0gDDPACIiXAvF/
IjBInRG6AXOQFBCD56Ab8A5NASH8juoGUOwFMyAmJRDN0A1IA2JPICYmGkHq0tANAIXBAyAGKYoDYl0g
5kHCID5IHCQPUjcaBrQIA4ozEwiTkZ3/MwAAShbqQY39CKgAAAAASUVORK5CYII=
</value>
</data>
<data name="TabPageDocuments.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAFRleHQ7UGFnZTtSZXBvcnR2YWEA
AAAAVUlEQVQ4T2P4//8/RRjOaGlp+Y8H/4PSxsiaQRjFAHwAJN/X13cX3RCSDACCX+iGkGQAMgYC0gxA
BngN8G3agReDwKgLaO0CYgDtDCAFYxhAHv7PAAC6Jy+iz67OxwAAAABJRU5ErkJggg==
</value>
</data>
<data name="TabPageProcessAssignment.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

View File

@ -90,12 +90,12 @@ Public Class frmAdministration
XtraTabControl3.SelectedTabPage = TabPageGeneralSettings
End Sub
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
If GUIDTextBox.Text <> "" Then
If PROFILE_IDTextBox.Text <> "" Then
Refresh_ProfileData()
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Load_Profile_Process()
End If
@ -104,19 +104,19 @@ Public Class frmAdministration
Sub Refresh_ProfileData()
Try
VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, GUIDTextBox.Text)
VWUSER_PROFILETableAdapter.Fill(MyDataset.VWUSER_PROFILE, PROFILE_IDTextBox.Text)
VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, GUIDTextBox.Text)
VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
If MyDataset.TBCW_PROF_DOC_SEARCH.Count = 0 Then
LayoutControlDocs.Enabled = False
End If
TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
If MyDataset.TBCW_PROF_DATA_SEARCH.Count = 0 Then
LayoutControlData.Enabled = False
End If
@ -128,13 +128,13 @@ Public Class frmAdministration
Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs)
Try
Try
Dim i As Integer = CInt(GUIDTextBox.Text)
Dim i As Integer = CInt(PROFILE_IDTextBox.Text)
Catch ex As Exception
Exit Sub
End Try
For Each row As DataRow In MyDataset.TBWH_User.Rows
If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5))
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, row.Item(5))
If Database.ExecuteNonQuery(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
@ -143,8 +143,8 @@ Public Class frmAdministration
For Each row As DataRow In MyDataset.TBWH_User.Rows
row.Item(0) = CBool(False)
Next
If GUIDTextBox.Text <> "" Then
Refresh_Free_Users(GUIDTextBox.Text)
If PROFILE_IDTextBox.Text <> "" Then
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
End If
@ -213,8 +213,8 @@ Public Class frmAdministration
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
If Database.ExecuteNonQuery(del) = True Then
Refresh_ProfileData()
If GUIDTextBox.Text <> "" Then
Refresh_Free_Users(GUIDTextBox.Text)
If PROFILE_IDTextBox.Text <> "" Then
Refresh_Free_Users(PROFILE_IDTextBox.Text)
End If
End If
@ -224,17 +224,17 @@ Public Class frmAdministration
End Sub
Private Sub Load_Profile_Process()
If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then
If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then
Exit Sub
End If
If CtrlApplicationAssignment1.Process_Load(GUIDTextBox.Text) = False Then
If CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text) = False Then
MsgBox("Unexpected Error while loading processes:", MsgBoxStyle.Critical)
End If
End Sub
Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If GUIDTextBox.Text = "" Then
If PROFILE_IDTextBox.Text = "" Then
Refresh_Free_Users(0)
Refresh_Free_Groups(0)
End If
@ -244,7 +244,7 @@ Public Class frmAdministration
MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = True
@ -254,7 +254,7 @@ Public Class frmAdministration
Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = GUIDTextBox.Text
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1
LayoutControlDocs.Enabled = True
@ -275,7 +275,7 @@ Public Class frmAdministration
Private Sub TBCW_PROF_REL_WINDOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs)
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.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn.DefaultValue = SelectedProcessName
End Sub
@ -290,8 +290,8 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text)
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", PROFILE_IDTextBox.Text)
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, Text)
' wenn Speichern ja
If result = MsgBoxResult.Yes Then
If Database.ExecuteNonQuery(swl) = True Then
@ -304,24 +304,24 @@ Public Class frmAdministration
Load_Profiles()
Refresh_ProfileData()
Try
Dim ID = CInt(GUIDTextBox.Text)
Dim ID = CInt(PROFILE_IDTextBox.Text)
Catch ex As Exception
Exit Sub
End Try
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
If CtrlApplicationAssignment1.Process_CreateAssignment(GUIDTextBox.Text) = False Then
MsgBox("Error while assigning process!", MsgBoxStyle.Critical, "Clipboard Watcher")
If CtrlApplicationAssignment1.Process_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while assigning process!", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Prozess zugeordnet")
End If
Status_Changed("Prozess zugeordnet")
End Sub
Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
If MsgBox($"Wollen Sie den Prozess löschen?" & vbNewLine & "Dies wird alle Fenster löschen, die diesem Prozess zugeordnet sind!", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Prozess löschen") = MsgBoxResult.No Then
If MsgBox($"Wollen Sie den Prozess löschen?" & vbNewLine & "Dies wird alle Fenster löschen, die diesem Prozess zugeordnet sind!", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
@ -333,15 +333,15 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
If CtrlApplicationAssignment1.Window_CreateAssignment(GUIDTextBox.Text) = False Then
If CtrlApplicationAssignment1.Window_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while assigning window!", MsgBoxStyle.Critical, "Clipboard Watcher")
Else
Status_Changed("Fenster zugeordnet")
End If
Status_Changed("Fenster zugeordnet")
End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
If MsgBox($"Wollen Sie die Fenster-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, "Prozess löschen") = MsgBoxResult.No Then
If MsgBox($"Wollen Sie die Fenster-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
@ -354,7 +354,7 @@ Public Class frmAdministration
Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
Try
If GUIDTextBox.Text = String.Empty Then
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
@ -363,13 +363,13 @@ Public Class frmAdministration
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("ID")
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, oGuid)
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
If Database.ExecuteNonQuery(insert) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserNotInProfile.ClearSelection()
@ -383,7 +383,7 @@ Public Class frmAdministration
Private Sub BarButtonItem12_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
Try
If GUIDTextBox.Text = String.Empty Then
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
@ -398,7 +398,7 @@ Public Class frmAdministration
End If
Next
Refresh_Free_Users(GUIDTextBox.Text)
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserInProfile.ClearSelection()
@ -417,7 +417,7 @@ Public Class frmAdministration
For Each oRowHandle In oSelectedGroups
Dim oRow As MyDataset.TBWH_GROUPRow = DirectCast(GridViewGroupNotInProfile.GetRow(oRowHandle), DataRowView).Row
Dim oGroupId As Integer = oRow.ID
Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({GUIDTextBox.Text},{oGroupId})"
Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.Text},{oGroupId})"
If Database.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
@ -426,7 +426,7 @@ Public Class frmAdministration
GridViewGroupNotInProfile.ClearSelection()
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
Status_Changed($"{oSelectedGroups.Count} Gruppen zugeordnet")
@ -451,7 +451,7 @@ Public Class frmAdministration
GridViewGroupInProfile.ClearSelection()
Refresh_Free_Groups(GUIDTextBox.Text)
Refresh_Free_Groups(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
Status_Changed($"{oSelectedGroups.Count} Gruppenzuordnungen gelöscht")
@ -465,58 +465,76 @@ Public Class frmAdministration
Select Case oTabName
Case TabPageProcessAssignment.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = True
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = True
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = True
RibbonGroup_Window.Enabled = True
RibbonGroup_Control.Enabled = True
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageUserAssignment.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = True
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = True
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageGroupAssignment.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = True
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = True
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageData.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = True
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = True
Case TabPageDocuments.Name
RibbonGroupProfile.Enabled = False
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = True
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = True
RibbonGroup_DataSearch.Enabled = False
Case Else
RibbonGroupProfile.Enabled = True
RibbonGroupUser.Enabled = False
RibbonGroupProcess.Enabled = False
RibbonGroupGroup.Enabled = False
RibbonGroupWindow.Enabled = False
RibbonGroupDocSearch.Enabled = False
RibbonGroupDataSearch.Enabled = False
RibbonGroup_Profile.Enabled = True
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
End Select
End Sub
@ -528,9 +546,9 @@ Public Class frmAdministration
Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
If CtrlApplicationAssignment1.Window_SaveAssignment() = False Then
MsgBox("Error while saving window", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Fensterzuordnung gespeichert")
End If
Status_Changed("Fensterzuordnung gespeichert")
End Sub
Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
@ -555,7 +573,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text)
If result = MsgBoxResult.Yes Then
TBCW_PROF_DATA_SEARCHTableAdapter.Delete(txtDATAGUID.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Daten-Suche gelöscht")
End If
End Sub
@ -567,7 +585,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox1.Text = Environment.UserName
TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
TBCW_PROF_DATA_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DATA_SEARCH)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Daten-Suche gespeichert")
End If
Catch ex As NoNullAllowedException
@ -590,7 +608,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie diese Suche löschen wollen?", MsgBoxStyle.YesNo, Text)
If result = MsgBoxResult.Yes Then
TBCW_PROF_DOC_SEARCHTableAdapter.Delete(txtDOC_GUID.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Dokument-Suche gelöscht")
End If
End Sub
@ -602,7 +620,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox2.Text = Environment.UserName
TBCW_PROF_DOC_SEARCHBindingSource.EndEdit()
TBCW_PROF_DOC_SEARCHTableAdapter.Update(MyDataset.TBCW_PROF_DOC_SEARCH)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, GUIDTextBox.Text)
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Dokument-Suche gespeichert")
End If
Catch ex As NoNullAllowedException
@ -618,7 +636,26 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
Dim oForm As New frmControlCapture()
oForm.ShowDialog()
If CtrlApplicationAssignment1.Control_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Feld-Zuordnung gespeichert")
End If
End Sub
Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
If MsgBox($"Wollen Sie die Feld-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
Exit Sub
End If
If CtrlApplicationAssignment1.Control_DeleteAssignment() = False Then
MsgBox("Error while deleting assignment of control!", MsgBoxStyle.Critical, Text)
End If
Status_Changed("Feld-Zuordnung gelöscht")
End Sub
Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
End Sub
End Class

View File

@ -43,6 +43,8 @@ Partial Class frmConnection
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSQL_PROVIDER = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Label1 = New System.Windows.Forms.Label()
Me.ODBCServerTextBox = New System.Windows.Forms.ComboBox()
Me.chkWinAuth = New System.Windows.Forms.CheckBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox()
@ -67,8 +69,6 @@ Partial Class frmConnection
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.ODBCServerTextBox = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
BEZEICHNUNGLabel = New System.Windows.Forms.Label()
SQL_PROVIDERLabel = New System.Windows.Forms.Label()
SERVERLabel = New System.Windows.Forms.Label()
@ -283,6 +283,23 @@ Partial Class frmConnection
Me.colSQL_PROVIDER.Visible = True
Me.colSQL_PROVIDER.VisibleIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(220, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(101, 13)
Me.Label1.TabIndex = 33
Me.Label1.Text = "ODBC Verbindung *"
'
'ODBCServerTextBox
'
Me.ODBCServerTextBox.FormattingEnabled = True
Me.ODBCServerTextBox.Location = New System.Drawing.Point(223, 19)
Me.ODBCServerTextBox.Name = "ODBCServerTextBox"
Me.ODBCServerTextBox.Size = New System.Drawing.Size(200, 21)
Me.ODBCServerTextBox.TabIndex = 32
'
'chkWinAuth
'
Me.chkWinAuth.AutoSize = True
@ -352,6 +369,7 @@ Partial Class frmConnection
Me.PASSWORDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "PASSWORD", True))
Me.PASSWORDTextBox.Location = New System.Drawing.Point(223, 139)
Me.PASSWORDTextBox.Name = "PASSWORDTextBox"
Me.PASSWORDTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.PASSWORDTextBox.Size = New System.Drawing.Size(200, 21)
Me.PASSWORDTextBox.TabIndex = 13
'
@ -413,6 +431,7 @@ Partial Class frmConnection
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_CONTROLTableAdapter = Nothing
Me.TableAdapterManager.TBCW_PROF_REL_WINDOWTableAdapter = Nothing
Me.TableAdapterManager.TBCW_PROFILE_PROCESSTableAdapter = Nothing
Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Nothing
@ -492,23 +511,6 @@ Partial Class frmConnection
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'ODBCServerTextBox
'
Me.ODBCServerTextBox.FormattingEnabled = True
Me.ODBCServerTextBox.Location = New System.Drawing.Point(223, 19)
Me.ODBCServerTextBox.Name = "ODBCServerTextBox"
Me.ODBCServerTextBox.Size = New System.Drawing.Size(200, 21)
Me.ODBCServerTextBox.TabIndex = 32
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(220, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(101, 13)
Me.Label1.TabIndex = 33
Me.Label1.Text = "ODBC Verbindung *"
'
'frmConnection
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

View File

@ -159,9 +159,6 @@
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>371, 17</value>
</metadata>

View File

@ -1,8 +1,8 @@
Imports System.Data.SqlClient
Imports System.Data.Odbc
Imports Oracle.ManagedDataAccess.Client
Imports Microsoft.Win32
Imports DigitalData.Modules.Database.Constants
Imports DigitalData.Modules
Public Class frmConnection
Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@ -91,13 +91,14 @@ Public Class frmConnection
End Using
Case PROVIDER_ORACLE
Try
Dim conn As New OracleConnectionStringBuilder
oConnectionString = $"Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST={Server})(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME={Database})));User Id={UserId};Password={Password};"
Dim oOracle As New Database.Oracle(LogConfig, oConnectionString)
Using connection As New OracleConnection(oConnectionString)
connection.Open()
If oOracle.DBInitialized Then
MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
End Using
Else
MsgBox("Fehler beim Verbindungsaufbau (ORACLE): Fehler im Log", MsgBoxStyle.Critical, Text)
End If
Catch ex As Exception
Logger.Error(ex)
MsgBox("Fehler beim Verbindungsaufbau (ORACLE): " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
@ -194,14 +195,21 @@ Public Class frmConnection
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonDelete.ItemClick
Try
If GUIDTextBox.Text <> String.Empty Then
Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text)
If oResult = MsgBoxResult.Yes Then
TBDD_CONNECTIONTableAdapter.Delete(GUIDTextBox.Text)
Dim oSQL = $"SELECT dbo.FNCW_GET_SEARCH_COUNT_FOR_CONNECTION({GUIDTextBox.Text})"
Dim oCount = Database.GetScalarValue(oSQL)
If oCount IsNot Nothing AndAlso oCount = 0 Then
Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text)
If oResult = MsgBoxResult.Yes Then
TBDD_CONNECTIONTableAdapter.Delete(GUIDTextBox.Text)
End If
Else
MsgBox($"Die Verbindung '{BEZEICHNUNGTextBox.Text}' kann nicht gelöscht werden, da sie von mindestens einer Suche verwendet wird!", MsgBoxStyle.Exclamation, Text)
End If
End If
Catch ex As Exception
Logger.Error(ex)
MsgBox("Fehler beim Löschen der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Fehler beim Löschen der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub

View File

@ -13,6 +13,9 @@ Public Class frmControlCapture
txtControlName.Text = oResult.ControlName
ControlName = oResult.ControlName
ProcessName = oResult.ProcessName
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub
End Class

View File

@ -8,7 +8,10 @@ Public Class frmProcessCapture
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim oWindow = ClassWindowAPI.GetWindowInfo()
'clsWINDOWSApi.Get_ForegroundWindow_Info()
If oWindow Is Nothing Then
Exit Sub
End If
Dim oProgramName As String = Assembly.GetEntryAssembly().GetName().Name
If oWindow.ProcessName <> oProgramName Then

View File

@ -151,7 +151,7 @@ Partial Class frmStart
Me.labelHotkey.Name = "labelHotkey"
Me.labelHotkey.Size = New System.Drawing.Size(312, 39)
Me.labelHotkey.TabIndex = 13
Me.labelHotkey.Text = "STRG+C {0}"
Me.labelHotkey.Text = "CLIPBOARD + {0}"
Me.labelHotkey.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnUserConfig

View File

@ -111,7 +111,7 @@ Public Class frmStart
Dim oProfileFilter As ClassProfileFilter
Try
oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW)
oProfileFilter = New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW, DTPROFILE_REL_CONTROL)
Catch ex As Exception
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor.")
Exit Sub
@ -122,7 +122,8 @@ Public Class frmStart
oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName)
oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents)
oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle)
oProfiles = oProfileFilter.FilterProfilesByWindowClipboardRegex(oProfiles, ClipboardContents)
oProfiles = oProfileFilter.FilterWindowsByWindowClipboardRegex(oProfiles, ClipboardContents)
oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles)
oProfiles = oProfileFilter.RemoveDuplicateProfiles()
oProfiles = oProfiles.ToList()
@ -151,8 +152,8 @@ Public Class frmStart
Dim oResultDocs As Integer = 0
Dim oResultData As Integer = 0
Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE PROFILE_ID = {oProfile.Guid}")
Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE PROFILE_ID = {oProfile.Guid}")
Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
For Each oRow As DataRow In oDataSearches.Rows
Try

View File

@ -65,6 +65,7 @@ Module modCurrent
Public CLIENT_SELECTED As Integer = 0
Public CurrDT_PROFILE_MATCH As DataTable
Public DTPROFILE_REL_WINDOW As DataTable
Public DTPROFILE_REL_CONTROL As DataTable
Public CURRENT_DT_DOC_SEARCHES As DataTable
Public CURRENT_DT_DATA_SEARCHES As DataTable

View File

@ -91,6 +91,10 @@
<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDConfig" Name="DigitalData.Modules.Config.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDFilesystem" Name="DigitalData.Modules.Filesystem.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDLanguage" Name="DigitalData.Modules.Language.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDRegexEditor" Name="DigitalData.Controls.RegexEditor.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDprotobuf" Name="protobuf-net.dll" KeyPath="no" Checksum="yes"/>
</Component>
<Component Id="NLog" Guid="{08903680-6b02-4ff0-b700-93209381fe1a}">
@ -109,6 +113,10 @@
<File Id="DevExpress.XtraPrinting.v15.2" Name="DevExpress.XtraPrinting.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll" />
</Component>
<Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
<File Id="GdPicture.NET.14" Name="GdPicture.NET.14.dll" Source="D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll" KeyPath="yes" />
</Component>
<Component Id="RegistryKeys" Guid="{72D6927F-8297-4D51-BF4A-813064089A4A}">
<RegistryKey Root="HKLM" Key="Software">
<RegistryKey Key="[Manufacturer]">
@ -128,6 +136,7 @@
<ComponentRef Id="DDLibs"/>
<ComponentRef Id="NLog"/>
<ComponentRef Id="DevExpressLibs"/>
<ComponentRef Id="GDPictureLibs"/>
<ComponentRef Id="RegistryKeys" />
</Feature>