TaskFlow/app/DD_PM_WINDREAM/frmAdmin2.vb

Imports System.IO
Imports DevExpress.XtraTab

Public Class frmAdmin2
    Dim oSave As Boolean = True

    Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Load_Email_template()
        Load_Gui_Phrases()
        oSave = True
        Try
            Dim oFilename As String = String.Format("DevExLayoutAdmin2_Email.xml")
            Dim oXml As String = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
            If File.Exists(oXml) Then
                DataLayoutControl1.RestoreLayoutFromXml(oXml)
            End If
            oFilename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml")
            oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
            If File.Exists(oXml) Then
                DataLayoutControl2.RestoreLayoutFromXml(oXml)
            End If


        Catch ex As Exception
            LOGGER.Error(ex)
            LOGGER.Info("Error while restoring Datalayout: " & ex.Message)
        End Try

    End Sub
    Sub Status_Changed(text As String)
        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
        labelStatus.Caption = $"{text} - {Now.ToLongTimeString}"
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick
        TBDD_EMAIL_TEMPLATEBindingSource.AddNew()
        TITLETextEdit.ReadOnly = False
    End Sub



    Private Sub BarButtonItem1_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Load_Email_template()
    End Sub
    Sub Load_Email_template()
        Try
            TBDD_EMAIL_TEMPLATETableAdapter.Connection.ConnectionString = CONNECTION_STRING
            Me.TBDD_EMAIL_TEMPLATETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading EmailTemplates:")
        End Try
    End Sub
    Sub Load_Gui_Phrases()
        Try
            TBDD_GUI_LANGUAGE_PHRASETableAdapter.Connection.ConnectionString = CONNECTION_STRING
            Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading GUIPhrases:")
        End Try
    End Sub
    Private Sub TBDD_EMAIL_TEMPLATEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_TEMPLATEBindingSource.AddingNew
        DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
    End Sub

    Private Sub BbitemplateSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateSave.ItemClick
        Email_Template_Save()
    End Sub
    Sub Email_Template_Save()
        Try
            Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
            If Not IsNothing(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.GetChanges) Then
                Me.CHANGED_WHOTextEdit.Text = USER_USERNAME
                Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
                Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
                Status_Changed("Vorlage gespeichert")
                TITLETextEdit.ReadOnly = True
            Else
                Status_Changed("Keine Änderung")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving EmailTemplates:")
            'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
        End Try
    End Sub

    Private Sub BbitemplateDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateDelete.ItemClick
        Dim result As MsgBoxResult = MsgBox("Wollen Sie die Vorlage wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
        'wenn Speichern ja
        If result = MsgBoxResult.Yes Then
            Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextEdit.Text}"
            If ClassDatabase.Execute_non_Query(oSQL) = True Then
                Load_Email_template()
                Status_Changed("Vorlage gelöscht!")
            End If
        End If
    End Sub

    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
        Select Case XtraTabControl1.SelectedTabPageIndex
            Case 0
                RibbonPageGroup1.Enabled = True
                RibbonPageGroup2.Enabled = False
            Case 1
                RibbonPageGroup2.Enabled = True
                RibbonPageGroup1.Enabled = False

        End Select
    End Sub



    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
        GuiPhrase_Save()
    End Sub

    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
        TBDD_GUI_LANGUAGE_PHRASEBindingSource.AddNew()
    End Sub
    Sub GuiPhrase_Save()
        Try
            Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.EndEdit()
            If Not IsNothing(DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.GetChanges) Then
                Me.TextEdit4.Text = USER_USERNAME
                Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.EndEdit()
                Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE)
                Status_Changed("Phrase saved!")
            Else
                Status_Changed("No Changes")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving GuiPHrase:")
            'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
        End Try
    End Sub
    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick

    End Sub

    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
        Load_Gui_Phrases()
    End Sub

    Private Sub TBDD_GUI_LANGUAGE_PHRASEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GUI_LANGUAGE_PHRASEBindingSource.AddingNew
        DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
    End Sub



    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
        Dim oText = EMAIL_BODY1TextEdit.Text
        If EMAIL_BODY2TextEdit.Text <> "" Then
            oText = oText & "<p>" & EMAIL_BODY2TextEdit.Text
        End If
        If EMAIL_BODY3TextEdit.Text <> "" Then
            oText = oText & "<p>" & EMAIL_BODY3TextEdit.Text
        End If
        Dim ofrm As New frmPreviewHtml
        ofrm.DisplayText = oText
        ofrm.ShowDialog()
    End Sub

    Private Sub frmAdmin2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If oSave = False Then
            Exit Sub
        End If
        Try
            Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml")
            Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
            'If File.Exists(xml) Then
            DataLayoutControl1.SaveLayoutToXml(xml)
            'End If
            Filename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml")
            xml = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
            DataLayoutControl2.SaveLayoutToXml(xml)
        Catch ex As Exception
            LOGGER.Error(ex)
            LOGGER.Info("Error while saving datalayout: " & ex.Message)
        End Try


    End Sub



    Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
        Try
            Dim oFilename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml")
            Dim oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
            File.Delete(oXml)
            MsgBox("Form will now close to reload all controls!", MsgBoxStyle.Information)
            Me.Close()
            oSave = False
        Catch ex As Exception
            LOGGER.Error(ex)
        End Try


    End Sub

    Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
        Try
            Dim oFilename = String.Format("DevExLayoutAdmin2_Email.xml")
            Dim oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
            File.Delete(oXml)
            MsgBox("Form will now close to reload all controls!", MsgBoxStyle.Information)
            Me.Close()
            oSave = False
        Catch ex As Exception
            LOGGER.Error(ex)
        End Try
    End Sub

    Private Sub INTERNALCheckEdit_CheckedChanged_1(sender As Object, e As EventArgs) Handles INTERNALCheckEdit.CheckedChanged
        If INTERNALCheckEdit.Checked Then
            TextEdit2.ReadOnly = True
            OBJ_NAMETextEdit.ReadOnly = True
            STRING1TextEdit.ReadOnly = True
            STRING2TextEdit.ReadOnly = True
        Else
            TextEdit2.ReadOnly = False
            OBJ_NAMETextEdit.ReadOnly = False
            STRING1TextEdit.ReadOnly = False
            STRING2TextEdit.ReadOnly = False
        End If
    End Sub
End Class