Projektdateien hinzufügen.

GUIs.ZooFlow/Queries/ClassClipboardWatcherQueries.vb

@@ -0,0 +1,34 @@
+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
+        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
+        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
+        Return $"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId}"
+    End Function
+
+    Public Function TBCW_PROF_DOC_SEARCH(ProfileId As Integer) As String
+        Return $"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId}"
+    End Function
+
+End Class

GUIs.ZooFlow/Queries/ClassCommonQueries.vb

@@ -0,0 +1,25 @@
+Public Class ClassCommonQueries
+    Public Function FNDD_CHECK_USER_MODULE(Username As String, Optional ClientId As Integer = 1) As String
+        Return String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','ZF',{1})", Username, ClientId)
+    End Function
+
+    Public Function FNDD_MODULE_INIT(Username As String) As String
+        Return String.Format("SELECT * FROM [dbo].[FNZF_GET_MODULE_INFO] ('{0}')", Username)
+    End Function
+
+    Public Function FNIDB_GET_SEARCH_PROFILES(UserId As Integer, UserLanguage As String) As String
+        Return String.Format("SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({0},'{1}')", UserId, UserLanguage)
+    End Function
+    Public Function IDB_CATALOG() As String
+        Return String.Format("SELECT * FROM TBIDB_CATALOG")
+    End Function
+    Public Function DOCRESULT_TODAY() As String
+        Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE CONVERT(DATE,[Added when]) = CONVERT(DATE,GetDate())"
+    End Function
+    Public Function DOCRESULT_DocID(DocID As Long) As String
+        Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE DocID = {DocID}"
+    End Function
+    Public Function DOCRESULT_TODAY_ME() As String
+        Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE CONVERT(DATE,[Added when]) = CONVERT(DATE,GetDate()) AND [Added who] = '{My.Application.User.UserName}'"
+    End Function
+End Class

GUIs.ZooFlow/Queries/ClassQueries.vb

@@ -0,0 +1,4 @@
+Public Class ClassQueries
+    Public Property Common As New ClassCommonQueries
+    Public Property ClipboardWatcher As New ClassClipboardWatcherQueries
+End Class

GUIs.ZooFlow/Queries/ClassTables.vb

@@ -0,0 +1,8 @@
+Public Class ClassTables
+    Property DTIDB_ATTRIBUTE As DataTable
+    Property DTIDB_CATALOG_USER As DataTable
+    Property DTIDB_COMMON_SQL As DataTable
+    Property DTIDB_FILESTORE As DataTable
+    Property DTIDB_DOC_DATA As DataTable
+    Property DTDD_CONNECTION As DataTable
+End Class