MS Anpassungen Views und Spalten
This commit is contained in:
Developer01
parent
81b0e44d45
commit
6945585ca3
@ -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
|
||||
|
||||
Public Class ClassDataASorDB
|
||||
@ -22,7 +23,7 @@ Public Class ClassDataASorDB
|
||||
Return GetDatatable(pSQL, "", "", "", "DB")
|
||||
End Try
|
||||
Else
|
||||
oReturnDT = Database.GetDatatable(pSQL)
|
||||
oReturnDT = MyDB_DDECM.GetDatatable(pSQL)
|
||||
End If
|
||||
Return oReturnDT
|
||||
Catch ex As Exception
|
||||
@ -34,7 +35,7 @@ Public Class ClassDataASorDB
|
||||
Try
|
||||
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
|
||||
DT_LOGIN_USER_MODULE = Database.GetDatatable(oSql)
|
||||
DT_LOGIN_USER_MODULE = MyDB_DDECM.GetDatatable(oSql)
|
||||
|
||||
If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then
|
||||
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
|
||||
@ -71,6 +72,7 @@ Public Class ClassDataASorDB
|
||||
For Each oMode In oSplitWorkMode
|
||||
Logger.Debug($"oWorkingMode Parameter: {oMode}")
|
||||
If oMode = "NO_BASICCONF" Then
|
||||
Logger.Info($"NO_BASICCONF will be set to false")
|
||||
BASIC_CONF_VISIBLE = False
|
||||
ElseIf oMode.StartsWith("NOMATCH_INFO") Then
|
||||
Try
|
||||
@ -83,6 +85,7 @@ Public Class ClassDataASorDB
|
||||
ElseIf oMode.StartsWith("HotkeySearchKey") Then
|
||||
Try
|
||||
Dim oResult = oMode.Replace("HotkeySearchKey=", "")
|
||||
Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
|
||||
HotkeySearchKey = oResult
|
||||
HotkeySearchKey_via_Server = True
|
||||
Catch ex As Exception
|
||||
@ -90,7 +93,7 @@ Public Class ClassDataASorDB
|
||||
End Try
|
||||
|
||||
Else
|
||||
Logger.Info($"Wrong oMode: {oMode}")
|
||||
Logger.Info($"Wrong oMode [{oMode}]")
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
|
||||
@ -57,8 +57,8 @@ Public Class ClassInit
|
||||
End If
|
||||
|
||||
Try
|
||||
Database = New MSSQLServer(LogConfig, MyConnectionString)
|
||||
If Database.DBInitialized = True Then
|
||||
MyDB_DDECM = New MSSQLServer(LogConfig, MyConnectionString)
|
||||
If MyDB_DDECM.DBInitialized = True Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
@ -162,7 +162,7 @@ Public Class ClassInit
|
||||
Try
|
||||
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
|
||||
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
|
||||
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
|
||||
@ -207,7 +207,7 @@ Public Class ClassInit
|
||||
Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
|
||||
Dim oMode As String
|
||||
For Each oMode In oSplitWorkMode
|
||||
Logger.Debug($"oWorkingMode Parameter: {oMode}")
|
||||
Logger.Debug($"oWorkingMode Parameter [{oMode}]")
|
||||
If oMode = "NO_BASICCONF" Then
|
||||
BASIC_CONF_VISIBLE = False
|
||||
ElseIf oMode.StartsWith("NOMATCH_INFO") Then
|
||||
@ -322,17 +322,19 @@ Public Class ClassInit
|
||||
'Database.GetDatatable(sql)
|
||||
Dim oSQL As String
|
||||
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
|
||||
({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 ESC_Hidden = True Then
|
||||
frmGhostUser.ShowDialog()
|
||||
'frmLoginUserSelect.ShowDialog()
|
||||
ESC_Hidden = False
|
||||
If USER_USERNAME <> "" Then
|
||||
If USER_USERNAME <> "" And GHOST_USERID <> 0 Then
|
||||
Logger.Info("GHOST USER ACTIVE")
|
||||
InitUserLogin(USER_USERNAME)
|
||||
End If
|
||||
|
||||
@ -341,16 +343,16 @@ Public Class ClassInit
|
||||
' pageAdmin.Visible = True
|
||||
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'
|
||||
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
|
||||
Logger.Info($"ATTENTION: GDPICTURE VERSION is nothing. [{oSQL}]")
|
||||
End If
|
||||
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)
|
||||
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
@ -365,7 +367,7 @@ Public Class ClassInit
|
||||
If USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
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)
|
||||
Return False
|
||||
End If
|
||||
@ -407,18 +409,18 @@ Public Class ClassInit
|
||||
End Sub
|
||||
|
||||
Public Shared Function Refresh_Profile_Links() As String
|
||||
Dim oWhereClause = $"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 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}"
|
||||
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 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}"
|
||||
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}"
|
||||
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}"
|
||||
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
|
||||
WHERE T.USER_ID = {USER_ID}"
|
||||
Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T INNER JOIN VWCW_USER_PROFILE T1
|
||||
ON T.PROFILE_ID = T1.PROFIL_ID AND T.USER_ID = T1.USER_ID WHERE T1.USER_ID = {USER_ID} "
|
||||
|
||||
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_
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@ -428,7 +430,7 @@ Public Class ClassInit
|
||||
Return S.Fehler_bei_der_Aktualisierung_
|
||||
End Try
|
||||
Try
|
||||
DTPROFILE_REL_PROCESS = Database.GetDatatable(oProcessSQL)
|
||||
DTPROFILE_REL_PROCESS = MyDB_DDECM.GetDatatable(oProcessSQL)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox("Unexpected Error in Refresh_ProcessLinks: " & ex.Message, MsgBoxStyle.Critical)
|
||||
@ -436,7 +438,7 @@ Public Class ClassInit
|
||||
Return S.Fehler_bei_der_Aktualisierung_
|
||||
End Try
|
||||
Try
|
||||
DTPROFILE_REL_WINDOW = Database.GetDatatable(oWindowSQL)
|
||||
DTPROFILE_REL_WINDOW = MyDB_DDECM.GetDatatable(oWindowSQL)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox("Unexpected Error in Refresh_windowLinks: " & ex.Message, MsgBoxStyle.Critical)
|
||||
@ -444,7 +446,7 @@ Public Class ClassInit
|
||||
Return S.Fehler_bei_der_Aktualisierung_
|
||||
End Try
|
||||
Try
|
||||
DTPROFILE_REL_CONTROL = Database.GetDatatable(oControlSQL)
|
||||
DTPROFILE_REL_CONTROL = MyDB_DDECM.GetDatatable(oControlSQL)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox("Unexpected Error in Refresh_ControlLinks: " & ex.Message, MsgBoxStyle.Critical)
|
||||
|
||||
@ -6,11 +6,11 @@ Public Class ClassLicense
|
||||
Private Shared Sub Get_License(CLIENT_ID As Integer)
|
||||
Try
|
||||
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
|
||||
Try
|
||||
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
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Get_License:")
|
||||
End Try
|
||||
|
||||
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.7.4.0")>
|
||||
<Assembly: AssemblyVersion("2.7.4.2")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
@ -699,8 +699,8 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B
|
||||
<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">
|
||||
<SelectCommand>
|
||||
<DbCommand CommandType="Text" ModifiedByUser="true">
|
||||
<CommandText>SELECT *
|
||||
<DbCommand CommandType="Text" ModifiedByUser="false">
|
||||
<CommandText>SELECT GUID, PROFIL_ID, PROFIL_NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, USER_ID, USER_SURNAME, USER_PRENAME, USERNAME
|
||||
FROM VWCW_USER_PROFILE
|
||||
WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
|
||||
<Parameters>
|
||||
@ -722,6 +722,7 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
|
||||
<Mapping SourceColumn="USER_SURNAME" DataSetColumn="USER_SURNAME" />
|
||||
<Mapping SourceColumn="USER_PRENAME" DataSetColumn="USER_PRENAME" />
|
||||
<Mapping SourceColumn="USERNAME" DataSetColumn="USERNAME" />
|
||||
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
|
||||
</Mappings>
|
||||
<Sources />
|
||||
</TableAdapter>
|
||||
@ -1183,6 +1184,7 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</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:complexType>
|
||||
</xs:element>
|
||||
@ -1220,7 +1222,7 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</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:complexType>
|
||||
</xs:element>
|
||||
@ -1297,6 +1299,11 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
|
||||
<xs:selector xpath=".//mstns:TBDD_CONNECTION" />
|
||||
<xs:field xpath="mstns:GUID" />
|
||||
</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:selector xpath=".//mstns:VWCW_GROUP_PROFILE" />
|
||||
<xs:field xpath="mstns:GUID" />
|
||||
@ -1304,10 +1311,10 @@ WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
|
||||
</xs:element>
|
||||
<xs:annotation>
|
||||
<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_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_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_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_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_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_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_ParentPropName="TBCW_PROFILESRow" msprop:Generator_UserRelationName="FK_TBCW_PROF_DOC_SEARCH_PROF_IF" />
|
||||
</xs:appinfo>
|
||||
</xs:annotation>
|
||||
</xs:schema>
|
||||
@ -4,7 +4,7 @@
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</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>
|
||||
<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" />
|
||||
|
||||
@ -70,13 +70,13 @@ Public Class ctrlApplicationAssignment
|
||||
|
||||
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)
|
||||
If Database.ExecuteNonQuery(oSQL) = False Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
|
||||
Return False
|
||||
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)
|
||||
If Database.ExecuteNonQuery(oSQL) = False Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(oSQL) = False Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
@ -97,7 +97,7 @@ Public Class ctrlApplicationAssignment
|
||||
Try
|
||||
Dim oProcessId = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
|
||||
Dim oSQL = String.Format("EXEC PRCW_DELETE_PROCESS {0}", oProcessId)
|
||||
If Database.ExecuteNonQuery(oSQL) Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
|
||||
Process_Load(SelectedProfileId)
|
||||
Return True
|
||||
End If
|
||||
@ -147,7 +147,7 @@ Public Class ctrlApplicationAssignment
|
||||
|
||||
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)
|
||||
If Database.ExecuteNonQuery(insert) = False Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(insert) = False Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
@ -167,7 +167,7 @@ Public Class ctrlApplicationAssignment
|
||||
Try
|
||||
Dim oGuid = GridView_Window.GetFocusedRowCellValue(GridView_Window.Columns("GUID"))
|
||||
Dim oSQL = String.Format("EXEC PRCW_DELETE_WINDOW {0}", oGuid)
|
||||
If Database.ExecuteNonQuery(oSQL) Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
|
||||
Process_Load(SelectedProfileId)
|
||||
Return True
|
||||
End If
|
||||
@ -246,7 +246,7 @@ Public Class ctrlApplicationAssignment
|
||||
{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
|
||||
End If
|
||||
|
||||
@ -336,7 +336,7 @@ Public Class ctrlApplicationAssignment
|
||||
WHERE GUID = {SelectedControlId}
|
||||
"
|
||||
|
||||
If Database.ExecuteNonQuery(oSql) = False Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(oSql) = False Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
@ -372,7 +372,7 @@ Public Class ctrlApplicationAssignment
|
||||
Try
|
||||
Dim oGuid = GridView_Control.GetFocusedRowCellValue(GridView_Control.Columns("GUID"))
|
||||
Dim oSQL = String.Format("DELETE FROM TBCW_PROF_REL_CONTROL WHERE GUID = {0}", oGuid)
|
||||
If Database.ExecuteNonQuery(oSQL) Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(oSQL) Then
|
||||
Window_Load()
|
||||
Return True
|
||||
End If
|
||||
|
||||
@ -235,6 +235,12 @@
|
||||
<Compile Include="frmClientLogin.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmGhostUser.Designer.vb">
|
||||
<DependentUpon>frmGhostUser.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmGhostUser.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense.Designer.vb">
|
||||
<DependentUpon>frmLicense.vb</DependentUpon>
|
||||
</Compile>
|
||||
@ -350,6 +356,9 @@
|
||||
<EmbeddedResource Include="frmClientLogin.resx">
|
||||
<DependentUpon>frmClientLogin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmGhostUser.resx">
|
||||
<DependentUpon>frmGhostUser.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmLicense.resx">
|
||||
<DependentUpon>frmLicense.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
783
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb
generated
783
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@ -118,46 +118,40 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<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 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>
|
||||
</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">
|
||||
<value>594, 17</value>
|
||||
<value>345, 17</value>
|
||||
</metadata>
|
||||
<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 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 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 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>
|
||||
</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">
|
||||
<value>665, 54</value>
|
||||
<value>17, 91</value>
|
||||
</metadata>
|
||||
<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>
|
||||
<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">
|
||||
@ -780,7 +774,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="TabPageGeneralSettings.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@ -800,10 +794,10 @@
|
||||
</value>
|
||||
</data>
|
||||
<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 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>
|
||||
<data name="SimpleLabelItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@ -909,25 +903,15 @@
|
||||
LDE0LjMsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz
|
||||
dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp
|
||||
ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs
|
||||
LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu
|
||||
OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi
|
||||
IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt
|
||||
MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku
|
||||
NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2
|
||||
Zz4L
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="cmsGroupZODelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>988, 128</value>
|
||||
</metadata>
|
||||
<metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>769, 91</value>
|
||||
</metadata>
|
||||
<metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>561, 91</value>
|
||||
</metadata>
|
||||
<data name="TabPageGroupAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
|
||||
@ -952,6 +936,9 @@
|
||||
MjAsMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
|
||||
</value>
|
||||
</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">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
|
||||
@ -976,29 +963,39 @@
|
||||
MjAsMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="cmsDelete.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</metadata>
|
||||
<metadata name="VWCW_GROUP_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1417, 54</value>
|
||||
</metadata>
|
||||
<metadata name="TBWH_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1209, 54</value>
|
||||
</metadata>
|
||||
<data name="TabPageProfileAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
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">
|
||||
<value>394, 54</value>
|
||||
<value>852, 54</value>
|
||||
</metadata>
|
||||
<metadata name="TBCW_PROF_DOC_SEARCHTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>941, 54</value>
|
||||
<value>293, 91</value>
|
||||
</metadata>
|
||||
<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 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 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 name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>163</value>
|
||||
|
||||
@ -1,4 +1,6 @@
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
|
||||
Imports DigitalData.Modules.Base
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Language
|
||||
@ -187,8 +189,15 @@ Public Class frmAdministration
|
||||
|
||||
Sub Refresh_ProfileData()
|
||||
Try
|
||||
VWCW_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWCW_USER_PROFILETableAdapter.Fill(MyDataset.VWCW_USER_PROFILE, PROFILE_IDTextBox.Text)
|
||||
Dim oSQL = $"SELECT GUID, USER_ID, USERNAME as Username, USER_SURNAME + ', ' + USER_PRENAME as Name FROM
|
||||
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.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
|
||||
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))
|
||||
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)
|
||||
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 DT_USER = Database.GetDatatable(Sql)
|
||||
Dim DT_USER = MyDB_DDECM.GetDatatable(Sql)
|
||||
Try
|
||||
MyDataset.TBWH_User.Clear()
|
||||
|
||||
@ -273,7 +282,7 @@ Public Class frmAdministration
|
||||
|
||||
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 oDataTable = Database.GetDatatable(Sql)
|
||||
Dim oDataTable = MyDB_DDECM.GetDatatable(Sql)
|
||||
|
||||
Try
|
||||
MyDataset.TBWH_GROUP.Clear()
|
||||
@ -281,7 +290,7 @@ Public Class frmAdministration
|
||||
For Each row As DataRow In oDataTable.Rows
|
||||
Dim oNewRow As MyDataset.TBWH_GROUPRow
|
||||
oNewRow = MyDataset.TBWH_GROUP.NewTBWH_GROUPRow
|
||||
oNewRow.NAME = row.Item("NAME")
|
||||
oNewRow.Name = IIf(IsDBNull(row.Item("NAME")), "Null", row.Item("NAME"))
|
||||
oNewRow.GUID = row.Item("GUID")
|
||||
MyDataset.TBWH_GROUP.Rows.Add(oNewRow)
|
||||
Next
|
||||
@ -290,27 +299,6 @@ Public Class frmAdministration
|
||||
End Try
|
||||
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()
|
||||
If IsNothing(PROFILE_IDTextBox.Text) Or PROFILE_IDTextBox.Text = "" Then
|
||||
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)
|
||||
' wenn Speichern ja
|
||||
If result = MsgBoxResult.Yes Then
|
||||
If Database.ExecuteNonQuery(swl) = True Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(swl) = True Then
|
||||
Refresh_ProfileScreen()
|
||||
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
|
||||
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)
|
||||
Else
|
||||
Refresh_ProfileScreen()
|
||||
@ -741,63 +729,6 @@ Public Class frmAdministration
|
||||
|
||||
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
|
||||
Try
|
||||
@ -809,7 +740,7 @@ Public Class frmAdministration
|
||||
Dim oGroupId As Integer = oRow.GROUP_ID
|
||||
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)
|
||||
End If
|
||||
Next
|
||||
@ -834,7 +765,7 @@ Public Class frmAdministration
|
||||
Dim oGroupId As Integer = oRow.GUID
|
||||
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)
|
||||
End If
|
||||
Next
|
||||
@ -914,7 +845,7 @@ Public Class frmAdministration
|
||||
Dim oGroupId As Integer = oRow.GROUP_ID
|
||||
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)
|
||||
End If
|
||||
Next
|
||||
@ -929,4 +860,146 @@ Public Class frmAdministration
|
||||
MsgBox("Unexpected Error in deleting Group-Rights via cms: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
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
|
||||
@ -197,7 +197,7 @@ Public Class frmConnection
|
||||
Try
|
||||
If GUIDTextBox.Text <> String.Empty Then
|
||||
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
|
||||
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
76
app/DD_Clipboard_Searcher/frmGhostUser.Designer.vb
generated
Normal 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
120
app/DD_Clipboard_Searcher/frmGhostUser.resx
Normal 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
15
app/DD_Clipboard_Searcher/frmGhostUser.vb
Normal 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
|
||||
@ -57,9 +57,9 @@ Public Class frmLicense
|
||||
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)
|
||||
If Database.ExecuteNonQuery(sql) = False Then
|
||||
If MyDB_DDECM.ExecuteNonQuery(sql) = False Then
|
||||
sql = $"UPDATE TBDD_MODULES SET LICENSE = '{result}' where SHORT_NAME = 'CW'"
|
||||
Database.ExecuteNonQuery(sql)
|
||||
MyDB_DDECM.ExecuteNonQuery(sql)
|
||||
Refresh_Licence(True)
|
||||
Else
|
||||
MsgBox("Could not renew the license!!", MsgBoxStyle.Critical)
|
||||
|
||||
2
app/DD_Clipboard_Searcher/frmMain.Designer.vb
generated
2
app/DD_Clipboard_Searcher/frmMain.Designer.vb
generated
@ -215,7 +215,7 @@ Partial Class frmMain
|
||||
'cmstrpNotifyIcon
|
||||
'
|
||||
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"
|
||||
resources.ApplyResources(Me.cmstrpNotifyIcon, "cmstrpNotifyIcon")
|
||||
'
|
||||
|
||||
@ -375,58 +375,6 @@
|
||||
<data name="RibbonPage2.Text" xml:space="preserve">
|
||||
<value>RibbonPage2</value>
|
||||
</data>
|
||||
<data name=">>labelStatus.Name" xml:space="preserve">
|
||||
<value>labelStatus</value>
|
||||
</data>
|
||||
<data name=">>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=">>labelStatus.Parent" xml:space="preserve">
|
||||
<value>GroupBox2</value>
|
||||
</data>
|
||||
<data name=">>labelStatus.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name=">>labelRefresh.Name" xml:space="preserve">
|
||||
<value>labelRefresh</value>
|
||||
</data>
|
||||
<data name=">>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=">>labelRefresh.Parent" xml:space="preserve">
|
||||
<value>GroupBox2</value>
|
||||
</data>
|
||||
<data name=">>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=">>GroupBox2.Name" xml:space="preserve">
|
||||
<value>GroupBox2</value>
|
||||
</data>
|
||||
<data name=">>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=">>GroupBox2.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>GroupBox2.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name="labelStatus.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Tahoma, 8.25pt</value>
|
||||
</data>
|
||||
@ -434,8 +382,9 @@
|
||||
<value>8, 40</value>
|
||||
</data>
|
||||
<data name="labelStatus.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>242, 67</value>
|
||||
<value>242, 68</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="labelStatus.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
</data>
|
||||
@ -484,6 +433,33 @@
|
||||
<data name=">>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>
|
||||
<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=">>GroupBox2.Name" xml:space="preserve">
|
||||
<value>GroupBox2</value>
|
||||
</data>
|
||||
<data name=">>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=">>GroupBox2.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>GroupBox2.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name=">>Label2.Name" xml:space="preserve">
|
||||
<value>Label2</value>
|
||||
</data>
|
||||
@ -515,7 +491,7 @@
|
||||
<value>12, 72</value>
|
||||
</data>
|
||||
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>191, 59</value>
|
||||
<value>191, 62</value>
|
||||
</data>
|
||||
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>15</value>
|
||||
@ -576,7 +552,7 @@
|
||||
<value>Tahoma, 15.75pt, style=Bold</value>
|
||||
</data>
|
||||
<data name="labelHotkey.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>3, 29</value>
|
||||
<value>3, 32</value>
|
||||
</data>
|
||||
<data name="labelHotkey.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<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">
|
||||
<value>153, 17</value>
|
||||
</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">
|
||||
<value>181, 114</value>
|
||||
<value>195, 92</value>
|
||||
</data>
|
||||
<data name=">>cmstrpNotifyIcon.Name" xml:space="preserve">
|
||||
<value>cmstrpNotifyIcon</value>
|
||||
@ -750,12 +702,36 @@
|
||||
<data name="NotifyIconMain.Visible" type="System.Boolean, mscorlib">
|
||||
<value>True</value>
|
||||
</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">
|
||||
<value>217, 22</value>
|
||||
</data>
|
||||
<data name="BisherigenAblaufAnzeigenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Bisherigen Ablauf anzeigen</value>
|
||||
</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">
|
||||
<value>299, 17</value>
|
||||
</metadata>
|
||||
@ -788,7 +764,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
|
||||
CwAAAk1TRnQBSQFMAgEBBQEAAbwBAQG8AQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
CwAAAk1TRnQBSQFMAgEBBQEAAcQBAQHEAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@ -5371,7 +5347,7 @@
|
||||
<data name="frmMain.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
|
||||
DwAACw8BkvkDpQAAEkpJREFUeF7t3b+u5EgVx/F9hHkIHmDuvgDzADwA4QTkbE4yCfnkJJNstAEiQgRI
|
||||
DgAACw4BQL7hQQAAEkpJREFUeF7t3b+u5EgVx/F9hHkIHmDuvgDzADwA4QTkbE4yCfnkJJNstAEiQgRI
|
||||
I0hIFo2EhETEBEQkbEJC0tTv3vas232623adss8pf4OPtFPbt2337fq5/vp+dTqdQvr2J0+vijfFu+JD
|
||||
8bH4XJyAwPQd1XdV31l9d/UdfmV9xyMwC/egD6l4W+iDo6KjN/pO67ut73iYQDALt6IPovim+FRYHxrQ
|
||||
K33ndw8Ds7C1ctFqFikNrQ8GOBrVhTdWXWnNLGylXKQSj+Y9YFPdeGvVnVbMQm+6qPPFWRcN4NJmQWAW
|
||||
|
||||
@ -63,7 +63,7 @@ Public Class frmMain
|
||||
|
||||
LanguageEx.LogApplicationLanguage(Logger)
|
||||
|
||||
If Database.DBInitialized = True Then
|
||||
If MyDB_DDECM.DBInitialized = True Then
|
||||
If ERROR_INIT <> "" Then
|
||||
If ERROR_INIT = "NO CLIENT" Then
|
||||
|
||||
@ -109,7 +109,7 @@ Public Class frmMain
|
||||
Else
|
||||
bbtnitemAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
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
|
||||
RibbonControl1.Minimized = True
|
||||
End If
|
||||
@ -145,7 +145,7 @@ Public Class frmMain
|
||||
End If
|
||||
Try
|
||||
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, "")
|
||||
My.Settings.Save()
|
||||
Catch ex As Exception
|
||||
@ -182,22 +182,22 @@ Public Class frmMain
|
||||
End If
|
||||
|
||||
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
|
||||
End If
|
||||
|
||||
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
|
||||
End If
|
||||
|
||||
If DTPROFILE_REL_WINDOW Is Nothing Then
|
||||
Logger.Warn("DTPROFILE_REL_WINDOW is empty!")
|
||||
Logger.Warn("DTPROFILE_REL_WINDOW is Nothing!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If DTPROFILE_REL_CONTROL Is Nothing Then
|
||||
Logger.Warn("DTPROFILE_REL_CONTROL is empty!")
|
||||
Logger.Warn("DTPROFILE_REL_CONTROL is Nothing!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@ -372,7 +372,7 @@ Public Class frmMain
|
||||
}
|
||||
|
||||
Dim oEnvironment As New Environment() With {
|
||||
.Database = Database,
|
||||
.Database = MyDB_DDECM,
|
||||
.Modules = Nothing,
|
||||
.User = oUser,
|
||||
.Settings = oSettings,
|
||||
@ -398,7 +398,7 @@ Public Class frmMain
|
||||
End If
|
||||
Else
|
||||
If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
|
||||
MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "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
|
||||
If Not USER_IS_ADMIN Then
|
||||
MsgBox("Application will close now!", MsgBoxStyle.Critical, "No valid License")
|
||||
|
||||
@ -7,7 +7,7 @@ Imports DigitalData.Modules.ZooFlow.Params
|
||||
Module modCurrent
|
||||
Public LogConfig As LogConfig
|
||||
Public Logger As Logger
|
||||
Public Database As MSSQLServer
|
||||
Public MyDB_DDECM As MSSQLServer
|
||||
Public DatabaseAppServ As MSSQLServer
|
||||
Public Automation As ClassAutomation
|
||||
Public AppTitle = "easyFLOW"
|
||||
@ -90,4 +90,5 @@ Module modCurrent
|
||||
Public NOMATCH_INFO As Boolean = False
|
||||
Public NOTIFY_MODE As String = "NotifyIcon"
|
||||
Public BASEDATA_DT_LANGUAGE As DataTable
|
||||
Public GHOST_USERID As Integer = 0
|
||||
End Module
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user