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.
93 lines
3.5 KiB
93 lines
3.5 KiB
Imports System.Text.RegularExpressions
|
|
Imports System.Windows.Forms
|
|
Imports C1.Win.C1TrueDBGrid
|
|
|
|
Public Class Form1
|
|
Dim db As New clsdb
|
|
Private Sub tsbtnSearchPartner_Click(sender As Object, e As EventArgs) Handles tsbtnSearchPartner.Click
|
|
Try
|
|
Me.tstxtDokumentid.Text = ""
|
|
db.get_dokumente_from_parter(Me.tstxtParnternr.Text, Me.C1Daten)
|
|
If db.dsdaten.Tables(0).Rows.Count < 1 Then Me.Panel1.Enabled = False Else Me.Panel1.Enabled = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub tsbtnSearchDokument_Click(sender As Object, e As EventArgs) Handles tsbtnSearchDokument.Click
|
|
Try
|
|
Me.tstxtParnternr.Text = ""
|
|
db.get_dokumente_from_dokumentid(Me.tstxtDokumentid.Text, Me.C1Daten)
|
|
If db.dsdaten.Tables(0).Rows.Count < 1 Then Me.Panel1.Enabled = False Else Me.Panel1.Enabled = True
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub tstxtDokumentid_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtDokumentid.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
tsbtnSearchDokument_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub tstxtParnternr_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtParnternr.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
tsbtnSearchPartner_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
|
|
Try
|
|
Me.txtEmail.Text = Me.C1Daten.Columns("Email").Value
|
|
Catch
|
|
Me.txtEmail.Text = ""
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub tsbtnsave_Click(sender As Object, e As EventArgs) Handles tsbtnsave.Click
|
|
Try
|
|
If C1Daten.Columns("DINR").Value = 0 Then
|
|
db.Insert_Email(C1Daten.Columns("Dokumentid").Value, C1Daten.Columns("DINR").Value, Globals.Mitarbeiternr, Me.txtEmail.Text)
|
|
Else
|
|
db.Update_Email(C1Daten.Columns("Dokumentid").Value, C1Daten.Columns("DINR").Value, Globals.Mitarbeiternr, Me.txtEmail.Text)
|
|
End If
|
|
If Me.tstxtParnternr.Text <> "" Then
|
|
Dim sdokid As String = C1Daten.Columns("Dokumentid").Value
|
|
Me.tsbtnSearchPartner_Click(sender, e)
|
|
Dim i As Integer
|
|
For i = 0 To db.dsdaten.Tables(0).Rows.Count - 1
|
|
If db.dsdaten.Tables(0).Rows(i).Item("Dokumentid") = sdokid Then Me.C1Daten.Bookmark = i
|
|
Next
|
|
Else
|
|
Me.tsbtnSearchDokument_Click(sender, e)
|
|
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.Text = db.Get_Dokumenttyp
|
|
|
|
End Sub
|
|
|
|
Private Sub txtEmail_Leave(sender As Object, e As EventArgs) Handles txtEmail.Leave
|
|
Me.txtEmail.Text = Trim(Me.txtEmail.Text)
|
|
Dim pattern As New Regex("\A(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\Z")
|
|
If pattern.IsMatch(Me.txtEmail.Text) Then
|
|
Me.tsbtnsave.Enabled = True
|
|
Else
|
|
Me.tsbtnsave.Enabled = False
|
|
MsgBox("Die eingegenbene E-Mail-Adresse ist ungültig" + vbCrLf + "Es darf nur eine gültige E-Mail-Adresse erfast werden.", vbExclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtEmail_TextChanged(sender As Object, e As EventArgs) Handles txtEmail.TextChanged
|
|
|
|
End Sub
|
|
End Class |