518 lines
22 KiB
VB.net
518 lines
22 KiB
VB.net
Imports ApplicationCrèche_1.IDFormMode
|
|
|
|
Public Class FormChildID
|
|
Inherits FormID
|
|
' ----- Private Attributes -----
|
|
Private actualFormMode As IDFormMode
|
|
Private meetID As Integer
|
|
Private oldBSID As Integer
|
|
Private newBSID As Integer
|
|
|
|
' ----- Initialisators -----
|
|
|
|
Private Sub FormChildID_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Sub New(aFormMode As IDFormMode, Optional aChild As Child = Nothing)
|
|
Console.WriteLine("FormChildID : Begining of a new instance")
|
|
' Cet appel est requis par le concepteur.
|
|
InitializeComponent()
|
|
|
|
' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
|
|
If aFormMode = CREATOR Or aChild Is Nothing Then
|
|
ChangeMode(CREATOR)
|
|
oldBSID = 0
|
|
meetID = 0
|
|
Else
|
|
ChangeMode(aFormMode, aChild)
|
|
If Not aChild.meet Is Nothing Then
|
|
oldBSID = dbdata.getBabysitterByMeetID(aChild.meet.id).id
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
' ----- Methods ------
|
|
Private Function refreshBS(aBS As BabySitter)
|
|
If Not aBS Is Nothing Then
|
|
Me.LabelBS.Text = aBS.firstname + " " + aBS.lastname + " | " + aBS.phone1
|
|
newBSID = aBS.id
|
|
Return True
|
|
Else
|
|
LabelBS.Text = ""
|
|
newBSID = Nothing
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
Public Function refreshParent1(aParent As Parent) As Boolean
|
|
If Not aParent Is Nothing Then
|
|
Me.LabelParent1.Text = aParent.firstname + " " + aParent.lastname + " | " + aParent.phone
|
|
Me.LabelParent1.Tag = aParent.id
|
|
Return True
|
|
Else
|
|
Me.LabelParent2.Tag = 0
|
|
Me.LabelParent2.Text = "subscrib a new parent"
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
Public Function refreshParent2(aParent As Parent) As Boolean
|
|
If Not aParent Is Nothing Then
|
|
Me.LabelParent2.Text = aParent.firstname + " " + aParent.lastname + " | " + aParent.phone
|
|
Me.LabelParent2.Tag = aParent.id
|
|
Return True
|
|
Else
|
|
Me.LabelParent2.Tag = 0
|
|
Me.LabelParent2.Text = "subscrib a new parent"
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
Private Sub setupCheckboxes(aMeet As Meet)
|
|
CBFriday.Checked = aMeet.friday
|
|
CBMonday.Checked = aMeet.monday
|
|
CBWednesday.Checked = aMeet.wednesday
|
|
CBSaturday.Checked = aMeet.saturday
|
|
CBSunday.Checked = aMeet.sunday
|
|
CBThursday.Checked = aMeet.thursday
|
|
CBTuesday.Checked = aMeet.tuesday
|
|
meetID = aMeet.id
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Get the meet from the form. If the meet is loaded from the database, his ID is added. Else the meet have an id = to 0
|
|
''' </summary>
|
|
''' <returns>The current meet</returns>
|
|
''' <remarks>The meet number is based on the old recorded BabySitter ID (oldBSID)</remarks>
|
|
Private Function getMeet() As Meet
|
|
Dim aMeet As Meet = Nothing
|
|
If oldBSID = 0 Then
|
|
aMeet = New Meet(0)
|
|
Else
|
|
aMeet = New Meet(CInt(meetID))
|
|
End If
|
|
aMeet.monday = CBMonday.Checked
|
|
aMeet.tuesday = CBTuesday.Checked
|
|
aMeet.wednesday = CBWednesday.Checked
|
|
aMeet.thursday = CBThursday.Checked
|
|
aMeet.friday = CBFriday.Checked
|
|
aMeet.saturday = CBSaturday.Checked
|
|
aMeet.sunday = CBSunday.Checked
|
|
Return aMeet
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Get the Child with all informations that the user have filled up.
|
|
''' </summary>
|
|
''' <returns>a Child with the ID 0 if it is a new child or this current ID.</returns>
|
|
''' <remarks></remarks>
|
|
Public Function getChildFromIntern() As Child
|
|
Dim newChild As Child = New Child(Me.Tag)
|
|
newChild.firstname = TBFirstName.Text
|
|
newChild.lastname = TBLastName.Text
|
|
newChild.gender = RBMale.Checked
|
|
newChild.address = TBAddress.Text
|
|
newChild.bornDate = DTPBord.Value
|
|
If Not LabelParent1.Tag Is Nothing Then
|
|
newChild.parent1 = dbdata.getParentByID(LabelParent1.Tag)
|
|
End If
|
|
If Not LabelParent2.Tag Is Nothing Then
|
|
newChild.parent2 = dbdata.getParentByID(LabelParent2.Tag)
|
|
End If
|
|
|
|
newChild.meet = getMeet()
|
|
|
|
Return (newChild)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Fill all controls with information given as a Child
|
|
''' </summary>
|
|
''' <param name="aChild">The child to load</param>
|
|
''' <returns>false is the parameter is nothing else true.</returns>
|
|
''' <remarks></remarks>
|
|
Private Function updateChildFromExtern(aChild As Child) As Boolean
|
|
' Fill up controls with all the data we have.
|
|
If Not aChild Is Nothing Then
|
|
Me.Tag = aChild.id
|
|
'Me.Text = aChild.firstname + " " + aChild.lastname
|
|
Me.TBFirstName.Text = aChild.firstname 'Firstname
|
|
Me.TBLastName.Text = aChild.lastname 'Lastname
|
|
If aChild.gender Then 'Gender
|
|
Me.RBMale.Checked = True
|
|
Else
|
|
Me.RBFemale.Checked = True
|
|
End If
|
|
Me.DTPBord.Value = aChild.bornDate 'BornDate
|
|
Me.LabelAge.Text = DateDiff(DateInterval.Year, aChild.bornDate, Date.Now).ToString + " year(s) old" 'Age
|
|
Me.TBAddress.Text = aChild.address 'Address
|
|
If Not aChild.parent1 Is Nothing Then 'Parent1 Info
|
|
Me.LabelParent1.Text = aChild.parent1.firstname + " " + aChild.parent1.lastname + " | " + aChild.parent1.phone
|
|
Me.LabelParent1.Tag = aChild.parent1.id
|
|
Else
|
|
Me.LabelParent1.Text = "subscrib a new parent"
|
|
End If
|
|
If Not aChild.parent2 Is Nothing Then 'Parent2 Info
|
|
Me.LabelParent2.Text = aChild.parent2.firstname + " " + aChild.parent2.lastname + " | " + aChild.parent2.phone
|
|
Me.LabelParent2.Tag = aChild.parent2.id
|
|
Else
|
|
Me.LabelParent2.Text = "subscrib a new parent"
|
|
End If
|
|
'Title
|
|
If actualFormMode = VIEWER Then
|
|
Me.Text = aChild.firstname + " " + aChild.lastname
|
|
Else
|
|
Me.Text = aChild.firstname + " " + aChild.lastname + " (Edit)"
|
|
End If
|
|
' A babysitter is loader only if the child have a meet
|
|
If Not aChild.meet Is Nothing Then
|
|
Dim aBS As BabySitter = dbdata.getBabysitterByMeetID(aChild.meet.id)
|
|
refreshBS(aBS) 'The babysitter id is stored with data
|
|
setupCheckboxes(aChild.meet) 'The meet id is stored with data
|
|
End If
|
|
|
|
Return True
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Polyvalence Mechanism. Change the 'MODE' of the windows
|
|
''' </summary>
|
|
''' <param name="aFormMode">The new mode like EDITOR or CREATOR</param>
|
|
''' <param name="aChild">Some new info about the child.</param>
|
|
''' <remarks></remarks>
|
|
Private Sub ChangeMode(aFormMode As IDFormMode, Optional aChild As Child = Nothing)
|
|
If aFormMode = IDFormMode.CREATOR Then ' CREATOR MODE
|
|
Me.actualFormMode = CREATOR
|
|
Console.WriteLine("FormChildID : Switch to CREATOR Mode")
|
|
|
|
'Change of the main triggers labels + title
|
|
'Me.Icon
|
|
Me.Text = "New child"
|
|
Me.ButtonClose.Text = "Cancel"
|
|
Me.ButtonEdit.Text = "Save"
|
|
Me.RBMale.Checked = True
|
|
Me.LabelAge.Text = ""
|
|
Me.ButtonEdit.Image = My.Resources.AddSheet2
|
|
|
|
Me.Tag = 0
|
|
ElseIf aFormMode = IDFormMode.VIEWER And Not aChild Is Nothing Then ' VIEW MODE
|
|
Me.actualFormMode = VIEWER
|
|
Console.WriteLine("FormChildID : Switch to VIEWER Mode")
|
|
|
|
'We change the main triggers labels + title
|
|
Me.ButtonClose.Text = "Close"
|
|
Me.ButtonEdit.Text = "Edit"
|
|
Me.ButtonEdit.Image = My.Resources.EditSheet2
|
|
|
|
'Activate most important security aspect (not show a window that can mat a save somewhere else)
|
|
ButtonParent1.Enabled = False
|
|
ButtonParent2.Enabled = False
|
|
ButtonBS.Enabled = False
|
|
LabelParent1.Enabled = False
|
|
LabelParent2.Enabled = False
|
|
TBFirstName.Enabled = False
|
|
TBLastName.Enabled = False
|
|
DTPBord.Enabled = False
|
|
RBFemale.Enabled = False
|
|
RBMale.Enabled = False
|
|
TBAddress.Enabled = False
|
|
CBFriday.Enabled = False
|
|
CBMonday.Enabled = False
|
|
CBSaturday.Enabled = False
|
|
CBSunday.Enabled = False
|
|
CBThursday.Enabled = False
|
|
CBTuesday.Enabled = False
|
|
CBWednesday.Enabled = False
|
|
LabelBS.Enabled = False
|
|
ButtonBS.Enabled = False
|
|
|
|
ElseIf aFormMode = IDFormMode.EDITOR Then ' EDITOR MODE WITH THE CURRENT CHILD
|
|
Console.WriteLine("FormChildID : Switch to Editor Mode")
|
|
Me.actualFormMode = EDITOR
|
|
|
|
''We change the main triggers labels + title
|
|
Me.ButtonClose.Text = "Cancel"
|
|
Me.ButtonEdit.Text = "Update"
|
|
Me.ButtonEdit.Image = My.Resources.ValidedSheet
|
|
Me.Text = TBFirstName.Text + " " + TBLastName.Text + " (Edit)"
|
|
|
|
'Turn off anti edit security
|
|
ButtonParent1.Enabled = True
|
|
ButtonParent2.Enabled = True
|
|
ButtonBS.Enabled = True
|
|
LabelParent1.Enabled = True
|
|
LabelParent2.Enabled = True
|
|
TBFirstName.Enabled = True
|
|
TBLastName.Enabled = True
|
|
DTPBord.Enabled = True
|
|
RBFemale.Enabled = True
|
|
RBMale.Enabled = True
|
|
TBAddress.Enabled = True
|
|
CBFriday.Enabled = True
|
|
CBMonday.Enabled = True
|
|
CBSaturday.Enabled = True
|
|
CBSunday.Enabled = True
|
|
CBThursday.Enabled = True
|
|
CBTuesday.Enabled = True
|
|
CBWednesday.Enabled = True
|
|
LabelBS.Enabled = True
|
|
ButtonBS.Enabled = True
|
|
|
|
Else
|
|
Console.WriteLine("FormChildId : No correct mode has been found.")
|
|
End If
|
|
' Fill up controls with all the data we have.
|
|
updateChildFromExtern(aChild)
|
|
End Sub
|
|
|
|
' ----- Handles and Listerners -----
|
|
'Edit and click
|
|
Protected Overrides Sub ButtonEdit_Click(sender As System.Object, e As System.EventArgs)
|
|
Dim Validated As Boolean = True
|
|
If Me.actualFormMode = VIEWER Then 'EDIT'
|
|
Me.ChangeMode(EDITOR)
|
|
ElseIf Me.actualFormMode = CREATOR Then 'SAVE'
|
|
' Error Provider
|
|
If String.IsNullOrEmpty(TBFirstName.Text) Then
|
|
ErrorProvider1.SetError(TBFirstName, "The first name field could not be empty." & vbNewLine & "Please fill this field.")
|
|
Validated = False
|
|
End If
|
|
If String.IsNullOrEmpty(TBLastName.Text) Then
|
|
ErrorProvider1.SetError(TBLastName, "The last name field could not be empty." & vbNewLine & "Please fill this field.")
|
|
Validated = False
|
|
End If
|
|
If Date.Compare(DTPBord.Value, Today) > 0 Then
|
|
ErrorProvider1.SetError(DTPBord, "The date of born is in the futur." & vbNewLine & "Please insert a valid born date.")
|
|
Validated = False
|
|
End If
|
|
'If Date.Compare(Today, DTPBord.Value) = 0 Then
|
|
' ErrorProvider1.SetError(DTPBord, "The date of born could not be today" & vbNewLine & "Please insert a born date in the past")
|
|
' Validated = False
|
|
'End If
|
|
If String.IsNullOrEmpty(TBAddress.Text) Then
|
|
ErrorProvider1.SetError(LabelAddress, "The address field could not be empty." & vbNewLine & "Please fill this field.")
|
|
Validated = False
|
|
End If
|
|
If (CBMonday.Checked = True Or
|
|
CBTuesday.Checked = True Or
|
|
CBWednesday.Checked = True Or
|
|
CBThursday.Checked = True Or
|
|
CBFriday.Checked = True Or
|
|
CBSunday.Checked = True Or
|
|
CBSunday.Checked = True) And
|
|
newBSID = 0 Then
|
|
|
|
ErrorProvider1.SetError(ButtonBS, "There is no babysitter for the current planning" & vbNewLine & "Please select a baysitter on the list or uncheck all the days.")
|
|
Validated = False
|
|
End If
|
|
|
|
If Not Validated Then
|
|
Exit Sub
|
|
End If
|
|
|
|
' Record
|
|
|
|
|
|
Dim aChild As Child = getChildFromIntern() ' We save the child on the database
|
|
Me.Tag = dbdata.addChild(aChild) ' The new ID of the child is stored in the Me.tag
|
|
If newBSID <> 0 Then
|
|
' save of the child
|
|
meetID = dbdata.addMeet(aChild.meet, Me.Tag)
|
|
' then update of the babysitter
|
|
dbdata.updateBabysitterMeets(meetID, newBSID, getFirstFreeMeetOf(newBSID))
|
|
End If
|
|
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Hide()
|
|
|
|
ElseIf Me.actualFormMode = EDITOR Then 'UPDATE'
|
|
' Error Provider
|
|
If String.IsNullOrEmpty(TBFirstName.Text) Then
|
|
ErrorProvider1.SetError(TBFirstName, "The first name field could not be empty." & vbNewLine & "Please fill this field.")
|
|
Validated = False
|
|
End If
|
|
If String.IsNullOrEmpty(TBLastName.Text) Then
|
|
ErrorProvider1.SetError(TBLastName, "The last name field could not be empty." & vbNewLine & "Please fill this field.")
|
|
Validated = False
|
|
End If
|
|
If Date.Compare(DTPBord.Value, Today) > 0 Then
|
|
ErrorProvider1.SetError(DTPBord, "The date of born is in the futur." & vbNewLine & "Please insert a valid born date.")
|
|
Validated = False
|
|
End If
|
|
'If Date.Compare(Today, DTPBord.Value) = 0 Then
|
|
' ErrorProvider1.SetError(DTPBord, "The date of born could not be today" & vbNewLine & "Please insert a born date in the past")
|
|
' Validated = False
|
|
'End If
|
|
If String.IsNullOrEmpty(TBAddress.Text) Then
|
|
ErrorProvider1.SetError(LabelAddress, "The address field could not be empty." & vbNewLine & "Please fill this field.")
|
|
Validated = False
|
|
End If
|
|
If (CBMonday.Checked = True Or
|
|
CBTuesday.Checked = True Or
|
|
CBWednesday.Checked = True Or
|
|
CBThursday.Checked = True Or
|
|
CBFriday.Checked = True Or
|
|
CBSunday.Checked = True Or
|
|
CBSunday.Checked = True) And
|
|
newBSID = 0 Then
|
|
|
|
ErrorProvider1.SetError(ButtonBS, "There is no babysitter for the current planning" & vbNewLine & "Please select a baysitter on the list or uncheck all the days.")
|
|
Validated = False
|
|
End If
|
|
|
|
If Not Validated Then
|
|
Exit Sub
|
|
End If
|
|
|
|
' Record
|
|
Dim aChild As Child = getChildFromIntern()
|
|
dbdata.editChild(aChild) 'Update of the child data
|
|
'Case 1, there is no choosen BS
|
|
If newBSID <> oldBSID And newBSID = 0 Then
|
|
dbdata.updateBabysitterMeets(0, , , oldBSID, getFirstFreeMeetOf(oldBSID)) 'The babysitter gain a free meet space
|
|
dbdata.deleteMeet(meetID) ' No BS, no keep
|
|
|
|
ElseIf newBSID = oldBSID And oldBSID <> 0 Then
|
|
'Case 2 : The same BS is here
|
|
Dim aMeet As Meet = aChild.meet 'The meet could have change or not between the database and the form, no problem. The Id stay the same.
|
|
dbdata.editMeet(aMeet)
|
|
' No neet to update the BS, because the meet ID stay the same.
|
|
ElseIf newBSID <> oldBSID And newBSID <> 0 And oldBSID <> 0 Then
|
|
' Case 3 : There is a change between old BS and new BS
|
|
Dim aMeet As Meet = aChild.meet 'The meet have change between the database and the form but the Id stay the same.
|
|
dbdata.editMeet(aMeet)
|
|
dbdata.updateBabysitterMeets(meetID, newBSID, getFirstFreeMeetOf(newBSID), oldBSID, getFirstFreeMeetOf(oldBSID)) 'So we need to remove the id from the old BS and add it to the new BS
|
|
ElseIf newBSID <> 0 And oldBSID = 0 Then
|
|
' Case 4 : add a new BS on a existing child
|
|
Dim aMeet As Meet = aChild.meet
|
|
meetID = dbdata.addMeet(aMeet, aChild.id)
|
|
Dim aBS As BabySitter = dbdata.getBabysitterByID(newBSID)
|
|
dbdata.updateBabysitterMeets(meetID, newBSID, getFirstFreeMeetOf(newBSID))
|
|
End If
|
|
|
|
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Hide()
|
|
Else
|
|
'Don't know how to go here...
|
|
Console.WriteLine("FormChildID : Is in standart mode !")
|
|
End If
|
|
End Sub
|
|
|
|
'Cancel
|
|
Protected Overrides Sub ButtonClose_Click(sender As System.Object, e As System.EventArgs)
|
|
Console.WriteLine("FormChildID : Closing instance")
|
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
' Parents selector
|
|
Private Sub ButtonParent1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonParent1.Click
|
|
Dim listofParentForm As FormList = New FormList(PersonType.Parent, ListFormMode.Selector)
|
|
Dim conclusion As DialogResult = listofParentForm.ShowDialog()
|
|
Console.WriteLine("Returned in : " + conclusion.ToString)
|
|
If (conclusion = Windows.Forms.DialogResult.OK) Then
|
|
Dim aParent As Parent = dbdata.getParentByID(listofParentForm.Tag)
|
|
Console.WriteLine("FormChildID : receving " + aParent.toString)
|
|
refreshParent1(aParent)
|
|
Else
|
|
If dbdata.getParentByID(listofParentForm.Tag) Is Nothing Then
|
|
refreshParent2(Nothing)
|
|
End If
|
|
End If
|
|
listofParentForm.Dispose()
|
|
End Sub
|
|
|
|
Private Sub LabelParent1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LabelParent1.LinkClicked
|
|
Dim aParentForm As FormParentID
|
|
If Me.LabelParent1.Tag <> 0 Then
|
|
Dim theParent As Parent = dbdata.getParentByID(Me.LabelParent1.Tag)
|
|
aParentForm = New FormParentID(EDITOR, theParent)
|
|
Else
|
|
aParentForm = New FormParentID(CREATOR)
|
|
End If
|
|
|
|
Dim conclusion As DialogResult = aParentForm.ShowDialog()
|
|
If (conclusion = Windows.Forms.DialogResult.OK) Then
|
|
Dim aParent As Parent = dbdata.getParentByID(aParentForm.Tag)
|
|
Console.WriteLine("FormChildID : receving " + aParent.toString)
|
|
refreshParent1(aParent)
|
|
End If
|
|
aParentForm.Dispose()
|
|
End Sub
|
|
|
|
Private Sub ButtonParent2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonParent2.Click
|
|
Dim listofParentForm As FormList = New FormList(PersonType.Parent, ListFormMode.Selector)
|
|
Dim conclusion As DialogResult = listofParentForm.ShowDialog()
|
|
Console.WriteLine("Returned in : " + conclusion.ToString)
|
|
If (conclusion = Windows.Forms.DialogResult.OK) Then
|
|
Dim aParent As Parent = dbdata.getParentByID(listofParentForm.Tag)
|
|
Console.WriteLine("FormChildID : receving " + aParent.toString)
|
|
refreshParent2(aParent)
|
|
Else
|
|
If dbdata.getParentByID(listofParentForm.Tag) Is Nothing Then
|
|
refreshParent2(Nothing)
|
|
End If
|
|
End If
|
|
listofParentForm.Dispose()
|
|
End Sub
|
|
|
|
Private Sub LabelParent2_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LabelParent2.LinkClicked
|
|
Dim aParentForm As FormParentID
|
|
If Me.LabelParent1.Tag <> 0 Then
|
|
Dim theParent As Parent = dbdata.getParentByID(Me.LabelParent2.Tag)
|
|
aParentForm = New FormParentID(EDITOR, theParent)
|
|
Else
|
|
aParentForm = New FormParentID(CREATOR)
|
|
End If
|
|
Dim conclusion As DialogResult = aParentForm.ShowDialog()
|
|
Console.WriteLine("Returned in : " + conclusion.ToString)
|
|
If (conclusion = Windows.Forms.DialogResult.OK) Then
|
|
Dim aParent As Parent = dbdata.getParentByID(aParentForm.Tag)
|
|
Console.WriteLine("FormChildID : receving " + aParent.toString)
|
|
refreshParent2(aParent)
|
|
End If
|
|
aParentForm.Dispose()
|
|
End Sub
|
|
|
|
|
|
Private Sub ButtonBS_Click(sender As System.Object, e As System.EventArgs) Handles ButtonBS.Click
|
|
Dim aMeet As Meet = getMeet()
|
|
|
|
Dim listBD As FormList = New FormList(PersonType.BabySitter, ListFormMode.SelectFiltered, aMeet)
|
|
Dim conclusion As DialogResult = listBD.ShowDialog()
|
|
If conclusion = Windows.Forms.DialogResult.OK Then
|
|
Dim aBS As BabySitter = dbdata.getBabysitterByID(listBD.Tag)
|
|
Console.WriteLine("FormChildID : receving " + aBS.toString)
|
|
refreshBS(aBS)
|
|
End If
|
|
listBD.Dispose()
|
|
End Sub
|
|
|
|
Private Sub LinkLabelBS_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LabelBS.LinkClicked
|
|
If newBSID <> 0 Then
|
|
Dim aBS As BabySitter = dbdata.getBabysitterByID(newBSID)
|
|
Dim bsForm As FormBabySitterID = New FormBabySitterID(VIEWER, aBS)
|
|
Dim conclusion As DialogResult = bsForm.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DTPBord_ValueChanged(sender As System.Object, e As System.EventArgs) Handles DTPBord.ValueChanged
|
|
Me.LabelAge.Text = DateDiff(DateInterval.Year, DTPBord.Value, Date.Now).ToString + " year(s) old" 'Age
|
|
ErrorProvider1.SetError(DTPBord, "")
|
|
End Sub
|
|
|
|
Private Sub CBWednesday_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CBMonday.CheckedChanged, CBTuesday.CheckedChanged, CBWednesday.CheckedChanged, CBThursday.CheckedChanged, CBFriday.CheckedChanged, CBSaturday.CheckedChanged, CBSunday.CheckedChanged
|
|
|
|
If Me.Visible = True Then
|
|
'On réintialise la babysitter
|
|
refreshBS(Nothing)
|
|
End If
|
|
ErrorProvider1.SetError(ButtonBS, "")
|
|
End Sub
|
|
|
|
End Class
|