18 lines
981 B
VB.net
18 lines
981 B
VB.net
Public Class ClassClipboardWatcherQueries
|
|
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 = {0}))"
|
|
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}"
|
|
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
|