AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

TestGUI: update

Browse Source
This commit is contained in:
Jonathan Jenne 2021-10-26 11:45:23 +02:00
parent 1b11cde174
commit 1113cf9597
3 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.Test.TestGUI/TestGUI.vbproj
View File

@ -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>

12
GUIs.Test.TestGUI/frmStart.Designer.vb generated
View File

@ -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

24
GUIs.Test.TestGUI/frmStart.vb
View File

@ -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