jj: Update TesTGUI & EDM Designer

This commit is contained in:
Jonathan Jenne
2018-10-08 16:44:01 +02:00
parent bad26b316a
commit fb976bc43a
6 changed files with 48 additions and 215 deletions

View File

@@ -1,12 +1,13 @@
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class FrmConnection
Public Property LogFactory As NLog.LogFactory
Public Property LogConfig As LogConfig
Private _logger As NLog.Logger
Private Sub FrmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_logger = LogFactory.GetCurrentClassLogger()
_logger = LogConfig.GetLogger()
FbDatabaseLocationTextBox.DataBindings.Add("Text", My.Settings, "fbDatabaseLocation")
FbDatasourceTextBox.DataBindings.Add("Text", My.Settings, "fbDatasource")
@@ -18,7 +19,7 @@ Public Class FrmConnection
Dim dbTest As Firebird
Try
dbTest = New Firebird(LogFactory, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
dbTest = New Firebird(LogConfig, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
If dbTest.ConnectionFailed Then
MsgBox("Connection failed!", MsgBoxStyle.Information, "Database Connection")