TaskFlow/app/DD_PM_WINDREAM/frmAdmin2.vb

Imports DevExpress.XtraTab

Public Class frmAdmin2


    Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE". Sie können sie bei Bedarf verschieben oder entfernen.

        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE". Sie können sie bei Bedarf verschieben oder entfernen.
        Load_Email_template()
        Load_Gui_Phrases
    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()
        TITLETextBox.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_WHOTextBox.Text = USER_USERNAME
                Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
                Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
                Status_Changed("Vorlage gespeichert")
                TITLETextBox.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 = {GUIDTextBox.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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oText = EMAIL_BODY1TextBox.Text
        If EMAIL_BODY2TextBox.Text <> "" Then
            oText = oText & "<p>" & EMAIL_BODY2TextBox.Text
        End If
        If EMAIL_BODY3TextBox.Text <> "" Then
            oText = oText & "<p>" & EMAIL_BODY3TextBox.Text
        End If
        Dim ofrm As New frmPreviewHtml
        ofrm.DisplayText = oText
        ofrm.ShowDialog()
    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.CHANGED_WHOTextBox1.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 INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles INTERNALCheckBox.CheckedChanged
        If INTERNALCheckBox.Checked Then
            TITLETextBox1.ReadOnly = True
            OBJ_NAMETextBox.ReadOnly = True
        Else
            TITLETextBox1.ReadOnly = False
            OBJ_NAMETextBox.ReadOnly = False
        End If
    End Sub
End Class