TeamVision

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.3082
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Text

'*************************************************************
' Class Name:  Person
' Purpose:  Plain vanilla class that Models the underlying datatable structure
' Description: 
'***************************************************************
Namespace Models
    
    <DataObjectAttribute(),  _
     Serializable()>  _
    Public Class Person
        Inherits Common.Model
        
        Private m_PersonID As Integer = -1
        
        Private m_Name As String = "--"
        
        Public Sub New()
            MyBase.New
        End Sub
        
        Public Sub New(ByVal PersonID As Integer, ByVal Name As String)
            MyBase.New
            Me.m_PersonID = PersonID
            Me.m_Name = Name
        End Sub
        
        <DataObjectField(true, true, false)>  _
        Public Property PersonID() As Integer
            Get
                Return m_PersonID
            End Get
            Set
                m_PersonID = value
            End Set
        End Property
        
        Public Overrides Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = value
            End Set
        End Property
        
        Public Overrides ReadOnly Property PrimaryID() As Integer
            Get
                Return m_PersonID
            End Get
        End Property
    End Class
End Namespace