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

Revert "Add Monitoring tab with grid for TBEMLP_HISTORY data"

Browse Source 
This reverts commit 35bdee53e3.
This commit is contained in:
OlgunR
2026-01-26 13:50:03 +01:00
parent 396a02382f
commit 3bb1531a77
5 changed files with 250 additions and 375 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
App/EmailProfiler.Form/frmMain.vb
View File

@@ -75,7 +75,6 @@ Public Class frmMain
If Set_ConnectionStrings() Then
Load_AllData()
LoadMonitoringIntoGrid()
Check_Steps()
Active_Color(ACTIVECheckBox)
Active_Color(ACTIVECheckBox1)
@@ -688,8 +687,8 @@ Public Class frmMain
If _LoadInProgress = True Then Exit Sub
LogConfig.Debug = LOG_ERRORS_ONLYCheckBox.Checked
ConfigManager.Save()
Dim upr = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',LOG_ERRORS_ONLY = '{LOG_ERRORS_ONLYCheckBox.Checked}' WHERE GUID = 1"
_database.ExecuteNonQuery(upr)
Dim upd = $"UPDATE TBEMLP_CONFIG SET CHANGED_WHO = '{Environment.UserName}',LOG_ERRORS_ONLY = '{LOG_ERRORS_ONLYCheckBox.Checked}' WHERE GUID = 1"
_database.ExecuteNonQuery(upd)
Load_Config()
End Sub
@@ -1045,56 +1044,4 @@ 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