TestGUI: update

GUIs.Test.TestGUI/frmStart.vb

@@ -1,6 +1,21 @@
-Imports Microsoft.Win32
+Imports DigitalData.Controls.SQLEditor
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
 
 Public Class frmStart
+    Private LogConfig As LogConfig
+    Private Database As MSSQLServer
+
+    Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LogConfig = New LogConfig(New LogOptions With {
+            .LogPath = LogConfig.PathType.Temp,
+            .ProductName = "TestGUI",
+            .CompanyName = "Digital Data"
+        })
+        Database = New MSSQLServer(LogConfig, "Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd")
+    End Sub
+
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         frmRelations.Show()
     End Sub
@@ -30,4 +45,11 @@ Public Class frmStart
     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, Button8.Click
         frmEmail.Show()
     End Sub
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        Dim oForm As New frmSQLEditor(LogConfig, Database)
+        oForm.Show()
+    End Sub
+
+
 End Class