Modules/EDMI_ClientSuite/frmMain.vb

Imports DevExpress.XtraBars.Docking2010.Views
Imports DevExpress.XtraBars.Docking2010
Imports DevExpress.XtraBars.Docking2010.Views.Widget
Imports System.ComponentModel
Imports EDMI_ClientSuite.ClassLayout
Imports System.IO
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Logging.LogConfig
Imports DigitalData.Modules.License

Public Class frmMain
    Private _Logger As Logger

    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Show splashscreen
        frmSplash.ShowDialog()
    End Sub

    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
        LabelCurrentUser.Caption = My.Application.User.UserName
        LabelCurrentMachine.Caption = My.Application.User.MachineName
        LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
        LabelCurrentLanguage.Caption = My.Application.User.Language

        Dim oDashboard = New frmDashboard()
        oDashboard.MdiParent = DocumentManager.MdiParent
        oDashboard.Show()

        ' --- Process Manager Panel ---
        Dim oDataTable = New DataTable("PMDocuments")
        Dim oDocNameColumn = New DataColumn("DocName", GetType(String))
        oDataTable.Columns.Add(oDocNameColumn)

        Dim oRow = oDataTable.NewRow()
        oRow.Item("DocName") = "test1.xlsx"

        oDataTable.Rows.Add(oRow)

        ProcessManagerOverview.DataSource = oDataTable
        AddHandler ProcessManagerOverview.RowDoubleClicked, Sub(RowView As DataRowView)
                                                                MsgBox($"Clicked on Document {RowView.Row.Item("DocName")}")
                                                            End Sub


        LoadLayout()
    End Sub

    Private Sub FrmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        SaveLayout()
    End Sub

    Private Sub LoadLayout()
        Dim oLayoutPathForDockManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DockManager)
        Dim oLayoutPathForDocumentManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DocumentManager)

        If IO.File.Exists(oLayoutPathForDockManager) Then
            DockManager.RestoreLayoutFromXml(oLayoutPathForDockManager)
        End If

        If IO.File.Exists(oLayoutPathForDocumentManager) Then
            DocumentManager.View.RestoreLayoutFromXml(oLayoutPathForDocumentManager)
        End If
    End Sub
    Private Sub SaveLayout()
        Dim oLayoutPathForDockManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DockManager)
        Dim oLayoutPathForDocumentManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DocumentManager)
        Dim oDirectory As String = Path.GetDirectoryName(oLayoutPathForDockManager)

        If Not Directory.Exists(oDirectory) Then
            Directory.CreateDirectory(oDirectory)
        End If

        DockManager.SaveLayoutToXml(oLayoutPathForDockManager)
        DocumentManager.View.SaveLayoutToXml(oLayoutPathForDocumentManager)
    End Sub

    Private Sub BarButtonUserSettings_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonUserSettings.ItemClick
        Dim frm As New frmConfigUser()
        frm.MdiParent = DocumentManager.MdiParent
        frm.Show()
    End Sub

    Private Sub BarButtonDashboard_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonDashboard.ItemClick
        Dim frm As New frmDashboard()
        frm.MdiParent = DocumentManager.MdiParent
        frm.Show()
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Dim frm As New frmFileTest(My.LogConfig)
        frm.MdiParent = DocumentManager.MdiParent
        frm.Show()
    End Sub

    Private Sub BarButtonEntityDesigner_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonEntityDesigner.ItemClick
        Dim frm As New frmEntityDesigner()
        frm.MdiParent = DocumentManager.MdiParent
        frm.Show()
        RibbonPageCategoryEntityDesigner.Visible = True
    End Sub

    Private Sub BarButtonConnectionSettings_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonConnectionSettings.ItemClick
        Dim frm As New frmConfigService()
        frm.MdiParent = DocumentManager.MdiParent
        frm.Show()
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        Dim oUser1 = New LicenseModuleUser With {
            .Type = UserType.PowerUser,
            .Test = False,
            .Count = 5,
            .ValidUntil = New Date(),
            .ValidUntilSpecified = True
        }

        Dim oUsers As New List(Of LicenseModuleUser)
        oUsers.Add(oUser1)

        Dim oModule = New LicenseModule() With {
            .Users = oUsers.ToArray(),
            .Name = "EDMI",
            .ValidUntil = New Date(),
            .ValidUntilSpecified = True
        }

        Dim oModules As New List(Of LicenseModule)
        oModules.Add(oModule)

        Dim oLicense = New LicenseSchema() With {
            .Modules = oModules.ToArray
        }

        Dim oLicenseFile As New LicenseFile(My.LogConfig, "E:\")
        oLicenseFile.SaveFile(oLicense)

        Dim oSerializer As New Xml.Serialization.XmlSerializer(GetType(LicenseSchema))
        Dim oLicense2 As LicenseSchema

        oLicense2 = oLicenseFile.LoadFile()
    End Sub
End Class