AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Anpassungen Views und Spalten

Browse Source
This commit is contained in:
Developer01 2025-02-20 08:26:52 +01:00
parent 81b0e44d45
commit 6945585ca3
20 changed files with 901 additions and 741 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD_Clipboard_Searcher/ClassDataASorDB.vb
View File

@ -1,4 +1,5 @@
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DevExpress.Internal.WinApi.Windows.UI.Notifications
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class ClassDataASorDB Public Class ClassDataASorDB
@ -22,7 +23,7 @@ Public Class ClassDataASorDB
Return GetDatatable(pSQL, "", "", "", "DB") Return GetDatatable(pSQL, "", "", "", "DB")
End Try End Try
Else Else
oReturnDT = Database.GetDatatable(pSQL) oReturnDT = MyDB_DDECM.GetDatatable(pSQL)
End If End If
Return oReturnDT Return oReturnDT
Catch ex As Exception Catch ex As Exception
@ -34,7 +35,7 @@ Public Class ClassDataASorDB
Try Try
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED) Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_LOGIN_USER_MODULE As DataTable Dim DT_LOGIN_USER_MODULE As DataTable
DT_LOGIN_USER_MODULE = Database.GetDatatable(oSql) DT_LOGIN_USER_MODULE = MyDB_DDECM.GetDatatable(oSql)
If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True) Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
@ -71,6 +72,7 @@ Public Class ClassDataASorDB
For Each oMode In oSplitWorkMode For Each oMode In oSplitWorkMode
Logger.Debug($"oWorkingMode Parameter: {oMode}") Logger.Debug($"oWorkingMode Parameter: {oMode}")
If oMode = "NO_BASICCONF" Then If oMode = "NO_BASICCONF" Then
Logger.Info($"NO_BASICCONF will be set to false")
BASIC_CONF_VISIBLE = False BASIC_CONF_VISIBLE = False
ElseIf oMode.StartsWith("NOMATCH_INFO") Then ElseIf oMode.StartsWith("NOMATCH_INFO") Then
Try Try
@ -83,6 +85,7 @@ Public Class ClassDataASorDB
ElseIf oMode.StartsWith("HotkeySearchKey") Then ElseIf oMode.StartsWith("HotkeySearchKey") Then
Try Try
Dim oResult = oMode.Replace("HotkeySearchKey=", "") Dim oResult = oMode.Replace("HotkeySearchKey=", "")
Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
HotkeySearchKey = oResult HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True HotkeySearchKey_via_Server = True
Catch ex As Exception Catch ex As Exception
@ -90,7 +93,7 @@ Public Class ClassDataASorDB
End Try End Try
Else Else
Logger.Info($"Wrong oMode: {oMode}") Logger.Info($"Wrong oMode [{oMode}]")
End If End If
Next Next
Return True Return True

48
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@ -57,8 +57,8 @@ Public Class ClassInit
End If End If
Try Try
Database = New MSSQLServer(LogConfig, MyConnectionString) MyDB_DDECM = New MSSQLServer(LogConfig, MyConnectionString)
If Database.DBInitialized = True Then If MyDB_DDECM.DBInitialized = True Then
Return True Return True
Else Else
Return False Return False
@ -162,7 +162,7 @@ Public Class ClassInit
Try Try
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED) Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable Dim DT_CHECKUSER_MODULE As DataTable
DT_CHECKUSER_MODULE = Database.GetDatatable(oSql) DT_CHECKUSER_MODULE = MyDB_DDECM.GetDatatable(oSql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True) Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
@ -207,7 +207,7 @@ Public Class ClassInit
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#") Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
Dim oMode As String Dim oMode As String
For Each oMode In oSplitWorkMode For Each oMode In oSplitWorkMode
Logger.Debug($"oWorkingMode Parameter: {oMode}") Logger.Debug($"oWorkingMode Parameter [{oMode}]")
If oMode = "NO_BASICCONF" Then If oMode = "NO_BASICCONF" Then
BASIC_CONF_VISIBLE = False BASIC_CONF_VISIBLE = False
ElseIf oMode.StartsWith("NOMATCH_INFO") Then ElseIf oMode.StartsWith("NOMATCH_INFO") Then
@ -322,17 +322,19 @@ Public Class ClassInit
'Database.GetDatatable(sql) 'Database.GetDatatable(sql)
Dim oSQL As String Dim oSQL As String
oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'" oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'"
Database.ExecuteNonQuery(oSQL) MyDB_DDECM.ExecuteNonQuery(oSQL)
oSQL = $"INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES oSQL = $"INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES
({USER_ID},1,'Clipboard-Watcher','{My.Application.Info.Version.ToString}','Environment.MachineName')" ({USER_ID},1,'Clipboard-Watcher','{My.Application.Info.Version.ToString}','Environment.MachineName')"
Database.ExecuteNonQuery(oSQL) MyDB_DDECM.ExecuteNonQuery(oSQL)
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
If ESC_Hidden = True Then If ESC_Hidden = True Then
frmGhostUser.ShowDialog()
'frmLoginUserSelect.ShowDialog() 'frmLoginUserSelect.ShowDialog()
ESC_Hidden = False ESC_Hidden = False
If USER_USERNAME <> "" Then If USER_USERNAME <> "" And GHOST_USERID <> 0 Then
Logger.Info("GHOST USER ACTIVE")
InitUserLogin(USER_USERNAME) InitUserLogin(USER_USERNAME)
End If End If
@ -341,16 +343,16 @@ Public Class ClassInit
' pageAdmin.Visible = True ' pageAdmin.Visible = True
End If End If
WD_UNICODE = Database.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1") WD_UNICODE = MyDB_DDECM.GetScalarValue("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")
oSQL = $"SELECT COALESCE(MAX(LICENSE),'') FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' oSQL = $"SELECT COALESCE(MAX(LICENSE),'') FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'
and VERSION = '{My.Settings.GDPICTURE_VERSION}' AND ACTIVE = 1" and VERSION = '{My.Settings.GDPICTURE_VERSION}' AND ACTIVE = 1"
GDPICTURE_LICENSE = Database.GetScalarValue(oSQL) GDPICTURE_LICENSE = MyDB_DDECM.GetScalarValue(oSQL)
If GDPICTURE_LICENSE = String.Empty Then If GDPICTURE_LICENSE = String.Empty Then
Logger.Info($"ATTENTION: GDPICTURE VERSION is nothing. [{oSQL}]") Logger.Info($"ATTENTION: GDPICTURE VERSION is nothing. [{oSQL}]")
End If End If
oSQL = "SELECT LANG_CODE FROM TBDD_GUI_LANGUAGE WHERE ACTIVE = 1 ORDER BY LANG_CODE" oSQL = "SELECT LANG_CODE FROM TBDD_GUI_LANGUAGE WHERE ACTIVE = 1 ORDER BY LANG_CODE"
BASEDATA_DT_LANGUAGE = Database.GetDatatable(oSQL) BASEDATA_DT_LANGUAGE = MyDB_DDECM.GetDatatable(oSQL)
Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False) Logger.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
@ -365,7 +367,7 @@ Public Class ClassInit
If USER_IS_ADMIN = False Then If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen 'Anmeldung wieder herausnehmen
oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'" oSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
Database.ExecuteNonQuery(oSQL) MyDB_DDECM.ExecuteNonQuery(oSQL)
Logger.Info(" - logged out the user", False) Logger.Info(" - logged out the user", False)
Return False Return False
End If End If
@ -407,18 +409,18 @@ Public Class ClassInit
End Sub End Sub
Public Shared Function Refresh_Profile_Links() As String Public Shared Function Refresh_Profile_Links() As String
Dim oWhereClause = $"USER_ID = {USER_ID}" Dim ProfileSQL As String = $"SELECT DISTINCT PROFIL_ID [GUID], PROFIL_ID, PROFIL_NAME,REGEX_EXPRESSION,COMMENT,PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE USER_ID = {USER_ID}"
'OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {USER_ID}))" Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T1.PROFIL_ID, T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND USER_ID = {USER_ID}"
Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T INNER JOIN VWCW_USER_PROFILE T1 ON T.PROFILE_ID = T1.PROFIL_ID AND T1.USER_ID = T.USER_ID
Dim ProfileSQL As String = $"SELECT DISTINCT PROFIL_ID [GUID], PROFIL_ID, PROFIL_NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE {oWhereClause}" WHERE T.USER_ID = {USER_ID}"
Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T1.PROFIL_ID, T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND ({oWhereClause})" Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T INNER JOIN VWCW_USER_PROFILE T1
Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND T1.USER_ID = {USER_ID}" ON T.PROFILE_ID = T1.PROFIL_ID AND T.USER_ID = T1.USER_ID WHERE T1.USER_ID = {USER_ID} "
Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.PROFIL_ID AND T1.USER_ID = {USER_ID}"
Try Try
DT_USER_PROFILES = Database.GetDatatable(ProfileSQL) DT_USER_PROFILES = MyDB_DDECM.GetDatatable(ProfileSQL)
If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then If DT_USER_PROFILES Is Nothing Or DT_USER_PROFILES.Rows.Count = 0 Then
Logger.Warn("Keine Profile für den User auswertbar. Konfiuration oder SQL prüfen: " + ProfileSQL)
Return S.Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_ Return S.Es_wurden_noch_keine_Profile_für_den_aktuellen_Benutzer_konfiguriert_
End If End If
Catch ex As Exception Catch ex As Exception
@ -428,7 +430,7 @@ Public Class ClassInit
Return S.Fehler_bei_der_Aktualisierung_ Return S.Fehler_bei_der_Aktualisierung_
End Try End Try
Try Try
DTPROFILE_REL_PROCESS = Database.GetDatatable(oProcessSQL) DTPROFILE_REL_PROCESS = MyDB_DDECM.GetDatatable(oProcessSQL)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_ProcessLinks: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Refresh_ProcessLinks: " & ex.Message, MsgBoxStyle.Critical)
@ -436,7 +438,7 @@ Public Class ClassInit
Return S.Fehler_bei_der_Aktualisierung_ Return S.Fehler_bei_der_Aktualisierung_
End Try End Try
Try Try
DTPROFILE_REL_WINDOW = Database.GetDatatable(oWindowSQL) DTPROFILE_REL_WINDOW = MyDB_DDECM.GetDatatable(oWindowSQL)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_windowLinks: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Refresh_windowLinks: " & ex.Message, MsgBoxStyle.Critical)
@ -444,7 +446,7 @@ Public Class ClassInit
Return S.Fehler_bei_der_Aktualisierung_ Return S.Fehler_bei_der_Aktualisierung_
End Try End Try
Try Try
DTPROFILE_REL_CONTROL = Database.GetDatatable(oControlSQL) DTPROFILE_REL_CONTROL = MyDB_DDECM.GetDatatable(oControlSQL)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_ControlLinks: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Refresh_ControlLinks: " & ex.Message, MsgBoxStyle.Critical)

4
app/DD_Clipboard_Searcher/ClassLicense.vb
View File

@ -6,11 +6,11 @@ Public Class ClassLicense
Private Shared Sub Get_License(CLIENT_ID As Integer) Private Shared Sub Get_License(CLIENT_ID As Integer)
Try Try
Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'") Dim sql As String = String.Format("SELECT LICENSE FROM TBDD_MODULES WHERE SHORT_NAME = 'CW'")
lic_string = Database.GetScalarValue(sql) lic_string = MyDB_DDECM.GetScalarValue(sql)
Catch ex As Exception Catch ex As Exception
Try Try
Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
lic_string = Database.GetScalarValue(sql) lic_string = MyDB_DDECM.GetScalarValue(sql)
Catch ex1 As Exception Catch ex1 As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
End Try End Try

2
app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.4.0")> <Assembly: AssemblyVersion("2.7.4.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

21
app/DD_Clipboard_Searcher/MyDataset.xsd
View File

@ -699,8 +699,8 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWCW_USER_PROFILE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWCW_USER_PROFILE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT * <CommandText>SELECT GUID, PROFIL_ID, PROFIL_NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, USER_ID, USER_SURNAME, USER_PRENAME, USERNAME
FROM VWCW_USER_PROFILE FROM VWCW_USER_PROFILE
WHERE (PROFIL_ID = @PROFILE_ID)</CommandText> WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
<Parameters> <Parameters>
@ -722,6 +722,7 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
<Mapping SourceColumn="USER_SURNAME" DataSetColumn="USER_SURNAME" /> <Mapping SourceColumn="USER_SURNAME" DataSetColumn="USER_SURNAME" />
<Mapping SourceColumn="USER_PRENAME" DataSetColumn="USER_PRENAME" /> <Mapping SourceColumn="USER_PRENAME" DataSetColumn="USER_PRENAME" />
<Mapping SourceColumn="USERNAME" DataSetColumn="USERNAME" /> <Mapping SourceColumn="USERNAME" DataSetColumn="USERNAME" />
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -1183,6 +1184,7 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="GUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_UserColumnName="GUID" type="xs:int" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -1220,7 +1222,7 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="GUID" msprop:Generator_UserColumnName="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" type="xs:int" /> <xs:element name="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_UserColumnName="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" type="xs:int" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -1297,6 +1299,11 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
<xs:selector xpath=".//mstns:TBDD_CONNECTION" /> <xs:selector xpath=".//mstns:TBDD_CONNECTION" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
</xs:unique> </xs:unique>
<xs:unique name="VWCW_USER_PROFILE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWCW_USER_PROFILE" />
<xs:field xpath="mstns:GUID" />
<xs:field xpath="mstns:PROFIL_ID" />
</xs:unique>
<xs:unique name="VWCW_GROUP_PROFILE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="VWCW_GROUP_PROFILE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWCW_GROUP_PROFILE" /> <xs:selector xpath=".//mstns:VWCW_GROUP_PROFILE" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
@ -1304,10 +1311,10 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
</xs:element> </xs:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <xs:appinfo>
<msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" msdata:parent="TBCW_PROF_REL_WINDOW" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="WINDOW_ID" msprop:Generator_UserParentTable="TBCW_PROF_REL_WINDOW" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" msprop:Generator_ParentPropName="TBCW_PROF_REL_WINDOWRow" /> <msdata:Relationship name="FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" msdata:parent="TBCW_PROF_REL_WINDOW" msdata:child="TBCW_PROF_REL_CONTROL" msdata:parentkey="GUID" msdata:childkey="WINDOW_ID" msprop:Generator_UserParentTable="TBCW_PROF_REL_WINDOW" msprop:Generator_UserChildTable="TBCW_PROF_REL_CONTROL" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_CONTROLRows" msprop:Generator_ParentPropName="TBCW_PROF_REL_WINDOWRow" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_CONTROL_WINDOW_ID" />
<msdata:Relationship name="FK_TBCW_PROF_REL_WINDOW_PROCESS_ID" msdata:parent="TBCW_PROFILE_PROCESS" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROCESS_ID" msprop:Generator_UserParentTable="TBCW_PROFILE_PROCESS" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_WINDOW_PROCESS_ID" msprop:Generator_ParentPropName="TBCW_PROFILE_PROCESSRow" /> <msdata:Relationship name="FK_TBCW_PROF_REL_WINDOW_PROCESS_ID" msdata:parent="TBCW_PROFILE_PROCESS" msdata:child="TBCW_PROF_REL_WINDOW" msdata:parentkey="GUID" msdata:childkey="PROCESS_ID" msprop:Generator_UserParentTable="TBCW_PROFILE_PROCESS" msprop:Generator_UserChildTable="TBCW_PROF_REL_WINDOW" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID" msprop:Generator_ChildPropName="GetTBCW_PROF_REL_WINDOWRows" msprop:Generator_ParentPropName="TBCW_PROFILE_PROCESSRow" msprop:Generator_UserRelationName="FK_TBCW_PROF_REL_WINDOW_PROCESS_ID" />
<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_UserParentTable="TBCW_PROFILES" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ParentPropName="TBCW_PROFILESRow" /> <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_UserParentTable="TBCW_PROFILES" msprop:Generator_UserChildTable="TBCW_PROF_DATA_SEARCH" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF" msprop:Generator_ChildPropName="GetTBCW_PROF_DATA_SEARCHRows" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_UserRelationName="FK_TBCW_PROF_DATA_SEARCH_PROF_IF" />
<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_UserParentTable="TBCW_PROFILES" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" 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_UserParentTable="TBCW_PROFILES" msprop:Generator_UserChildTable="TBCW_PROF_DOC_SEARCH" msprop:Generator_RelationVarName="relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF" msprop:Generator_ChildPropName="GetTBCW_PROF_DOC_SEARCHRows" msprop:Generator_ParentPropName="TBCW_PROFILESRow" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" />
</xs:appinfo> </xs:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

2
app/DD_Clipboard_Searcher/MyDataset.xss
View File

@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="303" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="19" X="144" Y="105" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" /> <Shape ID="DesignTable:TBCW_GROUP_PROFILE" ZOrder="19" X="144" Y="105" Height="172" Width="281" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="18" X="457" Y="111" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBCW_PROF_DATA_SEARCH" ZOrder="18" X="457" Y="111" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />

18
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@ -70,13 +70,13 @@ Public Class ctrlApplicationAssignment
If oProcessName <> "" Then If oProcessName <> "" Then
Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName) Dim oSQL = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", ProfileId, oProcessName, Environment.UserName)
If Database.ExecuteNonQuery(oSQL) = False Then If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False Return False
Else Else
Dim oNewProcessId = Database.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS") Dim oNewProcessId = MyDB_DDECM.GetScalarValue("SELECT MAX(GUID) FROM TBCW_PROFILE_PROCESS")
oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO, PROCESS_ID) VALUES ('{0}', '^{1}$', '{2}' ,{3})", oWindowTitle, oWindowTitle, Environment.UserName, oNewProcessId) oSQL = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO, PROCESS_ID) VALUES ('{0}', '^{1}$', '{2}' ,{3})", oWindowTitle, oWindowTitle, Environment.UserName, oNewProcessId)
If Database.ExecuteNonQuery(oSQL) = False Then If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
Return False Return False
End If End If
End If End If
@ -97,7 +97,7 @@ Public Class ctrlApplicationAssignment
Try Try
Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID")) Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId) Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId)
If Database.ExecuteNonQuery(oSQL) Then If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Process_Load(SelectedProfileId) Process_Load(SelectedProfileId)
Return True Return True
End If End If
@ -147,7 +147,7 @@ Public Class ctrlApplicationAssignment
If oWindowTitle <> "" Then If oWindowTitle <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO,PROCESS_ID) VALUES ('{0}', '^{1}$','{2}',{3})", oWindowTitle, oWindowTitle, Environment.UserName, CURRENT_PROCESSID) Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_WINDOW (DESCRIPTION, REGEX, ADDED_WHO,PROCESS_ID) VALUES ('{0}', '^{1}$','{2}',{3})", oWindowTitle, oWindowTitle, Environment.UserName, CURRENT_PROCESSID)
If Database.ExecuteNonQuery(insert) = False Then If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
Return False Return False
End If End If
End If End If
@ -167,7 +167,7 @@ Public Class ctrlApplicationAssignment
Try Try
Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID")) Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid) Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Process_Load(SelectedProfileId) Process_Load(SelectedProfileId)
Return True Return True
End If End If
@ -246,7 +246,7 @@ Public Class ctrlApplicationAssignment
{oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom} {oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}
)" )"
If Database.ExecuteNonQuery(oSql) = False Then If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
Return False Return False
End If End If
@ -336,7 +336,7 @@ Public Class ctrlApplicationAssignment
WHERE GUID = {SelectedControlId} WHERE GUID = {SelectedControlId}
" "
If Database.ExecuteNonQuery(oSql) = False Then If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
Return False Return False
End If End If
@ -372,7 +372,7 @@ Public Class ctrlApplicationAssignment
Try Try
Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID")) Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid) Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
If Database.ExecuteNonQuery(oSQL) Then If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
Window_Load() Window_Load()
Return True Return True
End If End If

9
app/DD_Clipboard_Searcher/easyFLOW.vbproj
View File

@ -235,6 +235,12 @@
<Compile Include="frmClientLogin.vb"> <Compile Include="frmClientLogin.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmGhostUser.Designer.vb">
<DependentUpon>frmGhostUser.vb</DependentUpon>
</Compile>
<Compile Include="frmGhostUser.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLicense.Designer.vb"> <Compile Include="frmLicense.Designer.vb">
<DependentUpon>frmLicense.vb</DependentUpon> <DependentUpon>frmLicense.vb</DependentUpon>
</Compile> </Compile>
@ -350,6 +356,9 @@
<EmbeddedResource Include="frmClientLogin.resx"> <EmbeddedResource Include="frmClientLogin.resx">
<DependentUpon>frmClientLogin.vb</DependentUpon> <DependentUpon>frmClientLogin.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmGhostUser.resx">
<DependentUpon>frmGhostUser.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.resx"> <EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon> <DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

783
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

113
app/DD_Clipboard_Searcher/frmAdministration.resx
View File

@ -118,46 +118,40 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROFILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>376, 17</value> <value>127, 17</value>
</metadata> </metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>266, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>266, 17</value>
</metadata>
<metadata name="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1482, 17</value>
</metadata>
<metadata name="VWCW_USER_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="TBWH_UserBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>121, 54</value>
</metadata>
<metadata name="TBCW_PROFILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROFILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>594, 17</value> <value>345, 17</value>
</metadata> </metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>804, 17</value> <value>555, 17</value>
</metadata> </metadata>
<metadata name="OFDWindreamsuche.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OFDWindreamsuche.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>974, 17</value> <value>725, 17</value>
</metadata> </metadata>
<metadata name="VWCW_USER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWCW_USER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1137, 17</value> <value>888, 17</value>
</metadata> </metadata>
<metadata name="TimerTest.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerTest.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1378, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1674, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value> <value>17, 54</value>
</metadata> </metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>313, 54</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>475, 54</value>
</metadata>
<metadata name="TBCW_PROF_DOC_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DOC_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>665, 54</value> <value>17, 91</value>
</metadata> </metadata>
<metadata name="TBCW_PROF_DATA_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DATA_SEARCHBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>115, 54</value> <value>573, 54</value>
</metadata> </metadata>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -780,7 +774,7 @@
</value> </value>
</data> </data>
<metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWH_PROFILE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>270, 91</value> <value>270, 128</value>
</metadata> </metadata>
<data name="TabPageGeneralSettings.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPageGeneralSettings.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -800,10 +794,10 @@
</value> </value>
</data> </data>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>514, 91</value> <value>514, 128</value>
</metadata> </metadata>
<metadata name="TBWHSEARCHPOSITIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWHSEARCHPOSITIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>988, 91</value> <value>165, 165</value>
</metadata> </metadata>
<data name="SimpleLabelItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="SimpleLabelItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -909,25 +903,15 @@
LDE0LjMsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L LDE0LjMsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
</value> </value>
</data> </data>
<data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <metadata name="cmsGroupZODelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value> <value>988, 128</value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 </metadata>
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl <metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/ <value>769, 91</value>
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi </metadata>
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv <metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh <value>561, 91</value>
Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz </metadata>
dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp
ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs
LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu
OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi
IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt
MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku
NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2
Zz4L
</value>
</data>
<data name="TabPageGroupAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPageGroupAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
@ -952,6 +936,9 @@
MjAsMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= MjAsMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value> </value>
</data> </data>
<metadata name="cmsUserZODelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 165</value>
</metadata>
<data name="TabPageUserAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="TabPageUserAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
@ -976,29 +963,39 @@
MjAsMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== MjAsMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
<metadata name="cmsDelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>17, 128</value> <value>
</metadata> AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
<metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
<value>1417, 54</value> dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
</metadata> PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
<metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
<value>1209, 54</value> MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
</metadata> Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz
dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp
ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs
LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu
OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi
IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt
MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku
NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2
Zz4L
</value>
</data>
<metadata name="TBCW_PROF_DATA_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DATA_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>394, 54</value> <value>852, 54</value>
</metadata> </metadata>
<metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>941, 54</value> <value>293, 91</value>
</metadata> </metadata>
<metadata name="VWCW_GROUP_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWCW_GROUP_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 91</value> <value>17, 128</value>
</metadata> </metadata>
<metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>755, 91</value> <value>755, 128</value>
</metadata> </metadata>
<metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1248, 91</value> <value>425, 165</value>
</metadata> </metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>163</value> <value>163</value>

251
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@ -1,4 +1,6 @@
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DigitalData.Modules.Base Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Language Imports DigitalData.Modules.Language
@ -187,8 +189,15 @@ Public Class frmAdministration
Sub Refresh_ProfileData() Sub Refresh_ProfileData()
Try Try
VWCW_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString Dim oSQL = $"SELECT GUID, USER_ID, USERNAME as Username, USER_SURNAME + ', ' + USER_PRENAME as Name FROM
VWCW_USER_PROFILETableAdapter.Fill(MyDataset.VWCW_USER_PROFILE, PROFILE_IDTextBox.Text) VWCW_USER_PROFILE WHERE PROFIL_ID = {PROFILE_IDTextBox.Text}"
Dim oDT = MyDB_DDECM.GetDatatable(oSQL)
GridViewUserInProfile.Columns.Clear()
If Not IsNothing(oDT) Then
GridControlUserInProfile.DataSource = oDT
GridViewUserInProfile.Columns.Item("USER_ID").Visible = False
GridViewUserInProfile.Columns.Item("GUID").Visible = False
End If
VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString VWCW_GROUP_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text) VWCW_GROUP_PROFILETableAdapter.Fill(MyDataset.VWCW_GROUP_PROFILE, PROFILE_IDTextBox.Text)
@ -223,7 +232,7 @@ Public Class frmAdministration
For Each row As DataRow In MyDataset.TBWH_User.Rows For Each row As DataRow In MyDataset.TBWH_User.Rows
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.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 If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation) MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If End If
End If End If
@ -245,7 +254,7 @@ Public Class frmAdministration
Dim Sql = String.Format("SELECT DISTINCT * FROM VWDD_USER_MODULE_CW WHERE GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", PROFILE_ID) Dim Sql = String.Format("SELECT DISTINCT * FROM VWDD_USER_MODULE_CW WHERE GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", PROFILE_ID)
Dim DT_USER = Database.GetDatatable(Sql) Dim DT_USER = MyDB_DDECM.GetDatatable(Sql)
Try Try
MyDataset.TBWH_User.Clear() MyDataset.TBWH_User.Clear()
@ -273,7 +282,7 @@ Public Class frmAdministration
Sub Refresh_Free_Groups(PROFILE_ID As Integer) Sub Refresh_Free_Groups(PROFILE_ID As Integer)
Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE INTERNAL = 0 AND GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID) Dim Sql = String.Format("SELECT DISTINCT * FROM TBDD_GROUPS WHERE INTERNAL = 0 AND GUID NOT IN (SELECT GROUP_ID FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {0}) ORDER BY NAME", PROFILE_ID)
Dim oDataTable = Database.GetDatatable(Sql) Dim oDataTable = MyDB_DDECM.GetDatatable(Sql)
Try Try
MyDataset.TBWH_GROUP.Clear() MyDataset.TBWH_GROUP.Clear()
@ -281,7 +290,7 @@ Public Class frmAdministration
For Each row As DataRow In oDataTable.Rows For Each row As DataRow In oDataTable.Rows
Dim oNewRow As MyDataset.TBWH_GROUPRow Dim oNewRow As MyDataset.TBWH_GROUPRow
oNewRow = MyDataset.TBWH_GROUP.NewTBWH_GROUPRow oNewRow = MyDataset.TBWH_GROUP.NewTBWH_GROUPRow
oNewRow.NAME = row.Item("NAME") oNewRow.Name = IIf(IsDBNull(row.Item("NAME")), "Null", row.Item("NAME"))
oNewRow.GUID = row.Item("GUID") oNewRow.GUID = row.Item("GUID")
MyDataset.TBWH_GROUP.Rows.Add(oNewRow) MyDataset.TBWH_GROUP.Rows.Add(oNewRow)
Next Next
@ -290,27 +299,6 @@ Public Class frmAdministration
End Try End Try
End Sub End Sub
Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs)
Try
Dim ID = GridViewUserInProfile.GetFocusedRowCellValue(GridViewUserInProfile.Columns("GUID"))
Try
Dim I As Integer = CInt(ID)
Catch ex As Exception
Exit Sub
End Try
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
If Database.ExecuteNonQuery(del) = True Then
Refresh_ProfileData()
If PROFILE_IDTextBox.Text <> "" Then
Refresh_Free_Users(PROFILE_IDTextBox.Text)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Load_Profile_Process() Private Sub Load_Profile_Process()
If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then
Exit Sub Exit Sub
@ -390,7 +378,7 @@ Public Class frmAdministration
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text)
' wenn Speichern ja ' wenn Speichern ja
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
If Database.ExecuteNonQuery(swl) = True Then If MyDB_DDECM.ExecuteNonQuery(swl) = True Then
Refresh_ProfileScreen() Refresh_ProfileScreen()
End If End If
End If End If
@ -686,7 +674,7 @@ Public Class frmAdministration
Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'" Dim oSQL As String = $"EXEC PRCW_COPY_PROFILE {PROFILE_IDTextBox.Text}, '{USER_USERNAME}'"
If Database.ExecuteNonQuery(oSQL) = False Then If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Profil konnte nicht kopiert werden! Mehr Informationen im Log.", MsgBoxStyle.Exclamation, Text) MsgBox("Profil konnte nicht kopiert werden! Mehr Informationen im Log.", MsgBoxStyle.Exclamation, Text)
Else Else
Refresh_ProfileScreen() Refresh_ProfileScreen()
@ -741,63 +729,6 @@ Public Class frmAdministration
End Sub End Sub
Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("GUID")
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
If Database.ExecuteNonQuery(del) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("GUID")
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(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserNotInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlGroupNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlGroupNotInProfile.DragDrop Private Sub GridControlGroupNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlGroupNotInProfile.DragDrop
Try Try
@ -809,7 +740,7 @@ Public Class frmAdministration
Dim oGroupId As Integer = oRow.GROUP_ID Dim oGroupId As Integer = oRow.GROUP_ID
Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}" Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}"
If Database.ExecuteNonQuery(oSQL) = False Then If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not delete the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation) MsgBox("Could not delete the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If End If
Next Next
@ -834,7 +765,7 @@ Public Class frmAdministration
Dim oGroupId As Integer = oRow.GUID Dim oGroupId As Integer = oRow.GUID
Dim oSQL As String = $"INSERT INTO TBCW_GROUP_PROFILE (PROFILE_ID,GROUP_ID) VALUES ({PROFILE_IDTextBox.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 If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation) MsgBox("Could not insert the Group-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If End If
Next Next
@ -914,7 +845,7 @@ Public Class frmAdministration
Dim oGroupId As Integer = oRow.GROUP_ID Dim oGroupId As Integer = oRow.GROUP_ID
Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}" Dim oSQL As String = $"DELETE FROM TBCW_GROUP_PROFILE WHERE PROFILE_ID = {oProfileId} AND GROUP_ID = {oGroupId}"
If Database.ExecuteNonQuery(oSQL) = False Then If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
MsgBox("Could not delete the Group-Definition via contextmenu....Check the logfile!", MsgBoxStyle.Exclamation) MsgBox("Could not delete the Group-Definition via contextmenu....Check the logfile!", MsgBoxStyle.Exclamation)
End If End If
Next Next
@ -929,4 +860,146 @@ Public Class frmAdministration
MsgBox("Unexpected Error in deleting Group-Rights via cms: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in deleting Group-Rights via cms: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub UserEntfernenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserEntfernenToolStripMenuItem.Click
FreeUserProfile
End Sub
Sub FreeUserProfile()
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("USER_ID")
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0} AND USER_ID = {1}", PROFILE_IDTextBox.Text, oGuid)
If MyDB_DDECM.ExecuteNonQuery(del) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlUserInProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridControlUserInProfile.MouseDown
'Dim view As GridView = CType(sender, GridView)
'Dim hitInfo As GridHitInfo = view.CalcHitInfo(e.Location)
'If hitInfo.InRow Then
' Dim rowHandle As Integer = hitInfo.RowHandle
' Dim data As Object = view.GetRow(rowHandle)
' If data IsNot Nothing Then
' GridControl1.DoDragDrop(data, DragDropEffects.Move)
' End If
'End If
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
FreeUserProfile()
End Sub
Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
Try
If PROFILE_IDTextBox.Text = String.Empty Then
Exit Sub
End If
Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
For Each oRowHandle As Integer In oSelectedRows
Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
Dim oGuid As Integer = oRow.Item("GUID")
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
End If
Next
Refresh_Free_Users(PROFILE_IDTextBox.Text)
Refresh_ProfileData()
GridViewUserNotInProfile.ClearSelection()
Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
'Private Sub GridControlUserInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserInProfile.DragDrop
' Try
' If PROFILE_IDTextBox.Text = String.Empty Then
' Exit Sub
' End If
' Dim oSelectedRows = GridViewUserNotInProfile.GetSelectedRows()
' For Each oRowHandle As Integer In oSelectedRows
' Dim oRow As DataRow = GridViewUserNotInProfile.GetDataRow(oRowHandle)
' Dim oGuid As Integer = oRow.Item("GUID")
' Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", PROFILE_IDTextBox.Text, oGuid)
' If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
' MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
' End If
' Next
' Refresh_Free_Users(PROFILE_IDTextBox.Text)
' Refresh_ProfileData()
' GridViewUserNotInProfile.ClearSelection()
' Status_Changed($"{oSelectedRows.Count} Benutzer zugeordnet")
' Catch ex As Exception
' Logger.Error(ex)
' MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
'End Sub
'Private Sub GridControlUserNotInProfile_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlUserNotInProfile.DragDrop
' Try
' If PROFILE_IDTextBox.Text = String.Empty Then
' Exit Sub
' End If
' Dim oSelectedRows = GridViewUserInProfile.GetSelectedRows()
' For Each oRowHandle As Integer In oSelectedRows
' Dim oRow As DataRow = GridViewUserInProfile.GetDataRow(oRowHandle)
' Dim oGuid As Integer = oRow.Item("GUID")
' Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", oGuid)
' If MyDB_DDECM.ExecuteNonQuery(del) = False Then
' MsgBox("Error while adding user!", MsgBoxStyle.Exclamation)
' End If
' Next
' Refresh_Free_Users(PROFILE_IDTextBox.Text)
' Refresh_ProfileData()
' GridViewUserInProfile.ClearSelection()
' Status_Changed($"{oSelectedRows.Count} Benutzerzuordnungen gelöscht")
' Catch ex As Exception
' Logger.Error(ex)
' MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try
'End Sub
End Class End Class

2
app/DD_Clipboard_Searcher/frmConnection.vb
View File

@ -197,7 +197,7 @@ Public Class frmConnection
Try Try
If GUIDTextBox.Text <> String.Empty Then If GUIDTextBox.Text <> String.Empty Then
Dim oSQL = $"SELECT dbo.FNCW_GET_SEARCH_COUNT_FOR_CONNECTION({GUIDTextBox.Text})" Dim oSQL = $"SELECT dbo.FNCW_GET_SEARCH_COUNT_FOR_CONNECTION({GUIDTextBox.Text})"
Dim oCount = Database.GetScalarValue(oSQL) Dim oCount = MyDB_DDECM.GetScalarValue(oSQL)
If oCount IsNot Nothing AndAlso oCount = 0 Then If oCount IsNot Nothing AndAlso oCount = 0 Then
Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text) Dim oResult As MsgBoxResult = MsgBox("Wollen Sie die Verbindung wirklich löschen?", MsgBoxStyle.YesNo, Text)

76
app/DD_Clipboard_Searcher/frmGhostUser.Designer.vb generated Normal file
View File

@ -0,0 +1,76 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGhostUser
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(108, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Usernamen eingeben"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(226, 20)
Me.TextBox1.TabIndex = 1
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 50)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(226, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Ghostmodus starten"
Me.Button1.UseVisualStyleBackColor = True
'
'frmGhostUser
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(252, 81)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmGhostUser"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Ghost User wählen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Button1 As Button
End Class

120
app/DD_Clipboard_Searcher/frmGhostUser.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

15
app/DD_Clipboard_Searcher/frmGhostUser.vb Normal file
View File

@ -0,0 +1,15 @@
Public Class frmGhostUser
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text <> String.Empty Then
Dim osql = $"SELECT COALESCE(MAX(GUID),0) FROM TBDD_USER WHERE USERNAME = '{TextBox1.Text}'"
Dim oUSERID = MyDB_DDECM.GetScalarValue(osql)
If oUSERID = 0 Then
MsgBox("Username unbekannt!", MsgBoxStyle.Information)
Else
GHOST_USERID = oUSERID
USER_USERNAME = TextBox1.Text
Me.Close()
End If
End If
End Sub
End Class

4
app/DD_Clipboard_Searcher/frmLicense.vb
View File

@ -57,9 +57,9 @@ Public Class frmLicense
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#") Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & oDate, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_CBSEARCHER = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If Database.ExecuteNonQuery(sql) = False Then If MyDB_DDECM.ExecuteNonQuery(sql) = False Then
sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'" sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'"
Database.ExecuteNonQuery(sql) MyDB_DDECM.ExecuteNonQuery(sql)
Refresh_Licence(True) Refresh_Licence(True)
Else Else
MsgBox("Could not renew the license!!", MsgBoxStyle.Critical) MsgBox("Could not renew the license!!", MsgBoxStyle.Critical)

2
app/DD_Clipboard_Searcher/frmMain.Designer.vb generated
View File

@ -215,7 +215,7 @@ Partial Class frmMain
'cmstrpNotifyIcon 'cmstrpNotifyIcon
' '
Me.cmstrpNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cmstrpNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem, Me.ClientBeendenToolStripMenuItem}) Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FunktionenToolStripMenuItem, Me.ClientÖffnenToolStripMenuItem, Me.tsmiChangeState, Me.ClientBeendenToolStripMenuItem})
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon" Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon") resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon")
' '

140
app/DD_Clipboard_Searcher/frmMain.resx
View File

@ -375,58 +375,6 @@
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>
<data name="&gt;&gt;labelStatus.Name" xml:space="preserve">
<value>labelStatus</value>
</data>
<data name="&gt;&gt;labelStatus.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;labelStatus.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;labelStatus.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;labelRefresh.Name" xml:space="preserve">
<value>labelRefresh</value>
</data>
<data name="&gt;&gt;labelRefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;labelRefresh.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;labelRefresh.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>209, 72</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>256, 129</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>16</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Informationen</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="labelStatus.Font" type="System.Drawing.Font, System.Drawing"> <data name="labelStatus.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value> <value>Tahoma, 8.25pt</value>
</data> </data>
@ -434,8 +382,9 @@
<value>8, 40</value> <value>8, 40</value>
</data> </data>
<data name="labelStatus.Size" type="System.Drawing.Size, System.Drawing"> <data name="labelStatus.Size" type="System.Drawing.Size, System.Drawing">
<value>242, 67</value> <value>242, 68</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="labelStatus.TabIndex" type="System.Int32, mscorlib"> <data name="labelStatus.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
@ -484,6 +433,33 @@
<data name="&gt;&gt;labelRefresh.ZOrder" xml:space="preserve"> <data name="&gt;&gt;labelRefresh.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>209, 72</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>256, 129</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>16</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Informationen</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve"> <data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value> <value>Label2</value>
</data> </data>
@ -515,7 +491,7 @@
<value>12, 72</value> <value>12, 72</value>
</data> </data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>191, 59</value> <value>191, 62</value>
</data> </data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib"> <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>15</value> <value>15</value>
@ -576,7 +552,7 @@
<value>Tahoma, 15.75pt, style=Bold</value> <value>Tahoma, 15.75pt, style=Bold</value>
</data> </data>
<data name="labelHotkey.Location" type="System.Drawing.Point, System.Drawing"> <data name="labelHotkey.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 29</value> <value>3, 32</value>
</data> </data>
<data name="labelHotkey.Size" type="System.Drawing.Size, System.Drawing"> <data name="labelHotkey.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 27</value> <value>185, 27</value>
@ -614,32 +590,8 @@
<metadata name="cmstrpNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmstrpNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>153, 17</value> <value>153, 17</value>
</metadata> </metadata>
<data name="FunktionenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 22</value>
</data>
<data name="FunktionenToolStripMenuItem.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="tsmiChangeState.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 22</value>
</data>
<data name="tsmiChangeState.Text" xml:space="preserve">
<value>easyFLOW stoppen</value>
</data>
<data name="ClientÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 22</value>
</data>
<data name="ClientÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>In den Vordergrund</value>
</data>
<data name="ClientBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>180, 22</value>
</data>
<data name="ClientBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>easyFLOW beenden</value>
</data>
<data name="cmstrpNotifyIcon.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmstrpNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>181, 114</value> <value>195, 92</value>
</data> </data>
<data name="&gt;&gt;cmstrpNotifyIcon.Name" xml:space="preserve"> <data name="&gt;&gt;cmstrpNotifyIcon.Name" xml:space="preserve">
<value>cmstrpNotifyIcon</value> <value>cmstrpNotifyIcon</value>
@ -750,12 +702,36 @@
<data name="NotifyIconMain.Visible" type="System.Boolean, mscorlib"> <data name="NotifyIconMain.Visible" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="FunktionenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="FunktionenToolStripMenuItem.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="BisherigenAblaufAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="BisherigenAblaufAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>217, 22</value> <value>217, 22</value>
</data> </data>
<data name="BisherigenAblaufAnzeigenToolStripMenuItem.Text" xml:space="preserve"> <data name="BisherigenAblaufAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Bisherigen Ablauf anzeigen</value> <value>Bisherigen Ablauf anzeigen</value>
</data> </data>
<data name="tsmiChangeState.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="tsmiChangeState.Text" xml:space="preserve">
<value>Überwachung stoppen</value>
</data>
<data name="ClientÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="ClientÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>In den Vordergrund</value>
</data>
<data name="ClientBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="ClientBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>easyFLOW beenden</value>
</data>
<metadata name="TimerClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>299, 17</value> <value>299, 17</value>
</metadata> </metadata>
@ -788,7 +764,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
CwAAAk1TRnQBSQFMAgEBBQEAAbwBAQG8AQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CwAAAk1TRnQBSQFMAgEBBQEAAcQBAQHEAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -5371,7 +5347,7 @@
<data name="frmMain.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmMain.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
DwAACw8BkvkDpQAAEkpJREFUeF7t3b+u5EgVx/F9hHkIHmDuvgDzADwA4QTkbE4yCfnkJJNstAEiQgRI DgAACw4BQL7hQQAAEkpJREFUeF7t3b+u5EgVx/F9hHkIHmDuvgDzADwA4QTkbE4yCfnkJJNstAEiQgRI
I0hIFo2EhETEBEQkbEJC0tTv3vas232623adss8pf4OPtFPbt2337fq5/vp+dTqdQvr2J0+vijfFu+JD I0hIFo2EhETEBEQkbEJC0tTv3vas232623adss8pf4OPtFPbt2337fq5/vp+dTqdQvr2J0+vijfFu+JD
8bH4XJyAwPQd1XdV31l9d/UdfmV9xyMwC/egD6l4W+iDo6KjN/pO67ut73iYQDALt6IPovim+FRYHxrQ 8bH4XJyAwPQd1XdV31l9d/UdfmV9xyMwC/egD6l4W+iDo6KjN/pO67ut73iYQDALt6IPovim+FRYHxrQ
K33ndw8Ds7C1ctFqFikNrQ8GOBrVhTdWXWnNLGylXKQSj+Y9YFPdeGvVnVbMQm+6qPPFWRcN4NJmQWAW K33ndw8Ds7C1ctFqFikNrQ8GOBrVhTdWXWnNLGylXKQSj+Y9YFPdeGvVnVbMQm+6qPPFWRcN4NJmQWAW

18
app/DD_Clipboard_Searcher/frmMain.vb
View File

@ -63,7 +63,7 @@ Public Class frmMain
LanguageEx.LogApplicationLanguage(Logger) LanguageEx.LogApplicationLanguage(Logger)
If Database.DBInitialized = True Then If MyDB_DDECM.DBInitialized = True Then
If ERROR_INIT <> "" Then If ERROR_INIT <> "" Then
If ERROR_INIT = "NO CLIENT" Then If ERROR_INIT = "NO CLIENT" Then
@ -109,7 +109,7 @@ Public Class frmMain
Else Else
bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If End If
If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE Then If USER_IS_ADMIN = False And BASIC_CONF_VISIBLE = False Then
RibbonPageGroup1.Visible = False RibbonPageGroup1.Visible = False
RibbonControl1.Minimized = True RibbonControl1.Minimized = True
End If End If
@ -145,7 +145,7 @@ Public Class frmMain
End If End If
Try Try
Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND (MODULE = 'easyFLOW' OR MODULE = 'Clipboard-Watcher')" Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND (MODULE = 'easyFLOW' OR MODULE = 'Clipboard-Watcher')"
Database.ExecuteNonQuery(sql) MyDB_DDECM.ExecuteNonQuery(sql)
ClassWindowLocation.SaveFormLocationSize(Me, "") ClassWindowLocation.SaveFormLocationSize(Me, "")
My.Settings.Save() My.Settings.Save()
Catch ex As Exception Catch ex As Exception
@ -182,22 +182,22 @@ Public Class frmMain
End If End If
If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
Logger.Warn("DT_USER_PROFILES is empty!") Logger.Warn("DT_USER_PROFILES is Nothing/contains no rows!")
Exit Sub Exit Sub
End If End If
If DTPROFILE_REL_PROCESS Is Nothing OrElse DTPROFILE_REL_PROCESS.Rows.Count = 0 Then If DTPROFILE_REL_PROCESS Is Nothing OrElse DTPROFILE_REL_PROCESS.Rows.Count = 0 Then
Logger.Warn("DTPROFILE_REL_PROCESS is empty!") Logger.Warn("DTPROFILE_REL_PROCESS is Nothing/contains no rows!")
Exit Sub Exit Sub
End If End If
If DTPROFILE_REL_WINDOW Is Nothing Then If DTPROFILE_REL_WINDOW Is Nothing Then
Logger.Warn("DTPROFILE_REL_WINDOW is empty!") Logger.Warn("DTPROFILE_REL_WINDOW is Nothing!")
Exit Sub Exit Sub
End If End If
If DTPROFILE_REL_CONTROL Is Nothing Then If DTPROFILE_REL_CONTROL Is Nothing Then
Logger.Warn("DTPROFILE_REL_CONTROL is empty!") Logger.Warn("DTPROFILE_REL_CONTROL is Nothing!")
Exit Sub Exit Sub
End If End If
@ -372,7 +372,7 @@ Public Class frmMain
} }
Dim oEnvironment As New Environment() With { Dim oEnvironment As New Environment() With {
.Database = Database, .Database = MyDB_DDECM,
.Modules = Nothing, .Modules = Nothing,
.User = oUser, .User = oUser,
.Settings = oSettings, .Settings = oSettings,
@ -398,7 +398,7 @@ Public Class frmMain
End If End If
Else Else
If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License") MsgBox("As an admin You have access! Please inforFm Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "No valid License")
Else Else
If Not USER_IS_ADMIN Then If Not USER_IS_ADMIN Then
MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License") MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License")

3
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@ -7,7 +7,7 @@ Imports DigitalData.Modules.ZooFlow.Params
Module modCurrent Module modCurrent
Public LogConfig As LogConfig Public LogConfig As LogConfig
Public Logger As Logger Public Logger As Logger
Public Database As MSSQLServer Public MyDB_DDECM As MSSQLServer
Public DatabaseAppServ As MSSQLServer Public DatabaseAppServ As MSSQLServer
Public Automation As ClassAutomation Public Automation As ClassAutomation
Public AppTitle = "easyFLOW" Public AppTitle = "easyFLOW"
@ -90,4 +90,5 @@ Module modCurrent
Public NOMATCH_INFO As Boolean = False Public NOMATCH_INFO As Boolean = False
Public NOTIFY_MODE As String = "NotifyIcon" Public NOTIFY_MODE As String = "NotifyIcon"
Public BASEDATA_DT_LANGUAGE As DataTable Public BASEDATA_DT_LANGUAGE As DataTable
Public GHOST_USERID As Integer = 0
End Module End Module