Initial commit

EDOKA_Toolset/Plugin_Dokument_Berechtigung/FrmAddDok.vb

@@ -0,0 +1,65 @@
+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