AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update queries

Browse Source
This commit is contained in:
Jonathan Jenne
2019-10-25 13:50:21 +02:00
parent 87288c3488
commit dccc1820f9
2 changed files with 18 additions and 557 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
GUIs.ZooFlow/Queries/ClassClipboardWatcherQueries.vb
View File

@@ -1,10 +1,26 @@
Public Class ClassClipboardWatcherQueries
Private Function ProfileWhereClause(UserId As Integer) As String
Return $"T1.USER_ID = {UserId} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {UserId}))"
End Function
Public Function VWCW_USER_PROFILE(UserId As Integer) As String
Return $"SELECT DISTINCT GUID, NAME, REGEX_EXPRESSION, COMMENT, PROC_NAME, PROFILE_TYPE FROM VWCW_USER_PROFILE WHERE USER_ID = {UserId} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {UserId}))"
Dim oWhereClause = ProfileWhereClause(UserId)
Return $"SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE T1 WHERE {oWhereClause}"
End Function
Public Function VWCW_PROFILE_REL_WINDOW(UserId As Integer) As String
Dim oWhereClause = ProfileWhereClause(UserId)
Return $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})"
End Function
Public Function VWCW_PROFILE_REL_CONTROL(UserId As Integer) As String
Dim oWhereClause = ProfileWhereClause(UserId)
Return $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})"
End Function
Public Function TBCW_PROFILE_PROCESS(UserId As Integer) As String
Return $"SELECT T.* FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND T1.USER_ID = {UserId}"
Dim oWhereClause = ProfileWhereClause(UserId)
Return $"SELECT DISTINCT T.GUID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})"
End Function
Public Function TBCW_PROF_DATA_SEARCH(ProfileId As Integer) As String
@@ -15,11 +31,4 @@
Return $"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId}"
End Function
Public Function VWCW_PROFILE_REL_WINDOW(UserId As Integer) As String
Return $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {UserId}"
End Function
Public Function VWCW_PROFILE_REL_CONTROL(UserId As Integer) As String
Return $"SELECT * FROM VWCW_PROFILE_REL_CONTROL WHERE USER_ID = {UserId}"
End Function
End Class