move test guis to GUIs.Test folders
This commit is contained in:
Jonathan Jenne
198
GUIs.Test.GUI_EDMI/frmEmailAccount.vb
Normal file
198
GUIs.Test.GUI_EDMI/frmEmailAccount.vb
Normal file
@@ -0,0 +1,198 @@
|
||||
Imports DigitalData.Modules.Messaging
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports FirebirdSql.Data.FirebirdClient
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmEmailAccount
|
||||
Private _bindingSource As BindingSource
|
||||
Private _tableName As String = "TBEDM_EMAIL_ACCOUNT"
|
||||
Private _tableAdapter As FbDataAdapter
|
||||
Private _dataSet As New DataSet()
|
||||
Private _Logger As Logger
|
||||
Private _MyLogger As LogConfig
|
||||
Private _firebird As Firebird
|
||||
Private _Email As Email
|
||||
Private oTable As DataTable
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton15_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton21_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmEmailAccount_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
|
||||
_Logger = _MyLogger.GetLogger()
|
||||
_firebird = New Firebird(_MyLogger, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
|
||||
_Email = New Email(_MyLogger)
|
||||
|
||||
|
||||
Dim oConnection As FbConnection
|
||||
oConnection = New FbConnection(GetConnectionString())
|
||||
oConnection.Open()
|
||||
|
||||
_dataSet.Tables.Add(New DataTable(_tableName) With {.CaseSensitive = True})
|
||||
|
||||
BindingSourceForm.DataSource = _dataSet
|
||||
BindingSourceForm.DataMember = _tableName
|
||||
|
||||
_tableAdapter = New FbDataAdapter() With {
|
||||
.SelectCommand = GetSelectCommand(oConnection),
|
||||
.InsertCommand = GetInsertCommand(oConnection),
|
||||
.UpdateCommand = GetUpdateCommand(oConnection),
|
||||
.DeleteCommand = New FbCommand(),
|
||||
.ContinueUpdateOnError = True
|
||||
}
|
||||
_tableAdapter.Fill(_dataSet, _tableName)
|
||||
oTable = _dataSet.Tables.Item(_tableName)
|
||||
|
||||
txtGUID.DataBindings.Add(New Binding("Text", BindingSourceForm, "GUID"))
|
||||
txtPROFILE_NAME.DataBindings.Add(New Binding("Text", BindingSourceForm, "PROFILE_NAME"))
|
||||
txtEMAIL_FROM.DataBindings.Add(New Binding("Text", BindingSourceForm, "EMAIL_FROM"))
|
||||
txtSERVER_IN.DataBindings.Add(New Binding("Text", BindingSourceForm, "SERVER_IN"))
|
||||
txtSERVER_OUT.DataBindings.Add(New Binding("Text", BindingSourceForm, "SERVER_OUT"))
|
||||
txtEMAIL_USER.DataBindings.Add(New Binding("Text", BindingSourceForm, "EMAIL_USER"))
|
||||
txtEMAIL_PW.DataBindings.Add(New Binding("Text", BindingSourceForm, "EMAIL_PW"))
|
||||
' txtPORT_IN.DataBindings.Add(New Binding("Text", BindingSourceForm, "PORT_IN"))
|
||||
txtPORT_OUT.DataBindings.Add(New Binding("Text", BindingSourceForm, "PORT_OUT"))
|
||||
cmbAUTH_TYPE.DataBindings.Add(New Binding("Text", BindingSourceForm, "AUTH_TYPE"))
|
||||
cmbPOP_IMAP.DataBindings.Add(New Binding("Text", BindingSourceForm, "POP_IMAP"))
|
||||
ADDED_WHOTextBox.DataBindings.Add(New Binding("Text", BindingSourceForm, "CREATEDWHO"))
|
||||
ADDED_WHENTextBox.DataBindings.Add(New Binding("Text", BindingSourceForm, "CREATEDWHEN"))
|
||||
CHANGED_WHOTextBox.DataBindings.Add(New Binding("Text", BindingSourceForm, "CHANGEDWHO"))
|
||||
CHANGED_WHENTextBox.DataBindings.Add(New Binding("Text", BindingSourceForm, "CHANGEDWHEN"))
|
||||
|
||||
|
||||
|
||||
GridControl1.DataSource = BindingSourceForm
|
||||
BindingNavigator1.BindingSource = BindingSourceForm
|
||||
GridView1.BestFitColumns(True)
|
||||
oConnection.Close()
|
||||
End Sub
|
||||
Private Function GetSelectCommand(Connection As FbConnection) As FbCommand
|
||||
Dim oCommand As New FbCommand() With {
|
||||
.Connection = Connection,
|
||||
.CommandText = $"SELECT * FROM TBEDM_EMAIL_ACCOUNT"
|
||||
}
|
||||
|
||||
Return oCommand
|
||||
End Function
|
||||
|
||||
Private Function GetInsertCommand(Connection As FbConnection) As FbCommand
|
||||
Dim oSQL = "INSERT INTO TBEDM_EMAIL_ACCOUNT (PROFILE_NAME,POP_IMAP,EMAIL_FROM,FROM_NAME,SERVER_IN,SERVER_OUT,EMAIL_USER,EMAIL_PW,AUTH_TYPE,PORT_IN,PORT_OUT,ACTIVE,CREATEDWHO) VALUES (@PROFILE_NAME,@POP_IMAP,@EMAIL_FROM,@FROM_NAME,@SERVER_IN,@SERVER_OUT,@EMAIL_USER,@EMAIL_PW,@AUTH_TYPE,@PORT_IN,@PORT_OUT,@ACTIVE,@CREATEDWHO)"
|
||||
|
||||
Dim oCommand As New FbCommand With {
|
||||
.Connection = Connection,
|
||||
.CommandType = CommandType.Text,
|
||||
.CommandText = oSQL
|
||||
}
|
||||
|
||||
With oCommand.Parameters
|
||||
.Add(New FbParameter("@PROFILE_NAME", FbDbType.VarChar, 50, "PROFILE_NAME"))
|
||||
.Add(New FbParameter("@POP_IMAP", FbDbType.VarChar, 20, "POP_IMAP"))
|
||||
.Add(New FbParameter("@EMAIL_FROM", FbDbType.VarChar, 100, "EMAIL_FROM"))
|
||||
.Add(New FbParameter("@FROM_NAME", FbDbType.VarChar, 100, "FROM_NAME"))
|
||||
.Add(New FbParameter("@SERVER_IN", FbDbType.VarChar, 100, "SERVER_IN"))
|
||||
.Add(New FbParameter("@SERVER_OUT", FbDbType.VarChar, 100, "SERVER_OUT"))
|
||||
.Add(New FbParameter("@EMAIL_USER", FbDbType.VarChar, 100, "EMAIL_USER"))
|
||||
.Add(New FbParameter("@EMAIL_PW", FbDbType.VarChar, 100, "EMAIL_PW"))
|
||||
.Add(New FbParameter("@AUTH_TYPE", FbDbType.VarChar, 100, "AUTH_TYPE"))
|
||||
.Add(New FbParameter("@PORT_IN", FbDbType.Integer, 10, "PORT_IN"))
|
||||
.Add(New FbParameter("@PORT_OUT", FbDbType.Integer, 10, "PORT_OUT"))
|
||||
'.Add(New FbParameter("@ACTIVE", FbDbType.Boolean, 10, "ACTIVE"))
|
||||
.Add(New FbParameter("@CREATEDWHO", FbDbType.VarChar, 50, "CREATEDWHO"))
|
||||
|
||||
End With
|
||||
End Function
|
||||
Private Function GetUpdateCommand(Connection As FbConnection) As FbCommand
|
||||
Dim oSQL = "UPDATE TBEDM_EMAIL_ACCOUNT SET PROFILE_NAME = @PROFILE_NAME, POP_IMAP = @POP_IMAP,EMAIL_FROM = @EMAIL_FROM,FROM_NAME = @FROM_NAME,SERVER_IN = @SERVER_IN,SERVER_OUT = @SERVER_OUT,EMAIL_USER = @EMAIL_USER,EMAIL_PW = @EMAIL_PW,AUTH_TYPE = @AUTH_TYPE,PORT_IN = @PORT_IN,PORT_OUT = @PORT_OUT,ACTIVE = @ACTIVE,CHANGEDWHO = @CHANGEDWHO WHERE GUID = @GUID"
|
||||
|
||||
Dim oCommand As New FbCommand With {
|
||||
.Connection = Connection,
|
||||
.CommandType = CommandType.Text,
|
||||
.CommandText = oSQL
|
||||
}
|
||||
|
||||
With oCommand.Parameters
|
||||
.Add(New FbParameter("@GUID", FbDbType.Integer, 10, "GUID"))
|
||||
.Add(New FbParameter("@PROFILE_NAME", FbDbType.VarChar, 50, "PROFILE_NAME"))
|
||||
.Add(New FbParameter("@POP_IMAP", FbDbType.VarChar, 20, "POP_IMAP"))
|
||||
.Add(New FbParameter("@EMAIL_FROM", FbDbType.VarChar, 100, "EMAIL_FROM"))
|
||||
.Add(New FbParameter("@FROM_NAME", FbDbType.VarChar, 100, "FROM_NAME"))
|
||||
.Add(New FbParameter("@SERVER_IN", FbDbType.VarChar, 100, "SERVER_IN"))
|
||||
.Add(New FbParameter("@SERVER_OUT", FbDbType.VarChar, 100, "SERVER_OUT"))
|
||||
.Add(New FbParameter("@EMAIL_USER", FbDbType.VarChar, 100, "EMAIL_USER"))
|
||||
.Add(New FbParameter("@EMAIL_PW", FbDbType.VarChar, 100, "EMAIL_PW"))
|
||||
.Add(New FbParameter("@AUTH_TYPE", FbDbType.VarChar, 100, "AUTH_TYPE"))
|
||||
.Add(New FbParameter("@PORT_IN", FbDbType.Integer, 10, "PORT_IN"))
|
||||
.Add(New FbParameter("@PORT_OUT", FbDbType.Integer, 10, "PORT_OUT"))
|
||||
' .Add(New FbParameter("@ACTIVE", FbDbType.Boolean, "ACTIVE"))
|
||||
.Add(New FbParameter("@CHANGEDWHO", FbDbType.VarChar, 50, "CHANGEDWHO"))
|
||||
|
||||
End With
|
||||
End Function
|
||||
Private Function GetConnectionString()
|
||||
Dim oConnectionString = New FbConnectionStringBuilder With {
|
||||
.DataSource = My.Settings.FB_DATASOURCE,
|
||||
.Database = My.Settings.FB_DATABASE,
|
||||
.UserID = My.Settings.FB_USER,
|
||||
.Password = My.Settings.FB_PW,
|
||||
.Dialect = 3
|
||||
}.ToString()
|
||||
|
||||
Return oConnectionString
|
||||
End Function
|
||||
|
||||
Private Sub btnsendtestmail_Click_1(sender As Object, e As EventArgs) Handles btnsendtestmail.Click
|
||||
If txtTestmail.Text <> String.Empty Then
|
||||
My.Settings.Save()
|
||||
Dim wrapper As New clsEncryption("!35452didalog=")
|
||||
|
||||
Dim PWPlain = wrapper.DecryptData(txtEMAIL_PW.Text)
|
||||
|
||||
If _Email.NewEmail(txtTestmail.Text, "Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtEMAIL_FROM.Text, txtSERVER_OUT.Text, txtPORT_OUT.Text, txtEMAIL_USER.Text, PWPlain, cmbAUTH_TYPE.Text, "EDMI GUI") = True Then
|
||||
MsgBox("Email was send successfully.", MsgBoxStyle.Information)
|
||||
Else
|
||||
MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnSaveEmailAccount_Click(sender As Object, e As EventArgs) Handles tsbtnSaveEmailAccount.Click
|
||||
Me.Validate()
|
||||
Me.BindingSourceForm.EndEdit()
|
||||
oTable.AcceptChanges()
|
||||
If Not IsNothing(oTable.GetChanges) Then
|
||||
_tableAdapter.Update(oTable)
|
||||
MsgBox("DONE!")
|
||||
Else
|
||||
MsgBox("No changes")
|
||||
End If
|
||||
_tableAdapter.Update(oTable)
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
Dim wrapper As New clsEncryption("!35452didalog=")
|
||||
Dim pwencrypted = wrapper.EncryptData(txtnewpasswort.Text)
|
||||
txtEMAIL_PW.Text = pwencrypted
|
||||
Dim upd = $"UPDATE TBEDM_EMAIL_ACCOUNT SET EMAIL_PW = '{pwencrypted}', CHANGEDWHO = '{Environment.UserName}' WHERE GUID = {txtGUID.Text}"
|
||||
If _firebird.ExecuteNonQuery(upd) = True Then
|
||||
MsgBox("Passwort has been encrypted!")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user