jj: Init Monorepo! :)

EDMDesigner/FrmConnection.vb

@@ -0,0 +1,32 @@
+Imports DD_FirebirdDLL
+
+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 ClassFirebird(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