Modules/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb

Imports System.ComponentModel
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraLayout
Imports DevExpress.XtraTab
Imports DigitalData.Controls.RegexEditor
Imports DigitalData.Controls.SQLEditor
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging

Public Class frmAdmin_CWProfile
    Implements IAdminForm

    Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
    Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
    Public Property IsInsert As Boolean Implements IAdminForm.IsInsert

    Private Const BUTTON_REGEX_PROFILE = "BUTTON_REGEX_PROFILE"
    Private Const BUTTON_SEARCH_SQL = "BUTTON_SEARCH_SQL"
    Private Const BUTTON_COUNT_SQL = "BUTTON_COUNT_SQL"

    Private Const TAB_PAGE_PROFILE = "TAB_PAGE_PROFILE"
    Private Const TAB_PAGE_DOCSEARCH = "TAB_PAGE_DOCSEARCH"
    Private Const TAB_PAGE_DATASEARCH = "TAB_PAGE_DATASEARCH"

    Private Pages As ClassDetailPages

    Public Sub New(PrimaryKey As Integer)
        MyBase.New(My.LogConfig)

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

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.PrimaryKey = PrimaryKey
        Me.IsInsert = IsInsert
    End Sub

    Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
            TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey)

            TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
            TBCW_PROF_DOC_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DOC_SEARCH, PrimaryKey)

            TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
            TBCW_PROF_DATA_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, PrimaryKey)

            ' Configure the GridViews with some default options
            Dim oViews As New List(Of GridView) From {GridViewDataSearch, GridViewDocSearch}
            Dim oGridBuilder As New GridBuilder(oViews)
            oGridBuilder.
                WithDefaults().
                WithReadOnlyOptions()

            ' Add Focus Handler to all controls in all LayoutControls
            Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlDocSearch, LayoutControlDataSearch}

            Pages = New ClassDetailPages(oLayoutControls)
            Pages.AddRange({
                New ClassDetailPages.DetailPage With {
                    .IsPrimary = True,
                    .Name = "Profil",
                    .TabPage = PageProfile,
                    .BindingSource = TBCW_PROFILESBindingSource,
                    .DataTable = DBCW_Stammdaten.TBCW_PROFILES,
                    .AddedWhoEdit = txtAddedWho,
                    .ChangedWhoEdit = txtChangedWho
                },
                New ClassDetailPages.DetailPage With {
                    .Name = "Dokument-Suche",
                    .TabPage = PageDocumentSearch,
                    .BindingSource = TBCW_PROF_DOC_SEARCHBindingSource,
                    .DataTable = DBCW_Stammdaten.TBCW_PROF_DOC_SEARCH,
                    .AddedWhoEdit = txtAddedWho1,
                    .ChangedWhoEdit = txtChangedWho1
                },
                New ClassDetailPages.DetailPage With {
                    .Name = "Daten-Suche",
                    .TabPage = PageDataSearch,
                    .BindingSource = TBCW_PROF_DATA_SEARCHBindingSource,
                    .DataTable = DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH
                }
            })

            AddHandler Pages.AnyControl_Focus, AddressOf AnyControl_Focus
            AddHandler Pages.AnyControl_Changed, AddressOf AnyControl_Changed
        Catch ex As Exception
            ShowErrorMessage(ex)
        End Try
    End Sub

    Private Sub AnyControl_Focus(sender As Object, e As ClassDetailPages.DetailPageEventArgs)
        If Not IsNothing(e.Page) Then
            If e.Page.IsPrimary = True Then
                BarButtonNew.Enabled = False
            Else
                BarButtonNew.Enabled = True
            End If

            RibbonPageGroup1.Text = e.Page.Name
        End If
    End Sub

    Private Sub AnyControl_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs)

    End Sub

    Private Sub ResetMessages()
        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
    End Sub

    Private Sub ShowStatus(Message As String)
        labelStatus.Caption = Message
        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
    End Sub



    Public Function SaveData() As Boolean Implements IAdminForm.SaveData
        If Pages.CurrentPage Is Nothing Then
            Return False
        End If

        Dim oPage = Pages.CurrentPage

        Try
            oPage.BindingSource.EndEdit()

            If oPage.DataTable.GetChanges() IsNot Nothing Then
                HasChanges = True

                If IsInsert Then
                    oPage.AddedWhoEdit.EditValue = My.Application.User.UserName
                Else
                    oPage.ChangedWhoEdit.EditValue = My.Application.User.UserName
                End If

                oPage.BindingSource.EndEdit()
                Return True
            Else
                HasChanges = False
            End If

            Return False
        Catch ex As Exception
            ShowErrorMessage(ex)
            Return False
        End Try
    End Function

    Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick
        ResetMessages()

        If SaveData() And HasChanges Then
            Select Case Pages.CurrentPage.TabPage.Name
                Case PageProfile.Name
                    TBCW_PROFILESTableAdapter.Update(Pages.CurrentPage.DataTable)

                Case PageDocumentSearch.Name
                    TBCW_PROF_DOC_SEARCHTableAdapter.Update(Pages.CurrentPage.DataTable)
            End Select

            ShowStatus($"{Pages.CurrentPage.Name} gespeichert!")
        End If
    End Sub

    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
        Throw New NotImplementedException()
    End Function

    Public Function AddData() As Boolean
        If Pages.CurrentPage Is Nothing Then
            Return False
        End If

        Dim oPage = Pages.CurrentPage

        oPage.DataTable.Columns.Item("PROFILE_ID").DefaultValue = PrimaryKey
        Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew()

        Return True
    End Function

    Private Sub TextEdit4_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit4.ButtonClick
        Dim oTextEdit As TextEdit = sender

        If e.Button.Tag = BUTTON_REGEX_PROFILE Then
            Dim oForm As New frmRegexEditor(oTextEdit.EditValue)
            Dim oResult = oForm.ShowDialog()

            If oResult = DialogResult.OK Then
                oTextEdit.EditValue = oForm.RegexString
            End If
        End If
    End Sub

    Private Sub TextEdit7_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit7.ButtonClick
        Dim oTextEdit As TextEdit = sender

        If e.Button.Tag = BUTTON_SEARCH_SQL Then
            Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue}
            Dim oResult = oForm.ShowDialog()

            If oResult = DialogResult.OK Then
                oTextEdit.EditValue = oForm.SQLString
            End If
        End If
    End Sub

    Private Sub TextEdit8_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit8.ButtonClick
        Dim oTextEdit As TextEdit = sender

        If e.Button.Tag = BUTTON_COUNT_SQL Then
            Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue}
            Dim oResult = oForm.ShowDialog()

            If oResult = DialogResult.OK Then
                oTextEdit.EditValue = oForm.SQLString
            End If
        End If
    End Sub

    Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick
        AddData()
    End Sub
End Class