edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderung regex

Browse Source
This commit is contained in:
ja
2021-10-21 10:38:51 +02:00
parent bea8da2772
commit 1cd30f5faf
2 changed files with 37 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
login/ForgotPW.aspx.vb
View File

@@ -40,6 +40,7 @@ Partial Class ForgotPW
check_UserName_regex_M.Enabled = False
CustomerID_M_required.Enabled = False
valid_getNumber_M_Input.Enabled = False
regexval_txt_Email_M.Enabled = False
valreqtxtusername.Enabled = True
valreqtxtEmail.Enabled = True
@@ -49,18 +50,38 @@ Partial Class ForgotPW
CustomerIDrequired.Enabled = True
valid_getNumberInput.Enabled = True
valreqtxtEmail.Validate()
If valreqtxtEmail.IsValid = True Then
regexval_txt_Email.Validate()
If regexval_txt_Email.IsValid = False Then
regexval_txt_Email.ForeColor = Drawing.Color.OrangeRed
regexval_txt_Email.ErrorMessage = "Annotation: The Domain does not match."
regexval_txt_Email.Validate()
If regexval_txt_Email_2.IsValid = True Then
email = txtEmail.Text
regexval_txt_Email_2.ForeColor = Drawing.Color.Lime
regexval_txt_Email_2.ErrorMessage = "E-mail Address valid."
End If
Else
regexval_txt_Email.Validate()
If regexval_txt_Email_2.IsValid = True Then
regexval_txt_Email_2.ForeColor = Drawing.Color.Lime
regexval_txt_Email_2.ErrorMessage = "E-mail Address valid."
email = txtEmail_M.Text
End If
End If
End If
CustomerIDrequired.Validate()
If CustomerIDrequired.IsValid = True Then
valid_getNumber_M_Input.Validate()
valid_getNumberInput.Validate()
If valid_getNumberInput.IsValid = True Then
customerID = txt_CustomerID.Text
Else
valid_getNumberInput.ForeColor = Drawing.Color.Red
valid_getNumberInput.ErrorMessage = "Customer-ID is not numeric or too long."
End If
Else
valid_getNumberInput.ForeColor = Drawing.Color.Red
valid_getNumberInput.ErrorMessage = "Customer-ID is not given."
End If
valreqtxtusername.Validate()
@@ -74,34 +95,7 @@ Partial Class ForgotPW
check_UserName_regex.ForeColor = Drawing.Color.Lime
check_UserName_regex.ErrorMessage = "Valid Username has been entered."
End If
Else
valreqtxtusername.ForeColor = Drawing.Color.Lime
check_UserName_regex.ErrorMessage = "A too long Username has been entered."
End If
valreqtxtEmail.Validate()
If valreqtxtEmail.IsValid = True Then
regexval_txt_Email.Validate()
If regexval_txt_Email.IsValid = False Then
regexval_txt_Email.ForeColor = Drawing.Color.OrangeRed
regexval_txt_Email.ErrorMessage = "Annotation: The Domain does not match."
regexval_txt_Email_2.Validate()
If regexval_txt_Email_2.IsValid = True Then
email = txtEmail.Text
regexval_txt_Email.ForeColor = Drawing.Color.Lime
regexval_txt_Email.ErrorMessage = "E-mail Address valid."
End If
Else
regexval_txt_Email.Validate()
If valreqtxtEmail.IsValid = True Then
valreqtxtEmail.ForeColor = Drawing.Color.Lime
valreqtxtEmail.ErrorMessage = "E-mail Address valid."
email = txtEmail.Text
End If
End If
End If
' MsgBox("3" + email + " " + username)
End If
'Mobil
@@ -115,6 +109,7 @@ Partial Class ForgotPW
valid_getNumberInput.Enabled = False
regexval_2_txt_Email_M.Enabled = True
regexval_txt_Email_M.Enabled = True
valreqtxtEmail_M.Enabled = True
valreqtxtusername_M.Enabled = True
check_UserName_regex_M.Enabled = True
@@ -123,21 +118,21 @@ Partial Class ForgotPW
valreqtxtEmail_M.Validate()
If valreqtxtEmail_M.IsValid = True Then
regexval_txt_Email.Validate()
If regexval_txt_Email.IsValid = False Then
regexval_txt_Email.ForeColor = Drawing.Color.OrangeRed
regexval_txt_Email.ErrorMessage = "Annotation: The Domain does not match."
regexval_txt_Email.Validate()
regexval_txt_Email_M.Validate()
If regexval_txt_Email_M.IsValid = False Then
valreqtxtEmail_M.ForeColor = Drawing.Color.OrangeRed
regexval_txt_Email_M.ErrorMessage = "Annotation: The Domain does not match."
regexval_txt_Email_M.Validate()
If regexval_2_txt_Email_M.IsValid = True Then
email = txtEmail_M.Text
regexval_txt_Email.ForeColor = Drawing.Color.Lime
regexval_txt_Email.ErrorMessage = "E-mail Address valid."
regexval_txt_Email_M.ForeColor = Drawing.Color.Lime
regexval_txt_Email_M.ErrorMessage = "E-mail Address valid."
End If
Else
regexval_txt_Email.Validate()
If regexval_2_txt_Email_M.IsValid = True Then
regexval_txt_Email.ForeColor = Drawing.Color.Lime
regexval_txt_Email.ErrorMessage = "E-mail Address valid."
regexval_txt_Email_M.ForeColor = Drawing.Color.Lime
regexval_txt_Email_M.ErrorMessage = "E-mail Address valid."
email = txtEmail_M.Text
End If
End If
@@ -152,9 +147,6 @@ Partial Class ForgotPW
valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not numeric or too long."
End If
Else
valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not given."
End If
valreqtxtusername_M.Validate()
@@ -168,9 +160,6 @@ Partial Class ForgotPW
check_UserName_regex_M.ForeColor = Drawing.Color.Lime
check_UserName_regex_M.ErrorMessage = "Valid Username has been entered."
End If
Else
check_UserName_regex_M.ForeColor = Drawing.Color.Lime
check_UserName_regex_M.ErrorMessage = "A too long Username has been entered."
End If
Else
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")