Persons.vb

 'Programmed by    :   Rey Sean Adorio Cañeso
'Address          :   28 I.B. Upper Calarian, Zamboanga City, Philippines
'Cell No          :   +639154684127
'
'Persons.vb
'No. of Lines     :   168
'Date Modified    :   03-12-2011
'

Imports System
Imports System.Collections.Generic
Imports System.Text

Public Class Persons

#Region "Objects/Variables"

    Private _firstName As String = ""
    Private _middleName As String = ""
    Private _lastName As String = ""
    Private _gender As String = ""
    Private _civilStatus As String = ""
    Private _birthDate As Date = DateTime.Now
    Private _address As String = ""
    Private _emailAddress As String = ""
    Private _cellNo As String = ""
    Private _telNo As String = ""

#End Region

#Region "Contructors"

    ''' <summary>
    ''' A default contructor for a person class
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()


    End Sub

#End Region

#Region "Accessors"

    ''' <summary>
    ''' Sets or gets the first name
    ''' </summary>
    Public Property FirstName() As String
        Get
            Return Me._firstName
        End Get
        Set(ByVal value As String)
            Me._firstName = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the middle name
    ''' </summary>
    Public Property MiddleName() As String
        Get
            Return Me._middleName
        End Get
        Set(ByVal value As String)
            Me._middleName = value
        End Set
    End Property
      
    ''' <summary>
    ''' Sets or gets the last name
    ''' </summary>
    Public Property LastName() As String
        Get
            Return Me._lastName
        End Get
        Set(ByVal value As String)
            Me._lastName = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the gender
    ''' </summary>
    Public Property Gender() As String
        Get
            Return Me._gender
        End Get
        Set(ByVal value As String)
            Me._gender = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the civil status
    ''' </summary>
    Public Property CivilStatus() As String
        Get
            Return Me._civilStatus
        End Get
        Set(ByVal value As String)
            Me._civilStatus = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the birthdate
    ''' </summary>
    Public Property Birthdate() As Date
        Get
            Return Me._birthDate
        End Get
        Set(ByVal value As Date)
            Me._birthDate = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the address
    ''' </summary>
    Public Property Address() As String
        Get
            Return Me._address
        End Get
        Set(ByVal value As String)
            Me._address = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the email address
    ''' </summary>
    Public Property EmailAddress() As String
        Get
            Return Me._emailAddress
        End Get
        Set(ByVal value As String)
            Me._emailAddress = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the cell no
    ''' </summary>
    Public Property CellNo() As String
        Get
            Return Me._cellNo
        End Get
        Set(ByVal value As String)
            Me._cellNo = value
        End Set
    End Property

    ''' <summary>
    ''' Sets or gets the tel no
    ''' </summary>
    Public Property TelNo() As String
        Get
            Return Me._telNo
        End Get
        Set(ByVal value As String)
            Me._telNo = value
        End Set
    End Property

#End Region

End Class

Project Homepage: