-
Notifications
You must be signed in to change notification settings - Fork 1
/
LoginForm.vb
36 lines (31 loc) · 1.35 KB
/
LoginForm.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports BasicClassValidation.Classes
Imports BasicClassValidation.LanguageExtensions
Imports BasicClassValidation.Validators
Namespace Forms
Public Class LoginForm
Private Sub LogInButton_Click(sender As Object, e As EventArgs) _
Handles LogInButton.Click
Dim login As New CustomerLogin With
{
.Name = UserNameTextBox.Text,
.Password = PasswordTextBox.Text,
.PasswordConfirmation = PasswordConfirmTextBox.Text,
.EntryDate = EntryDateDateTimePicker.Value
}
Dim validationResult As EntityValidationResult = ValidationHelper.ValidateEntity(login)
If validationResult.HasError Then
MessageBox.Show(validationResult.ErrorMessageList())
Else
DialogResult = DialogResult.OK
End If
End Sub
''' <summary>
''' Set date time picker to a Saturday so it breaks the weekend rule set on EntryDate property.
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub LoginForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
EntryDateDateTimePicker.Value = Now.AddDays(-(Now.DayOfWeek + 1))
End Sub
End Class
End Namespace