117 lines
4.3 KiB
VB.net
117 lines
4.3 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class frmEintragOptionen
|
|
|
|
Dim OptionenDAL As New cOptionenDAL
|
|
Dim myOptionen As New cOption
|
|
Dim hÄnderung As Boolean = False
|
|
Dim Neuanlage As Boolean = False
|
|
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
Icon = cMeineFunktionenAVISO.GetProgrammIcon
|
|
End Sub
|
|
|
|
Private Sub frmEintragOptionen_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
|
'Escape händisch abfangen und auf Abbruch-Taste legen
|
|
If e.KeyCode = Keys.Escape Then
|
|
btnAbbruch.PerformClick()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmEintragOptionen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
Me.CenterToParent()
|
|
|
|
If cGlobal.Aktive_ID = 0 Then
|
|
'es erfolgt eine Neuanlage
|
|
Neuanlage = True
|
|
Me.Text = "Neuanlage Optionen"
|
|
Else
|
|
Me.Text = "Änderung Optionen-Stammdaten"
|
|
'ausgewählter Datensatz wird geladen
|
|
myOptionen = OptionenDAL.LesenOptionen(cGlobal.Aktive_ID, "")
|
|
|
|
'Werte(zuweisen)
|
|
txtAnkunft_Betreff.Text = myOptionen.eMail_Ankunft_Betreff
|
|
txtAnkunft_Text.Text = myOptionen.eMail_Ankunft_Text
|
|
txtFreigabe_Betreff.Text = myOptionen.eMail_Freigabe_Betreff
|
|
txtFreigabe_Text.Text = myOptionen.eMail_Freigabe_Text
|
|
End If
|
|
|
|
hÄnderung = False
|
|
End Sub
|
|
|
|
|
|
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
|
|
'Irgendwas wurde geändert, deshalb ein Hinweis, ob auch wirklich abgebrochen werden soll
|
|
'If hÄnderung Then
|
|
' Dim antwort As MsgBoxResult = MsgBox("Wollen Sie wirklich abbrechen?" & vbCrLf & vbCrLf & "Alle Änderungen gehen dabei verloren.", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
|
' "Dateneingabe wird abgebrochen")
|
|
' If antwort = vbNo Then
|
|
' Exit Sub
|
|
' End If
|
|
'End If
|
|
|
|
Me.Close()
|
|
End Sub
|
|
|
|
'Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtAnkunft_Betreff.GotFocus, txtFreigabe_Betreff.GotFocus
|
|
' CType(sender, TextBox).SelectAll()
|
|
'End Sub
|
|
|
|
'Private Sub txtBilanzart_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtBilanzart.TextChanged, txtBilanzart.TextChanged, txtAIS_Bilanzart.TextChanged, txtInfo.TextChanged, txtOptionen.TextChanged
|
|
' hÄnderung = True 'es wurde etwas geändert
|
|
'End Sub
|
|
|
|
'Private Sub txtOptionen_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
|
|
' 'Es sind nur Zahleneingaben erlaubt
|
|
' Dim asc As Integer = Convert.ToInt32(e.KeyChar)
|
|
' Select Case asc
|
|
' 'Folgende Tasten sind erlaubt
|
|
' '8 = Rücktaste (Back)
|
|
' '13 = Enter
|
|
' '27 = Esc
|
|
' '48 To 57 = 0 bis 9
|
|
' Case 8, 13, 27, 48 To 57
|
|
' Case Else
|
|
' e.Handled = True
|
|
' End Select
|
|
'End Sub
|
|
|
|
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
|
|
'Falls keine Änderung oder Neuanlage, dann kann Fenster geschlossen werden
|
|
'If Not hÄnderung And myOptionen.OptionID > 0 Then Me.Close()
|
|
|
|
'Logische Prüfungen vor dem Speichern
|
|
If txtAnkunft_Betreff.Text.Trim = "" Then
|
|
MsgBox("Bitte den Betreff beim Ankunftsmail eingeben.", MsgBoxStyle.Exclamation)
|
|
txtAnkunft_Betreff.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
If txtFreigabe_Betreff.Text.Trim = "" Then
|
|
MsgBox("Bitte den Betreff beim Freigabemail eingeben.", MsgBoxStyle.Exclamation)
|
|
txtFreigabe_Betreff.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
'Änderungen werden gespeichert
|
|
myOptionen.eMail_Ankunft_Betreff = txtAnkunft_Betreff.Text.Trim
|
|
myOptionen.eMail_Ankunft_Text = txtAnkunft_Text.Text.Trim
|
|
myOptionen.eMail_Freigabe_Betreff = txtFreigabe_Betreff.Text.Trim
|
|
myOptionen.eMail_Freigabe_Text = txtFreigabe_Text.Text.Trim
|
|
|
|
OptionenDAL.SpeichernOptionen(myOptionen)
|
|
|
|
If Neuanlage Then
|
|
'bei Neuanlage KZ setzen, damit Tabelle neu anzeigt wird
|
|
cGlobal.Aktive_ID = 1
|
|
End If
|
|
|
|
'Jetzt wird Fenster geschlossen
|
|
Me.Close()
|
|
End Sub
|
|
|
|
End Class
|