Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports DigitalData.GUIs.Common

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\WISAG;Initial Catalog=DD_ECM;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

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        frmLookup.Show()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        frmFilesystem.Show()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim oScreen As New DigitalData.Modules.Windows.Screen()

        MsgBox("Scaling: " & oScreen.GetScreenScaling(Me))
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        frmChecksum.Show()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        frmDocView.Show()
    End Sub

    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) With {
            .SQLCommand = "SELECT * FROM TBDD_USER WHERE EMAIL = '{#USER#EMAIL}'",
            .SQLConnection = 0,
            .PlaceholdersAutomatic = New Dictionary(Of String, String) From {{"Testindex 1", "test 1"}, {"Testindex 2", "test 2"}},
            .PlaceholdersAutomaticPrefix = "MAN",
            .PlaceholdersWindream = New List(Of String) From {"String Index 1", "String Index 2"}
        }
        oForm.Show()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim oForm As New frmMsgBox(LogConfig, Database)
        oForm.Show()
    End Sub

    Private Sub btnObjectProperties_Click(sender As Object, e As EventArgs) Handles btnObjectProperties.Click
        Dim oForm As New frmObjectProperties(LogConfig, Database)
        oForm.ShowDialog()
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim oForm As New frmBulkInsert(LogConfig, Database)
        oForm.ShowDialog()
    End Sub
End Class