WIP Email Validation

2023-09-19 11:39:27 +02:00
parent e457b8586b
commit 8b5f6f0635
17 changed files with 760 additions and 619 deletions
--- a/App/EmailProfiler.Form/frmMain.Designer.vb
+++ b/App/EmailProfiler.Form/frmMain.Designer.vb
@@ -77,6 +77,7 @@ Partial Class frmMain
        Dim CHANGED_WHENLabel5 As System.Windows.Forms.Label
        Dim PORT_INLabel As System.Windows.Forms.Label
        Dim AUTH_TYPELabel As System.Windows.Forms.Label
+        Dim Label11 As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
        Me.EMAIL_SMTPLabel = New System.Windows.Forms.Label()
        Me.EMAIL_USERLabel = New System.Windows.Forms.Label()
@@ -88,6 +89,8 @@ Partial Class frmMain
        Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.tabProfile = New System.Windows.Forms.TabPage()
+        Me.txtSQLValidation = New DevExpress.XtraEditors.TextEdit()
+        Me.btnValidationSQL = New DevExpress.XtraEditors.SimpleButton()
        Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
        Me.TBEMLP_POLL_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.MyDataset = New EmailProfiler.Form.MyDataset()
@@ -380,9 +383,11 @@ Partial Class frmMain
        CHANGED_WHENLabel5 = New System.Windows.Forms.Label()
        PORT_INLabel = New System.Windows.Forms.Label()
        AUTH_TYPELabel = New System.Windows.Forms.Label()
+        Label11 = New System.Windows.Forms.Label()
        Me.StatusStrip1.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.tabProfile.SuspendLayout()
+        CType(Me.txtSQLValidation.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBEMLP_POLL_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -853,24 +858,6 @@ Partial Class frmMain
        EMAIL_FROMLabel.TabIndex = 38
        EMAIL_FROMLabel.Text = "Email from:"
        '
-        'EMAIL_SMTPLabel
-        '
-        Me.EMAIL_SMTPLabel.AutoSize = True
-        Me.EMAIL_SMTPLabel.Location = New System.Drawing.Point(698, 68)
-        Me.EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel"
-        Me.EMAIL_SMTPLabel.Size = New System.Drawing.Size(43, 13)
-        Me.EMAIL_SMTPLabel.TabIndex = 40
-        Me.EMAIL_SMTPLabel.Text = "Server:"
-        '
-        'EMAIL_USERLabel
-        '
-        Me.EMAIL_USERLabel.AutoSize = True
-        Me.EMAIL_USERLabel.Location = New System.Drawing.Point(370, 108)
-        Me.EMAIL_USERLabel.Name = "EMAIL_USERLabel"
-        Me.EMAIL_USERLabel.Size = New System.Drawing.Size(80, 13)
-        Me.EMAIL_USERLabel.TabIndex = 42
-        Me.EMAIL_USERLabel.Text = "Benutzername:"
-        '
        'PORTLabel
        '
        PORTLabel.AutoSize = True
@@ -916,15 +903,6 @@ Partial Class frmMain
        CHANGED_WHENLabel5.TabIndex = 56
        CHANGED_WHENLabel5.Text = "Changed when:"
        '
-        'EMAIL_PWLabel
-        '
-        Me.EMAIL_PWLabel.AutoSize = True
-        Me.EMAIL_PWLabel.Location = New System.Drawing.Point(735, 108)
-        Me.EMAIL_PWLabel.Name = "EMAIL_PWLabel"
-        Me.EMAIL_PWLabel.Size = New System.Drawing.Size(88, 13)
-        Me.EMAIL_PWLabel.TabIndex = 64
-        Me.EMAIL_PWLabel.Text = "Neues Passwort:"
-        '
        'PORT_INLabel
        '
        PORT_INLabel.AutoSize = True
@@ -934,15 +912,6 @@ Partial Class frmMain
        PORT_INLabel.TabIndex = 70
        PORT_INLabel.Text = "Port in:"
        '
-        'ARCHIVE_FOLDERLabel
-        '
-        Me.ARCHIVE_FOLDERLabel.AutoSize = True
-        Me.ARCHIVE_FOLDERLabel.Location = New System.Drawing.Point(828, 148)
-        Me.ARCHIVE_FOLDERLabel.Name = "ARCHIVE_FOLDERLabel"
-        Me.ARCHIVE_FOLDERLabel.Size = New System.Drawing.Size(84, 13)
-        Me.ARCHIVE_FOLDERLabel.TabIndex = 76
-        Me.ARCHIVE_FOLDERLabel.Text = "Archive Ordner:"
-        '
        'AUTH_TYPELabel
        '
        AUTH_TYPELabel.AutoSize = True
@@ -952,6 +921,51 @@ Partial Class frmMain
        AUTH_TYPELabel.TabIndex = 78
        AUTH_TYPELabel.Text = "Verbindungssicherheit:"
        '
+        'Label11
+        '
+        Label11.AutoSize = True
+        Label11.Location = New System.Drawing.Point(318, 108)
+        Label11.Name = "Label11"
+        Label11.Size = New System.Drawing.Size(90, 13)
+        Label11.TabIndex = 12
+        Label11.Text = "Validierungs SQL:"
+        '
+        'EMAIL_SMTPLabel
+        '
+        Me.EMAIL_SMTPLabel.AutoSize = True
+        Me.EMAIL_SMTPLabel.Location = New System.Drawing.Point(698, 68)
+        Me.EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel"
+        Me.EMAIL_SMTPLabel.Size = New System.Drawing.Size(43, 13)
+        Me.EMAIL_SMTPLabel.TabIndex = 40
+        Me.EMAIL_SMTPLabel.Text = "Server:"
+        '
+        'EMAIL_USERLabel
+        '
+        Me.EMAIL_USERLabel.AutoSize = True
+        Me.EMAIL_USERLabel.Location = New System.Drawing.Point(370, 108)
+        Me.EMAIL_USERLabel.Name = "EMAIL_USERLabel"
+        Me.EMAIL_USERLabel.Size = New System.Drawing.Size(80, 13)
+        Me.EMAIL_USERLabel.TabIndex = 42
+        Me.EMAIL_USERLabel.Text = "Benutzername:"
+        '
+        'EMAIL_PWLabel
+        '
+        Me.EMAIL_PWLabel.AutoSize = True
+        Me.EMAIL_PWLabel.Location = New System.Drawing.Point(735, 108)
+        Me.EMAIL_PWLabel.Name = "EMAIL_PWLabel"
+        Me.EMAIL_PWLabel.Size = New System.Drawing.Size(88, 13)
+        Me.EMAIL_PWLabel.TabIndex = 64
+        Me.EMAIL_PWLabel.Text = "Neues Passwort:"
+        '
+        'ARCHIVE_FOLDERLabel
+        '
+        Me.ARCHIVE_FOLDERLabel.AutoSize = True
+        Me.ARCHIVE_FOLDERLabel.Location = New System.Drawing.Point(828, 148)
+        Me.ARCHIVE_FOLDERLabel.Name = "ARCHIVE_FOLDERLabel"
+        Me.ARCHIVE_FOLDERLabel.Size = New System.Drawing.Size(84, 13)
+        Me.ARCHIVE_FOLDERLabel.TabIndex = 76
+        Me.ARCHIVE_FOLDERLabel.Text = "Archive Ordner:"
+        '
        'StatusStrip1
        '
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblRefresh, Me.ToolStripStatusLabel1})
@@ -991,6 +1005,8 @@ Partial Class frmMain
        'tabProfile
        '
        Me.tabProfile.AutoScroll = True
+        Me.tabProfile.Controls.Add(Me.txtSQLValidation)
+        Me.tabProfile.Controls.Add(Me.btnValidationSQL)
        Me.tabProfile.Controls.Add(Me.GridControl4)
        Me.tabProfile.Controls.Add(Me.ComboBox1)
        Me.tabProfile.Controls.Add(Me.BindingNavigator1)
@@ -1005,6 +1021,7 @@ Partial Class frmMain
        Me.tabProfile.Controls.Add(PROFILE_NAMELabel)
        Me.tabProfile.Controls.Add(CHANGED_WHENLabel)
        Me.tabProfile.Controls.Add(Me.PROFILE_NAMETextBox)
+        Me.tabProfile.Controls.Add(Label11)
        Me.tabProfile.Controls.Add(COMMENTLabel)
        Me.tabProfile.Controls.Add(Me.CHANGED_WHENTextBox)
        Me.tabProfile.Controls.Add(Me.COMMENTTextBox)
@@ -1021,6 +1038,22 @@ Partial Class frmMain
        Me.tabProfile.Text = "Profilkonfiguration"
        Me.tabProfile.UseVisualStyleBackColor = True
        '
+        'txtSQLValidation
+        '
+        Me.txtSQLValidation.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBEMLP_POLL_PROFILESBindingSource, "VALIDATION_SQL", True))
+        Me.txtSQLValidation.Location = New System.Drawing.Point(321, 124)
+        Me.txtSQLValidation.Name = "txtSQLValidation"
+        Me.txtSQLValidation.Size = New System.Drawing.Size(328, 20)
+        Me.txtSQLValidation.TabIndex = 35
+        '
+        'btnValidationSQL
+        '
+        Me.btnValidationSQL.Location = New System.Drawing.Point(655, 122)
+        Me.btnValidationSQL.Name = "btnValidationSQL"
+        Me.btnValidationSQL.Size = New System.Drawing.Size(36, 23)
+        Me.btnValidationSQL.TabIndex = 34
+        Me.btnValidationSQL.Text = "..."
+        '
        'GridControl4
        '
        Me.GridControl4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -3341,6 +3374,7 @@ Partial Class frmMain
        Me.TabControl1.ResumeLayout(False)
        Me.tabProfile.ResumeLayout(False)
        Me.tabProfile.PerformLayout()
+        CType(Me.txtSQLValidation.Properties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBEMLP_POLL_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3653,4 +3687,6 @@ Partial Class frmMain
    Friend WithEvents EMAIL_USERLabel As Label
    Friend WithEvents EMAIL_PWLabel As Label
    Friend WithEvents ARCHIVE_FOLDERLabel As Label
+    Friend WithEvents btnValidationSQL As DevExpress.XtraEditors.SimpleButton
+    Friend WithEvents txtSQLValidation As DevExpress.XtraEditors.TextEdit
 End Class