You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
2.2 KiB
65 lines
2.2 KiB
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 |