Modules/GUIs.ZooFlow/Administration/frmAdmin_Start.vb

Imports DevExpress.Utils
Imports DevExpress.XtraBars.Docking2010.Views
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraTab
Imports DigitalData.Modules.Logging

Public Class frmAdmin_Start
    Private Const IDB_START = "IDB_START"
    Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
    Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY"
    Private Const GLOBIX = "GLOBIX"
    Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"

    Private Logger As Logger
    Private PrimaryKey As String = Nothing

    Private SourceCommands As New Dictionary(Of String, SourceSql)

    Private Class SourceSql
        Public Title As String
        Public SQL As String
        Public PrimaryKey As String
    End Class

    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Logger = My.LogConfig.GetLogger

        Load_SourceSql()

        TreeListMenu.ExpandAll()

        ' Show Tab Header in Development, hide when running the app
        XtraTabControl.ShowTabHeader = DefaultBoolean.False
    End Sub

    Private Sub Load_SourceSql()
        Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL")

        For Each oRow As DataRow In oTable.Rows
            Dim oSource As New SourceSql With {
                .PrimaryKey = oRow.Item("PK_COLUMN"),
                .SQL = oRow.Item("SQL_COMMAND"),
                .Title = oRow.Item("ENTITY_TITLE")
            }

            SourceCommands.Add(oRow.Item("ENTITY_TITLE"), oSource)
        Next
    End Sub

    Sub Display_Tab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl)
        Try
            For Each oDocument As XtraTabPage In pTabControl.TabPages
                If oDocument.Name = pPageToDisplay.Name Then
                    oDocument.PageVisible = True
                Else
                    oDocument.PageVisible = False
                End If
            Next
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub

    Sub Display_RibbonPage(PageToDisplay As RibbonPage)
        Try
            For Each oPage As RibbonPage In RibbonControl1.Pages
                If oPage.Name = PageToDisplay.Name Then
                    oPage.Visible = True
                Else
                    oPage.Visible = False
                End If
            Next
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub

    Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged
        If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
            Exit Sub
        End If

        Select Case e.Node.Tag.ToString
            Case IDB_START
                Display_Tab(XtraTabPage_IDB, XtraTabControl)

            Case IDB_ATTRIBUTES
                Display_Tab(XtraTabPage_IDB, XtraTabControl)
                Display_Tab(XtraTabPageIDB_Attributes_New, XtraTabControlIDB)

                Dim oSource As SourceSql = SourceCommands.Item(e.Node.Tag.ToString)
                Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
                Load_Grid(oTable, oSource.PrimaryKey, GridAttributes)

            Case IDB_BUSINESS_ENTITY
                'DisplayTab(XtraTabPage_Entities)

            Case GLOBIX
                Display_Tab(XtraTabPage_GlobalIndexer, XtraTabControl)
                Display_RibbonPage(RibbonPage_GlobalIndexer)

            Case CLIPBOARD_WATCHER
                Display_Tab(XtraTabPage_ClipboardWatcher, XtraTabControl)
                Display_RibbonPage(RibbonPage_ClipboardWatcher)

        End Select
    End Sub

    Private Sub Load_Grid(DataSource As DataTable, PrimaryKey As String, GridControl As GridControl)
        Try
            Me.PrimaryKey = PrimaryKey

            GridControl.DataSource = DataSource
            GridControl.ForceInitialize()

            Dim oGridView = DirectCast(GridControl.DefaultView, GridView)

            With oGridView.OptionsBehavior
                .Editable = False
                .ReadOnly = True
            End With

            With oGridView.OptionsView
                .ShowAutoFilterRow = True
            End With

            oGridView.BestFitColumns()

        Catch ex As Exception
            MsgBox("Fehler beim Laden.", MsgBoxStyle.Critical, Text)
            Logger.Error(ex)
        End Try
    End Sub

    Private Sub TBIDB_ATTRIBUTEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Validate()
        TBIDB_ATTRIBUTEBindingSource.EndEdit()
        TableAdapterManager.UpdateAll(DSIDB_Stammdaten)
    End Sub

    Private Sub BarButtonItemSaveAttribute_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveAttribute.ItemClick
        'Save_Attribute()
    End Sub
    'Sub Save_Attribute()
    '    Try
    '        TBIDB_ATTRIBUTEBindingSource.EndEdit()
    '        If Not IsNothing(DSIDB_Stammdaten.GetChanges) Then
    '            CHANGED_WHOTextBox.Text = My.Application.User.UserName
    '            TBIDB_ATTRIBUTEBindingSource.EndEdit()
    '            TBIDB_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.TBIDB_ATTRIBUTE)
    '            labelStatus.Caption = $"IDB Attribute saved - {Now.ToLongTimeString}"
    '        End If
    '    Catch ex As Exception
    '        Logger.Error(ex)
    '    End Try
    'End Sub

    Private Sub ViewAttributes_DoubleClick(sender As Object, e As EventArgs) Handles ViewAttributes.DoubleClick
        Dim view As GridView = TryCast(sender, GridView)
        Dim hitInfo As GridHitInfo = view.CalcHitInfo((TryCast(e, DXMouseEventArgs)).Location)
        If hitInfo.InDataRow Then
            Try
                Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
                Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
                Dim oForm As New frmAdmin_Attribute(oPrimaryKey)
                oForm.ShowDialog()
            Catch ex As Exception
                Logger.Error(ex)
            End Try
        End If
    End Sub
End Class