Imports System.Data.SqlDbType
Imports System.Data.SqlClient
Imports System.Windows.Forms

Public Class FrmAddDok


    Dim data As New DB
    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        save_Data()
        MsgBox("Daten wurden gespeichert.", vbInformation)
    End Sub

    Function Checkdok(ByVal dokumentid As String) As Boolean

        If data.Check_Dok(dokumentid) = False Then
            MsgBox("Das Dokument mit der ID '" + Me.txtDokumentID.Text + "' ist nicht vorhanden", vbExclamation)
            Me.txtMailbetreff.Text = ""
            Me.txtMailInhalt.Text = ""
            Me.btn1.Enabled = False
            Me.btn2.Enabled = False
            Me.txtDokumentID.Focus()
        Else
            Me.txtMailbetreff.Text = data.subject
            Me.txtMailInhalt.Text = data.body
            Me.btn1.Enabled = True
            Me.btn2.Enabled = True
        End If

        Return data.Check_Dok(dokumentid)
    End Function
    Sub save_Data()
        data.Insert_Row(Me.txtDokumentID.Text, Me.cbboxMitarbeiter.SelectedValue, Me.txtBemerkung.Text, Globals.Mitarbeiternr)

    End Sub

    Private Sub FrmAddDok_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        data.Get_MA_Daten()
        Me.cbboxMitarbeiter.DataSource = data.dsdatenma.Tables(0)
        Me.cbboxMitarbeiter.DisplayMember = "Mitarbeiter"
        Me.cbboxMitarbeiter.ValueMember = "Mitarbeiternr"
        Me.txtBemerkung.Text = ""
        Me.txtDokumentID.Text = ""
    End Sub

    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        Me.Close()
    End Sub

    Private Sub txtDokumentID_Leave(sender As Object, e As EventArgs) Handles txtDokumentID.Leave
        If Trim(Me.txtDokumentID.Text) <> "" Then Checkdok(Me.txtDokumentID.Text)
        If Trim(Me.txtDokumentID.Text) = "" Then
            Me.btn1.Enabled = False
            Me.btn2.Enabled = False
        End If
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        save_Data()
        data.sendmail(Me.cbboxMitarbeiter.SelectedValue, Me.txtMailbetreff.Text, Me.txtMailInhalt.Text)
        MsgBox("Daten wurden gespeichert und das Mail versandt.", vbInformation)
    End Sub


End Class