Add Monitoring tab with grid for TBEMLP_HISTORY data

Added a new Monitoring tab to frmMain with a DevExpress grid displaying TBEMLP_HISTORY records. Updated designer and resource files to support the new tab and controls. Introduced LoadMonitoringIntoGrid method to populate and format the grid. Resized various UI controls for improved readability and updated label texts. Updated licenses.licx and project DLL HintPaths for compatibility.
2026-01-22 10:06:46 +01:00
parent 38e682dcef
commit 35bdee53e3
5 changed files with 375 additions and 250 deletions
--- a/App/EmailProfiler.Form/My
+++ b/App/EmailProfiler.Form/My
@@ -1,3 +1,4 @@
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
--- a/App/EmailProfiler.Form/frmMain.Designer.vb
+++ b/App/EmailProfiler.Form/frmMain.Designer.vb
--- a/App/EmailProfiler.Form/frmMain.resx
+++ b/App/EmailProfiler.Form/frmMain.resx
@@ -380,6 +380,9 @@
        nlwVm9EAAAAASUVORK5CYII=
 </value>
  </data>
+  <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
  <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -475,6 +478,9 @@
        nlwVm9EAAAAASUVORK5CYII=
 </value>
  </data>
+  <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>537, 95</value>
+  </metadata>
  <data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -565,6 +571,9 @@
        nlwVm9EAAAAASUVORK5CYII=
 </value>
  </data>
+  <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
  <data name="ToolStripButton20.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -646,6 +655,9 @@
  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1162, 173</value>
  </metadata>
+  <metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>623, 134</value>
+  </metadata>
  <metadata name="BindingNavigator6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>851, 173</value>
  </metadata>
@@ -713,6 +725,12 @@
        uVf+q3hMAGN0uYEFAL7Rv7NmXVYYAAAAAElFTkSuQmCC
 </value>
  </data>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>180, 56</value>
+  </metadata>
+  <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>239, 173</value>
+  </metadata>
  <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>239, 173</value>
  </metadata>
@@ -753,7 +771,7 @@
    <value>1005, 173</value>
  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>108</value>
+    <value>324</value>
  </metadata>
  <data name="frmMain.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/App/EmailProfiler.Form/frmMain.vb
+++ b/App/EmailProfiler.Form/frmMain.vb
@@ -75,6 +75,7 @@ Public Class frmMain

        If Set_ConnectionStrings() Then
            Load_AllData()
+            LoadMonitoringIntoGrid()
            Check_Steps()
            Active_Color(ACTIVECheckBox)
            Active_Color(ACTIVECheckBox1)
@@ -687,8 +688,8 @@ Public Class frmMain
        If _LoadInProgress = True Then Exit Sub
        LogConfig.Debug = LOG_ERRORS_ONLYCheckBox.Checked
        ConfigManager.Save()
-        Dim upd = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',LOG_ERRORS_ONLY = '{LOG_ERRORS_ONLYCheckBox.Checked}' WHERE GUID = 1"
-        _database.ExecuteNonQuery(upd)
+        Dim upr = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',LOG_ERRORS_ONLY = '{LOG_ERRORS_ONLYCheckBox.Checked}' WHERE GUID = 1"
+        _database.ExecuteNonQuery(upr)
        Load_Config()

    End Sub
@@ -1044,4 +1045,56 @@ Public Class frmMain
    Private Sub COMMENT_PROFILESTextBox_TextChanged(sender As Object, e As EventArgs) Handles COMMENT_PROFILESTextBox.TextChanged

    End Sub
+
+    ' Loads the TBEMLP_HISTORY table into the monitoring grid and formats columns
+    Private Sub LoadMonitoringIntoGrid()
+        Try
+            ' Fill dataset table (adapter exists in designer)
+            Me.TBEMLP_HISTORYTableAdapter.Fill(Me.MyDataset.TBEMLP_HISTORY)
+
+            ' Bind the grid to the binding source defined in the designer
+            Me.gridMonitoring.DataSource = Me.TBEMLP_HISTORYBindingSource
+
+            ' Format columns on the view
+            Dim gv = TryCast(Me.GridView5, DevExpress.XtraGrid.Views.Grid.GridView)
+            If gv IsNot Nothing Then
+                gv.PopulateColumns()
+
+                Try
+                    If gv.Columns.ColumnByFieldName("GUID") IsNot Nothing Then gv.Columns("GUID").Width = 50
+                Catch
+                End Try
+                Try
+                    If gv.Columns.ColumnByFieldName("WORK_PROCESS") IsNot Nothing Then gv.Columns("WORK_PROCESS").Width = 140
+                Catch
+                End Try
+                Try
+                    If gv.Columns.ColumnByFieldName("EMAIL_MSGID") IsNot Nothing Then gv.Columns("EMAIL_MSGID").Width = 280
+                Catch
+                End Try
+                Try
+                    If gv.Columns.ColumnByFieldName("EMAIL_FROM") IsNot Nothing Then gv.Columns("EMAIL_FROM").Width = 240
+                Catch
+                End Try
+                Try
+                    If gv.Columns.ColumnByFieldName("EMAIL_SUBJECT") IsNot Nothing Then gv.Columns("EMAIL_SUBJECT").Width = 400
+                Catch
+                End Try
+                Try
+                    If gv.Columns.ColumnByFieldName("EMAIL_DATE") IsNot Nothing Then
+                        gv.Columns("EMAIL_DATE").DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
+                        gv.Columns("EMAIL_DATE").DisplayFormat.FormatString = "yyyy-MM-dd HH:mm:ss"
+                        gv.Columns("EMAIL_DATE").Width = 160
+                    End If
+                Catch
+                End Try
+
+                gv.OptionsView.ColumnAutoWidth = False
+                gv.BestFitColumns()
+            End If
+
+        Catch ex As Exception
+            If Logger IsNot Nothing Then Logger.Error(ex) Else Debug.WriteLine(ex.ToString())
+        End Try
+    End Sub
 End Class
--- a/App/wisag_check_Att/wisag_check_Att.vbproj
+++ b/App/wisag_check_Att/wisag_check_Att.vbproj
@@ -57,13 +57,13 @@
    <Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
    <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
    <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
    </Reference>
    <Reference Include="DigitalData.Modules.Database">
-      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
    </Reference>
    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
    </Reference>
    <Reference Include="EmailProfiler.Common">
      <HintPath>..\EmailProfiler.Common\bin\Debug\EmailProfiler.Common.dll</HintPath>