TestGUI: update

GUIs.Test.TestGUI/TestGUI.vbproj

@@ -297,6 +297,14 @@
       <Project>{3dcd6d1a-c830-4241-b7e4-27430e7ea483}</Project>
       <Name>LookupControl</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Controls.SQLEditor\SQLEditor.vbproj">
+      <Project>{3e7bc8a9-91ef-49b8-8110-2c01f664c24a}</Project>
+      <Name>SQLEditor</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\GUIs.Common\Common.vbproj">
+      <Project>{D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}</Project>
+      <Name>Common</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Config\Config.vbproj">
       <Project>{44982f9b-6116-44e2-85d0-f39650b1ef99}</Project>
       <Name>Config</Name>

GUIs.Test.TestGUI/frmStart.Designer.vb

@@ -30,6 +30,7 @@ Partial Class frmStart
         Me.Button6 = New System.Windows.Forms.Button()
         Me.Button7 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
+        Me.Button9 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Button1
@@ -104,11 +105,21 @@ Partial Class frmStart
         Me.Button8.Text = "IMAP"
         Me.Button8.UseVisualStyleBackColor = True
         '
+        'Button9
+        '
+        Me.Button9.Location = New System.Drawing.Point(254, 134)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(236, 55)
+        Me.Button9.TabIndex = 3
+        Me.Button9.Text = "SQL Editor"
+        Me.Button9.UseVisualStyleBackColor = True
+        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.Button9)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.Button4)
@@ -131,4 +142,5 @@ Partial Class frmStart
     Friend WithEvents Button6 As Button
     Friend WithEvents Button7 As Button
     Friend WithEvents Button8 As Button
+    Friend WithEvents Button9 As Button
 End Class

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