Imports Modules.Database

Public Class FrmConnection
    Private Sub FrmConnection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FbDatabaseLocationTextBox.DataBindings.Add("Text", My.Settings, "fbDatabaseLocation")
        FbDatasourceTextBox.DataBindings.Add("Text", My.Settings, "fbDatasource")
        FbUserTextBox.DataBindings.Add("Text", My.Settings, "fbUser")
        FbPasswordTextBox.DataBindings.Add("Text", My.Settings, "fbPassword")
    End Sub

    Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
        My.Settings.Save()

        Dim dbTest As New Firebird(My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)

        If dbTest.ConnectionFailed Then
            MsgBox("Connection failed!", MsgBoxStyle.Information, "Database Connection")

            lblConnectionStatus.Text = "No connection established"
            lblConnectionStatus.BackColor = Color.Red

            DialogResult = DialogResult.None
        Else
            MsgBox("Connection successful!", MsgBoxStyle.Information, "Database Connection")

            lblConnectionStatus.Text = "Connection established!"
            lblConnectionStatus.BackColor = Color.GreenYellow

            DialogResult = DialogResult.OK
        End If
    End Sub
End Class