Imports NLog
Imports DigitalData.Modules.Database


Public Class FrmNewTable
    Private _logFactory As LogFactory
    Private _logger As Logger
    Private _db As Firebird

    Public Sub New(LogFactory As LogFactory)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        _logFactory = LogFactory
        _logger = _logFactory.GetCurrentClassLogger()
    End Sub

    Private Sub FrmNewTable_Load(sender As Object, e As KeyEventArgs) Handles Me.Load
        Try
            _db = New Firebird(_logFactory, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
        Catch ex As Exception
            MsgBox("Connection to DB failed!", MsgBoxStyle.Critical)
            _logger.Error(ex)
        End Try
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click

    End Sub
End Class