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\DD_DEVELOP01;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 oClient = New DigitalData.Modules.EDMI.API.Client(LogConfig, "172.24.12.39:9000")
        oClient.Connect()

        Dim oEnv = New DigitalData.Modules.ZooFlow.Environment()
        oEnv.Service.Client = oClient
        oEnv.Database = Database

        Dim oTable As New DataTable
        oTable.Columns.AddRange(New List(Of DataColumn) From {
            New DataColumn("GUID", GetType(Integer)),
            New DataColumn("TITLE"),
            New DataColumn("DISPLAY_TYPE"),
            New DataColumn("MSG_STRING"),
            New DataColumn("VALIDATE_READ", GetType(Boolean))
        }.ToArray)

        oTable.Rows.Add("1", "Public Service Announcement", "MESSAGE", "This is an Important Message from the Management!", 1)
        oTable.Rows.Add("2", "Public Service Announcement", "MESSAGE", "This is another Important Message from the Management!", 0)
        oTable.AcceptChanges()

        Dim oForm As New frmNotification_Startup(oTable, LogConfig, "", "Test Notification", oEnv)
        oForm.Show()
    End Sub
End Class