WIP: Config UI

This commit is contained in:
Jonathan Jenne 2019-07-22 16:02:18 +02:00
parent da579381ce
commit dfadc2b778
11 changed files with 1068 additions and 908 deletions

View File

@ -14,9 +14,10 @@ Public Class ClassProfileFilter
Public Comment As String
Public SQLCountDocs As String
Public SQLCountData As String
Public Windows As List(Of WindowData)
Public CountDocs As Integer = 0
Public CountData As Integer = 0
Public Windows As List(Of WindowData)
End Class
Class WindowData

View File

@ -443,6 +443,12 @@ Partial Public Class MyDataset
Private columnACTIVE As Global.System.Data.DataColumn
Private columnPROFILE_TYPE As Global.System.Data.DataColumn
Private columnSQL_COUNT_DOCS As Global.System.Data.DataColumn
Private columnSQL_COUNT_DATA As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
@ -558,6 +564,30 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFILE_TYPE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property SQL_COUNT_DOCSColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_COUNT_DOCS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property SQL_COUNT_DATAColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_COUNT_DATA
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@ -595,9 +625,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean) As TBCW_PROFILESRow
Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short, ByVal SQL_COUNT_DOCS As String, ByVal SQL_COUNT_DATA As String) As TBCW_PROFILESRow
Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE}
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE, SQL_COUNT_DOCS, SQL_COUNT_DATA}
rowTBCW_PROFILESRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROFILESRow)
Return rowTBCW_PROFILESRow
@ -636,6 +666,9 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE")
Me.columnSQL_COUNT_DOCS = MyBase.Columns("SQL_COUNT_DOCS")
Me.columnSQL_COUNT_DATA = MyBase.Columns("SQL_COUNT_DATA")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -661,6 +694,12 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnACTIVE)
Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFILE_TYPE)
Me.columnSQL_COUNT_DOCS = New Global.System.Data.DataColumn("SQL_COUNT_DOCS", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_COUNT_DOCS)
Me.columnSQL_COUNT_DATA = New Global.System.Data.DataColumn("SQL_COUNT_DATA", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_COUNT_DATA)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AllowDBNull = false
@ -679,6 +718,11 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnACTIVE.AllowDBNull = false
Me.columnACTIVE.DefaultValue = CType(false,Boolean)
Me.columnPROFILE_TYPE.AllowDBNull = false
Me.columnSQL_COUNT_DOCS.AllowDBNull = false
Me.columnSQL_COUNT_DOCS.MaxLength = 2147483647
Me.columnSQL_COUNT_DATA.AllowDBNull = false
Me.columnSQL_COUNT_DATA.MaxLength = 2147483647
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2233,6 +2277,39 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property PROFILE_TYPE() As Short
Get
Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short)
End Get
Set
Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property SQL_COUNT_DOCS() As String
Get
Return CType(Me(Me.tableTBCW_PROFILES.SQL_COUNT_DOCSColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILES.SQL_COUNT_DOCSColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property SQL_COUNT_DATA() As String
Get
Return CType(Me(Me.tableTBCW_PROFILES.SQL_COUNT_DATAColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILES.SQL_COUNT_DATAColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
@ -3057,6 +3134,9 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE")
tableMapping.ColumnMappings.Add("SQL_COUNT_DOCS", "SQL_COUNT_DOCS")
tableMapping.ColumnMappings.Add("SQL_COUNT_DATA", "SQL_COUNT_DATA")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@ -3109,7 +3189,8 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_"& _
"WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROFILES"
"WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, SQL_COUNT_DOCS, SQL_COUNT_DATA, PROFILE"& _
"_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROFILES"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub

View File

@ -9,14 +9,25 @@
<TableUISetting Name="TBCW_PROFILES">
<ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="PROFILE_TYPE">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>

View File

@ -20,43 +20,43 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBCW_PROFILES
(NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ACTIVE)
VALUES (@NAME,@COMMENT,@WD_SEARCH,@REGEX_EXPRESSION,@ADDED_WHO,@ACTIVE);
SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE
<CommandText>SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, SQL_COUNT_DOCS, SQL_COUNT_DATA, PROFILE_TYPE
FROM TBCW_PROFILES</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBCW_PROFILES
SET NAME = @NAME, COMMENT = @COMMENT, WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTIVE
WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROFILES WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBCW_PROFILES" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REGEX_EXPRESSION" ColumnName="REGEX_EXPRESSION" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@REGEX_EXPRESSION" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="REGEX_EXPRESSION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
@ -73,6 +73,9 @@ SELECT GUID, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN,
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
<Mapping SourceColumn="PROFILE_TYPE" DataSetColumn="PROFILE_TYPE" />
<Mapping SourceColumn="SQL_COUNT_DOCS" DataSetColumn="SQL_COUNT_DOCS" />
<Mapping SourceColumn="SQL_COUNT_DATA" DataSetColumn="SQL_COUNT_DATA" />
</Mappings>
<Sources />
</TableAdapter>
@ -232,7 +235,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
<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" />
@ -281,10 +284,25 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
<xs:element name="PROFILE_TYPE" msprop:Generator_ColumnVarNameInTable="columnPROFILE_TYPE" msprop:Generator_ColumnPropNameInRow="PROFILE_TYPE" msprop:Generator_ColumnPropNameInTable="PROFILE_TYPEColumn" msprop:Generator_UserColumnName="PROFILE_TYPE" type="xs:short" />
<xs:element name="SQL_COUNT_DOCS" msprop:Generator_ColumnVarNameInTable="columnSQL_COUNT_DOCS" msprop:Generator_ColumnPropNameInRow="SQL_COUNT_DOCS" msprop:Generator_ColumnPropNameInTable="SQL_COUNT_DOCSColumn" msprop:Generator_UserColumnName="SQL_COUNT_DOCS">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_COUNT_DATA" msprop:Generator_ColumnVarNameInTable="columnSQL_COUNT_DATA" msprop:Generator_ColumnPropNameInRow="SQL_COUNT_DATA" msprop:Generator_ColumnPropNameInTable="SQL_COUNT_DATAColumn" msprop:Generator_UserColumnName="SQL_COUNT_DATA">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</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" />
@ -301,7 +319,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</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" />
@ -330,7 +348,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</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="Select" msprop:Generator_ColumnVarNameInTable="columnSelect" msprop:Generator_ColumnPropNameInRow="_Select" msprop:Generator_ColumnPropNameInTable="SelectColumn" msprop:Generator_UserColumnName="Select" type="xs:boolean" default="false" minOccurs="0" />
@ -342,7 +360,7 @@ WHERE (PROFILE_ID = @PID)</CommandText>
</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" />

View File

@ -6,7 +6,7 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-18" 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="5" X="419" Y="116" Height="248" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBCW_PROFILES" ZOrder="5" X="419" Y="116" Height="286" Width="240" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBCW_USER_PROFILE" ZOrder="4" X="757" Y="113" Height="172" Width="271" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWUSER_PROFILE" ZOrder="3" X="0" Y="-8" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<Shape ID="DesignTable:TBCW_PROFILE_PROCESS" ZOrder="1" X="1153" Y="154" Height="172" Width="294" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />

File diff suppressed because it is too large Load Diff

View File

@ -147,6 +147,12 @@
<metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 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="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -225,45 +231,9 @@
dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
</value>
</data>
<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="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>736, 56</value>
</metadata>
<data name="btndeleteUserConstructorRel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd
tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8
PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI
vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm
RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2
yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E
A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y
Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu
YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI
nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y
todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="btnAddUser2Profile.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACO0lE
QVRIS7WSS28SYRhGiSsTly79NcaoiGAbiHItvWFry8Zf4KJUeoEKchEYikiqFXcmxkZTE6Ooce/CVXdu
tBaBwnQYZubpOzMOYPwSazNdnEzyzJdzMhcLgBOFOZoJczQT5mgmzNHgS9Ayu+20YCd0Os66fxSYo4oh
l1b9aoAm9rl/wRwNeWfJh3rUa27AkLeiPuwuutFY8ZkXMOT1Ra8m31v2oBkPmBMw5HsRjy5f8uBXzIfm
vQC+hc8ei++3z8X/kO8uuPHzrhv1ZW9f3kqNoZObgLA+DfHRTUiPb0HenINSnQeehTWUahjy03lIT+bQ
q8ygW5pCd2tNDQzkPxZu9OWNmF+T76eDA3n5t5xEqlypUmRzBvLGFKRyAL2iB2LWBSFhB79qhfA6qwdq
10keIXmU5Cskj5M8ocv5/CSEUghiZVaXb4SgVIJQyh4oRRfk/AikrB29lA3dhBUHscv0513EfuQC+K30
4Am+Bk8N5MkA2ulx8IVpXf5wEtK6HzLngkJCJe8grkHOOUjuILmd5DaSW0l+CS2SN+6cR+dFSg8Y30CN
NJNjaGcnwOfGIWTdEDOjkN8XoNSIDxyUj0W6qnCQaxykdwVIb/MQ3+TQ3X4A4VUG/Ms0ye+j/Tw5CAxH
OgknDtZsEJNXIGXsmkw9eEz0v2g4shM6Q499VXt8mV4FPhW1w8Pn/oe/BiMCbhRKYcT8gEo/UnIC9N5N
D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="VWUSER_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>180, 56</value>
</metadata>
@ -291,6 +261,15 @@
<metadata name="TBCW_PROFILE_PROCESSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>280, 95</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>443, 95</value>
</metadata>
<metadata name="PROFILE_TYPELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<data name="btndeleteProcessProfileLink.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
@ -324,12 +303,6 @@
D6j0I59LJxNQMSLqx2LdPwrM0UyYo5kwR/OA5RDpc3VgpHUOZwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>280, 95</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>443, 95</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>139</value>
</metadata>

View File

@ -1,5 +1,15 @@
Imports DD_LIB_Standards
Public Class frmAdministration
Class ProfileType
Public Name As String
Public Id As Int16
Public Overrides Function ToString() As String
Return Name
End Function
End Class
Dim PID As Integer
Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
Save_Profile()
@ -9,11 +19,8 @@ Public Class frmAdministration
End Sub
Sub Load_Profiles()
Try
Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
If MyDataset.TBCW_PROFILES.Rows.Count >= 1 Then
grpbxProfiles.Enabled = True
End If
TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
Catch ex As Exception
MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -35,6 +42,13 @@ Public Class frmAdministration
End Sub
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Load_Profiles()
PROFILE_TYPEComboBox.DataSource = New List(Of ProfileType) From {
New ProfileType() With {.Id = 0, .Name = "Daten und Dokumente"},
New ProfileType() With {.Id = 1, .Name = "Nur Dokumente"},
New ProfileType() With {.Id = 2, .Name = "Nur Daten"}
}
lbllicenseCount.Text = LICENSE_COUNT
If LICENSE_DATE.ToString.Contains("2099") Then
lblLicenseDate.Text = "Unlimited"
@ -181,10 +195,6 @@ Public Class frmAdministration
End If
End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub Load_Profile_Process()
Try
If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then
@ -223,7 +233,7 @@ Public Class frmAdministration
End Try
Dim del = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", ID)
If clsDatabase.Execute_non_Query(del) = True Then
Load_Profile_Process
Load_Profile_Process()
End If
Catch ex As Exception
MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -284,12 +294,4 @@ Public Class frmAdministration
End Try
Refresh_Free_Users(GUIDTextBox.Text)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
grpbxProfiles.Enabled = True
End Sub
Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged
End Sub
End Class

View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmProfileMatch
Inherits DevExpress.XtraEditors.XtraForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,33 +20,19 @@ Partial Class frmProfileMatch
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement4 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement5 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement7 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement8 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement6 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label()
Me.TileControl1 = New DevExpress.XtraEditors.TileControl()
Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup()
Me.TileGroupData = New DevExpress.XtraEditors.TileGroup()
Me.TileItem2 = New DevExpress.XtraEditors.TileItem()
Me.TileItem3 = New DevExpress.XtraEditors.TileItem()
Me.TileItem4 = New DevExpress.XtraEditors.TileItem()
Me.TileItem5 = New DevExpress.XtraEditors.TileItem()
Me.TileItem6 = New DevExpress.XtraEditors.TileItem()
Me.TileItem7 = New DevExpress.XtraEditors.TileItem()
Me.TileItem8 = New DevExpress.XtraEditors.TileItem()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
@ -62,39 +48,40 @@ Partial Class frmProfileMatch
Me.Label1.TabIndex = 2
Me.Label1.Text = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
'
'TileControl1
'TileControlMatch
'
Me.TileControl1.AllowDragTilesBetweenGroups = False
Me.TileControl1.AppearanceGroupText.BackColor = System.Drawing.Color.Transparent
Me.TileControl1.AppearanceGroupText.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileControl1.AppearanceGroupText.ForeColor = System.Drawing.Color.White
Me.TileControl1.AppearanceGroupText.Options.UseBackColor = True
Me.TileControl1.AppearanceGroupText.Options.UseFont = True
Me.TileControl1.AppearanceGroupText.Options.UseForeColor = True
Me.TileControl1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TileControl1.AppearanceItem.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TileControl1.AppearanceItem.Normal.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileControl1.AppearanceItem.Normal.ForeColor = System.Drawing.Color.White
Me.TileControl1.AppearanceItem.Normal.Options.UseBackColor = True
Me.TileControl1.AppearanceItem.Normal.Options.UseBorderColor = True
Me.TileControl1.AppearanceItem.Normal.Options.UseFont = True
Me.TileControl1.AppearanceItem.Normal.Options.UseForeColor = True
Me.TileControl1.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TileControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TileControl1.Groups.Add(Me.TileGroup2)
Me.TileControl1.Groups.Add(Me.TileGroupDocumentsData)
Me.TileControl1.Groups.Add(Me.TileGroupDocuments)
Me.TileControl1.Groups.Add(Me.TileGroupData)
Me.TileControl1.ItemCheckMode = DevExpress.XtraEditors.TileItemCheckMode.Multiple
Me.TileControl1.ItemSize = 150
Me.TileControl1.Location = New System.Drawing.Point(0, 0)
Me.TileControl1.MaxId = 18
Me.TileControl1.Name = "TileControl1"
Me.TileControl1.Position = 33
Me.TileControl1.ShowGroupText = True
Me.TileControl1.Size = New System.Drawing.Size(1087, 481)
Me.TileControl1.TabIndex = 6
Me.TileControl1.Text = "TileControl1"
Me.TileControlMatch.AllowDragTilesBetweenGroups = False
Me.TileControlMatch.AppearanceGroupText.BackColor = System.Drawing.Color.Transparent
Me.TileControlMatch.AppearanceGroupText.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileControlMatch.AppearanceGroupText.ForeColor = System.Drawing.Color.White
Me.TileControlMatch.AppearanceGroupText.Options.UseBackColor = True
Me.TileControlMatch.AppearanceGroupText.Options.UseFont = True
Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True
Me.TileControlMatch.AppearanceGroupText.Options.UseTextOptions = True
Me.TileControlMatch.AppearanceGroupText.TextOptions.Trimming = DevExpress.Utils.Trimming.None
Me.TileControlMatch.AppearanceGroupText.TextOptions.WordWrap = DevExpress.Utils.WordWrap.Wrap
Me.TileControlMatch.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TileControlMatch.AppearanceItem.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TileControlMatch.AppearanceItem.Normal.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TileControlMatch.AppearanceItem.Normal.ForeColor = System.Drawing.Color.White
Me.TileControlMatch.AppearanceItem.Normal.Options.UseBackColor = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseBorderColor = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseFont = True
Me.TileControlMatch.AppearanceItem.Normal.Options.UseForeColor = True
Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
Me.TileControlMatch.Groups.Add(Me.TileGroup2)
Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData)
Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments)
Me.TileControlMatch.Groups.Add(Me.TileGroupData)
Me.TileControlMatch.ItemSize = 150
Me.TileControlMatch.Location = New System.Drawing.Point(0, 0)
Me.TileControlMatch.MaxId = 18
Me.TileControlMatch.Name = "TileControlMatch"
Me.TileControlMatch.ShowGroupText = True
Me.TileControlMatch.Size = New System.Drawing.Size(990, 452)
Me.TileControlMatch.TabIndex = 6
Me.TileControlMatch.Text = "TileControl1"
'
'TileGroup2
'
@ -103,21 +90,27 @@ Partial Class frmProfileMatch
'
'TileItem1
'
TileItemElement1.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
TileItemElement1.Text = "Alle"
Me.TileItem1.Elements.Add(TileItemElement1)
TileItemElement5.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
TileItemElement5.Text = "Alle"
Me.TileItem1.Elements.Add(TileItemElement5)
Me.TileItem1.Id = 1
Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem1.Name = "TileItem1"
'
'TileGroupDocumentsData
'
Me.TileGroupDocumentsData.Items.Add(Me.TileItem2)
Me.TileGroupDocumentsData.Items.Add(Me.TileItem3)
Me.TileGroupDocumentsData.Items.Add(Me.TileItem4)
Me.TileGroupDocumentsData.Items.Add(Me.TileItem5)
Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData"
Me.TileGroupDocumentsData.Text = "Dokumente und Daten"
Me.TileGroupDocumentsData.Text = "Kombiniert"
'
'TileGroupDocuments
'
Me.TileGroupDocuments.Name = "TileGroupDocuments"
Me.TileGroupDocuments.Text = "Dokumente"
'
'TileGroupData
'
Me.TileGroupData.Name = "TileGroupData"
Me.TileGroupData.Text = "Daten"
'
'SimpleButton1
'
@ -125,7 +118,7 @@ Partial Class frmProfileMatch
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.ImageOptions.Image = CType(resources.GetObject("SimpleButton1.ImageOptions.Image"), System.Drawing.Image)
Me.SimpleButton1.Location = New System.Drawing.Point(938, 14)
Me.SimpleButton1.Location = New System.Drawing.Point(841, 14)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(137, 45)
Me.SimpleButton1.TabIndex = 7
@ -135,90 +128,19 @@ Partial Class frmProfileMatch
'
Me.Panel1.Controls.Add(Me.SimpleButton1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 481)
Me.Panel1.Location = New System.Drawing.Point(0, 452)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1087, 71)
Me.Panel1.Size = New System.Drawing.Size(990, 71)
Me.Panel1.TabIndex = 8
'
'TileGroupDocuments
'
Me.TileGroupDocuments.Name = "TileGroupDocuments"
Me.TileGroupDocuments.Text = "Dokumente"
'
'TileGroupData
'
Me.TileGroupData.Items.Add(Me.TileItem8)
Me.TileGroupData.Items.Add(Me.TileItem6)
Me.TileGroupData.Items.Add(Me.TileItem7)
Me.TileGroupData.Name = "TileGroupData"
Me.TileGroupData.Text = "Daten"
'
'TileItem2
'
TileItemElement2.Text = "TileItem2"
Me.TileItem2.Elements.Add(TileItemElement2)
Me.TileItem2.Id = 8
Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem2.Name = "TileItem2"
'
'TileItem3
'
Me.TileItem3.AppearanceItem.Selected.BorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.TileItem3.AppearanceItem.Selected.Options.UseBorderColor = True
TileItemElement3.Text = "TileItem3"
Me.TileItem3.Elements.Add(TileItemElement3)
Me.TileItem3.Id = 9
Me.TileItem3.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem3.Name = "TileItem3"
'
'TileItem4
'
TileItemElement4.Text = "TileItem4"
Me.TileItem4.Elements.Add(TileItemElement4)
Me.TileItem4.Id = 10
Me.TileItem4.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem4.Name = "TileItem4"
'
'TileItem5
'
TileItemElement5.Text = "TileItem5"
Me.TileItem5.Elements.Add(TileItemElement5)
Me.TileItem5.Id = 11
Me.TileItem5.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem5.Name = "TileItem5"
'
'TileItem6
'
TileItemElement7.Text = "TileItem6"
Me.TileItem6.Elements.Add(TileItemElement7)
Me.TileItem6.Id = 13
Me.TileItem6.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem6.Name = "TileItem6"
'
'TileItem7
'
TileItemElement8.Text = "TileItem7"
Me.TileItem7.Elements.Add(TileItemElement8)
Me.TileItem7.Id = 14
Me.TileItem7.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem7.Name = "TileItem7"
'
'TileItem8
'
TileItemElement6.Text = "TileItem8"
Me.TileItem8.Elements.Add(TileItemElement6)
Me.TileItem8.Id = 17
Me.TileItem8.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
Me.TileItem8.Name = "TileItem8"
'
'frmProfileMatch
'
Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1087, 552)
Me.ClientSize = New System.Drawing.Size(990, 523)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TileControl1)
Me.Controls.Add(Me.TileControlMatch)
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@ -235,7 +157,7 @@ Partial Class frmProfileMatch
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents TileControl1 As DevExpress.XtraEditors.TileControl
Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup
@ -243,11 +165,4 @@ Partial Class frmProfileMatch
Friend WithEvents Panel1 As Panel
Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup
Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileItem3 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileItem4 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileItem5 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileItem8 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileItem6 As DevExpress.XtraEditors.TileItem
Friend WithEvents TileItem7 As DevExpress.XtraEditors.TileItem
End Class

View File

@ -25,41 +25,29 @@ Public Class frmProfileMatch
Sub CreateTiles()
Try
Dim oGroup = TileControl1.Groups.Item("TileGroupDocuments")
oGroup.Items.Clear()
Dim oDocumentGroup = TileControlMatch.Groups.Item("TileGroupDocuments")
Dim oDataGroup = TileControlMatch.Groups.Item("TileGroupData")
Dim oDataDocumentsGroup = TileControlMatch.Groups.Item("TileGroupDocumentsData")
oDocumentGroup.Items.Clear()
oDataGroup.Items.Clear()
For Each oProfile As ClassProfileFilter.ProfileData In CURRENT_MATCHING_PROFILES
Dim oItem As New TileItem() With {.Tag = oProfile.Guid}
oItem.Elements.Clear()
Dim oNameElement = New TileItemElement()
oNameElement.Text = oProfile.Name
oNameElement.TextAlignment = TileItemContentAlignment.TopLeft
oNameElement.Appearance.Normal.Font = PrimaryFont
oItem.Elements.Add(oNameElement)
Dim oCommentElement = New TileItemElement()
oCommentElement.Text = oProfile.Comment
oCommentElement.TextAlignment = TileItemContentAlignment.MiddleLeft
oCommentElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCommentElement)
Dim oCountElement = New TileItemElement()
oCountElement.TextAlignment = TileItemContentAlignment.BottomRight
oCountElement.Appearance.Normal.Font = SecondaryFont
Dim oText As String
If oProfile.CountDocs = 99999 Then
oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!"
ElseIf oProfile.CountDocs = 99998 Then
oText = "DocCount (MatchCountConfig has not been configured)"
Else
oText = $"{oProfile.CountDocs} files!"
If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then
Dim oCountText = oProfile.CountData + oProfile.CountDocs
Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse")
oDataDocumentsGroup.Items.Add(oItem)
End If
oCountElement.Text = oText
oItem.Elements.Add(oCountElement)
If oProfile.CountDocs > 0 Then
Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dokumente")
oDocumentGroup.Items.Add(oItem)
End If
oGroup.Items.Add(oItem)
If oProfile.CountData > 0 Then
Dim oItem = CreateTile(oProfile, $"{oProfile.CountData} Datensätze")
oDataGroup.Items.Add(oItem)
End If
Next
Catch ex As Exception
Logger.Error(ex)
@ -67,6 +55,57 @@ Public Class frmProfileMatch
End Try
End Sub
Private Function CreateTile(Profile As ClassProfileFilter.ProfileData, CountText As String) As TileItem
Dim oItem As New TileItem() With {.Tag = Profile.Guid}
oItem.Elements.Clear()
Dim oNameElement = New TileItemElement()
oNameElement.Text = Profile.Name
oNameElement.TextAlignment = TileItemContentAlignment.TopLeft
oNameElement.Appearance.Normal.Font = PrimaryFont
oItem.Elements.Add(oNameElement)
Dim oCommentElement = New TileItemElement()
oCommentElement.Text = Profile.Comment
oCommentElement.TextAlignment = TileItemContentAlignment.MiddleLeft
oCommentElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCommentElement)
Dim oCountElement = New TileItemElement()
oCountElement.Text = GetCountText(Profile, CountText)
oCountElement.TextAlignment = TileItemContentAlignment.BottomRight
oCountElement.Appearance.Normal.Font = SecondaryFont
oItem.Elements.Add(oCountElement)
Return oItem
End Function
Private Function GetCountText(Profile As ClassProfileFilter.ProfileData, CountText As String) As String
Dim oText As String = "No implemented"
If Profile.CountData = ClassConstants.INVALID_COUNT_SQL Then
'oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!"
oText = "Invalid SQL!"
ElseIf Profile.CountData = ClassConstants.NO_COUNT_SQL Then
'oText = "DocCount (MatchCountConfig has not been configured)"
oText = "No SQL!"
Else
oText = CountText
End If
If Profile.CountDocs = ClassConstants.INVALID_COUNT_SQL Then
'oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!"
oText = "Invalid SQL!"
ElseIf Profile.CountDocs = ClassConstants.NO_COUNT_SQL Then
'oText = "DocCount (MatchCountConfig has not been configured)"
oText = "No SQL!"
Else
oText = CountText
End If
Return oText
End Function
Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
ConfigManager.Config.MatchWindowSize = Size
@ -82,7 +121,7 @@ Public Class frmProfileMatch
Close()
End Sub
Private Sub TileControl1_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControl1.ItemClick
Private Sub TileControl1_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
Dim oItem As TileItem = e.Item
Dim oProfileId = oItem.Tag

View File

@ -278,39 +278,67 @@ Public Class frmStart
Dim oProfiles = CURRENT_MATCHING_PROFILES
For Each oProfile In oProfiles
Dim oSQL = oProfile.SQLCountDocs
Dim oDocumentSQL = oProfile.SQLCountDocs
Dim oDataSQL = oProfile.SQLCountData
Dim oResultDocs As Integer = 0
Dim oResultData As Integer = 0
If oSQL = String.Empty Then
If oDataSQL = String.Empty Then
oProfile.SQLCountData = ClassConstants.NO_COUNT_SQL
End If
If oDocumentSQL = String.Empty Then
oProfile.SQLCountDocs = ClassConstants.NO_COUNT_SQL
End If
Try
oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultDocs = ClassDatabase.Execute_Scalar(oSQL, MyConnectionString)
oDataSQL = clsPatterns.ReplaceAllValues(oDataSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultData = ClassDatabase.Execute_Scalar(oDataSQL, MyConnectionString)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oDataSQL)
oResultData = ClassConstants.INVALID_COUNT_SQL
End Try
Try
oDocumentSQL = clsPatterns.ReplaceAllValues(oDocumentSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oResultDocs = ClassDatabase.Execute_Scalar(oDocumentSQL, MyConnectionString)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Documents in Profile {0}: {1}", oProfile.Guid, oDocumentSQL)
oResultDocs = ClassConstants.INVALID_COUNT_SQL
End Try
oProfile.CountData = oResultData
oProfile.CountDocs = oResultDocs
Next
If oProfiles.Count = 1 Then
If oProfiles.First().CountDocs = ClassConstants.INVALID_COUNT_SQL Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your MatchCountConfig in Profiles!", ToolTipIcon.Info)
Exit Sub
End If
'If oProfiles.Count = 1 Then
' If oProfiles.First().CountDocs = ClassConstants.INVALID_COUNT_SQL Then
' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your Data SQL in Profiles!", ToolTipIcon.Info)
' Exit Sub
' End If
If oProfiles.First().CountDocs = ClassConstants.NO_COUNT_SQL Then
NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but MatchCountConfig is not configured!", ToolTipIcon.Info)
Exit Sub
End If
' If oProfiles.First().CountDocs = ClassConstants.NO_COUNT_SQL Then
' NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but Data SQL is not configured!", ToolTipIcon.Info)
' Exit Sub
' End If
CurrDocSearch2Load = oProfiles.First().Guid
frmResultDoc.Show()
Else
frmProfileMatch.ShowDialog()
End If
' If oProfiles.First().CountData = ClassConstants.INVALID_COUNT_SQL Then
' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your Document SQL in Profiles!", ToolTipIcon.Info)
' Exit Sub
' End If
' If oProfiles.First().CountData = ClassConstants.NO_COUNT_SQL Then
' NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but Document SQL is not configured!", ToolTipIcon.Info)
' Exit Sub
' End If
' CurrDocSearch2Load = oProfiles.First().Guid
' frmResultDoc.Show()
'Else
' frmProfileMatch.ShowDialog()
'End If
frmProfileMatch.ShowDialog()
End Sub
Sub Change_Monitoring_State()
If MONITORING_ACTIVE = True Then