28 lines
643 B
VB.net
28 lines
643 B
VB.net
Module SharedRessources
|
|
Public dbConnexionString As String
|
|
Public dbdata As SQLManager = New SQLManager()
|
|
|
|
''' <summary>
|
|
'''
|
|
''' </summary>
|
|
''' <param name="id"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function getFirstFreeMeetOf(id As Integer) As Integer
|
|
Dim abs As BabySitter = dbdata.getBabysitterByID(id)
|
|
If abs.meet1 Is Nothing Then
|
|
Return 1
|
|
ElseIf abs.meet2 Is Nothing Then
|
|
Return 2
|
|
ElseIf abs.meet3 Is Nothing Then
|
|
Return 3
|
|
Else
|
|
Return 4
|
|
End If
|
|
End Function
|
|
|
|
|
|
|
|
|
|
End Module
|