MS IDB suffix, SQL, Beschriftungen, parameterübergabe

GUIs.Monitor/frmMonitor.vb

@@ -50,6 +50,7 @@ Public Class frmMonitor
     Private Const STATE_FAILURE As String = "FAILURE"
     Private Const STATE_WARNING As String = "WARNING"
     Private Const STATE_WAITING As String = "WAITING"
+    Private Const STATE_HIGHLIGHT As String = "HIGHLIGHT"
 
 
     Private Enum NodeImage
@@ -61,6 +62,8 @@ Public Class frmMonitor
         Failure = 5
         Warning = 6
         Waiting = 7
+        User = 8
+        Highlight = 9
     End Enum
 
     Private ReadOnly StateIcons As New Dictionary(Of String, NodeImage) From {
@@ -88,8 +91,16 @@ Public Class frmMonitor
 
                 End If
             End If
+            If ConfigManager.Config.IDB_Praefix <> "" Then
+                If ConfigManager.Config.SearchKeySQL.Contains("@IDB_PRAEFIX") Then
+                    Dim oREPLACE = ConfigManager.Config.SearchKeySQL.Replace("@IDB_PRAEFIX", ConfigManager.Config.IDB_Praefix)
+                    ConfigManager.Config.SearchKeySQL = oREPLACE
+                    ConfigManager.Save()
+                End If
+                Console.WriteLine(ConfigManager.Config.SearchKeySQL)
 
-            Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
+            End If
+                Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
             Database = New MSSQLServer(LogConfig, oConnectionString)
             GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4})
             GridBuilder.
@@ -127,6 +138,8 @@ Public Class frmMonitor
             For Each oViewer As DocumentViewer In FileResultViewers
                 oViewer.Init(LogConfig, oLicense)
             Next
+            SplitContainerControl3.Collapsed = True
+            SplitContainerControl2.Collapsed = True
         Catch ex As Exception
             ShowErrorMessage(ex)
         End Try
@@ -143,7 +156,9 @@ Public Class frmMonitor
 
     Private Function LoadData() As Boolean
         Try
-            Dim oSQL As String = "EXEC [IDB].[dbo].[PRDD_MONITORING_GET_TREEVIEW_RESULT] 'TYPE1','sdsdd',2"
+
+
+            Dim oSQL As String = $"EXEC [{ConfigManager.Config.IDB_Praefix}].[dbo].[PRDD_MONITORING_GET_TREEVIEW_RESULT] '{cmbSearchKeys.EditValue}','{TextEdit1.EditValue.ToString}',1"
             Dim oTable As DataTable = Database.GetDatatable(oSQL)
 
             TreeListResults.DataSource = oTable
@@ -154,8 +169,16 @@ Public Class frmMonitor
             ' Show all columns in DisplayColumns List
             For Each oColumn In TreeListResults.Columns
                 oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName)
-            Next
+                If oColumn.FieldName = "ADDED_WHEN" Then
+                    oColumn.Format.FormatType = FormatType.DateTime
+                    oColumn.Format.FormatString = "dd.MM.yyyy  HH:MM:ss"
+                End If
 
+            Next
+            'Dim edit As New RepositoryItemDateEdit()
+            'TreeListResults.Columns("ADDED_WHEN").ColumnEdit = edit
+            'edit.Mask.EditMask = "g"
+            'edit.Mask.UseMaskAsDisplayFormat = True
             Dim oStateColumn As TreeListColumn = TreeListResults.Columns.Item("STATE")
 
             For Each oNode As TreeListNode In TreeListResults.Nodes
@@ -165,7 +188,6 @@ Public Class frmMonitor
                                        Return oValue IsNot Nothing AndAlso (oValue = STATE_WARNING Or oValue = STATE_FAILURE)
                                    End Function)
             Next
-
             Return True
         Catch ex As Exception
             ShowErrorMessage(ex)
@@ -182,7 +204,7 @@ Public Class frmMonitor
                 SearchKeys.Add(New SearchKey With {
                     .Id = CInt(oRow.Item(0)),
                     .Title = oRow.Item(1).ToString,
-                    .TypeName = oRow.Item(2).ToString
+                    .TypeName = "Varchar"'oRow.Item(2).ToString
                 })
             Next
 
@@ -207,7 +229,9 @@ Public Class frmMonitor
             New ImageComboBoxItem("Failure", "FAILURE", NodeImage.Failure),
             New ImageComboBoxItem("Warning", "WARNING", NodeImage.Warning),
             New ImageComboBoxItem("Waiting", "WAITING", NodeImage.Waiting),
-            New ImageComboBoxItem("Default", "DEFAULT", NodeImage.Default)
+            New ImageComboBoxItem("Default", "DEFAULT", NodeImage.Default),
+            New ImageComboBoxItem("User", "USER", NodeImage.User),
+            New ImageComboBoxItem("Highlight", "HIGHLIGHT", NodeImage.Highlight)
         })
 
         Dim oIconEdit As New RepositoryItemImageComboBox With {
@@ -254,7 +278,7 @@ Public Class frmMonitor
             Case "VARCHAR"
                 LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
                 LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
-
+                TextEdit1.EditValue = String.Empty
             Case "DATE"
                 LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
                 LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
@@ -262,6 +286,7 @@ Public Class frmMonitor
             Case Else
                 LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
                 LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
+                BarStaticItem1.Caption = "oItem.TypeName=" + oItem.TypeName
 
         End Select
     End Sub
@@ -537,6 +562,14 @@ Public Class frmMonitor
             End If
         End If
     End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        XtraSaveFileDialog1.Filter = "Excel Files (*.xlsx)|*.xlsx"
+
+        If XtraSaveFileDialog1.ShowDialog() = DialogResult.OK Then
+            TreeListResults.ExportToXlsx(XtraSaveFileDialog1.FileName)
+        End If
+    End Sub
 End Class
 
 Friend Class SearchKey