Class cBook

'Private, class member variable
Private m_ID
Private m_ISBN
Private m_Title
Private m_SubTitle
Private m_PublishersName
Private m_PublishedYear
Private m_PageCount
Private m_BindingType
Private m_arrAuthors()
Private bln_AuthorsLoaded

'Read the current ID value
Public Property Get ID()
    ID = m_ID
End Property
'store a new ISBN value
Public Property Let ID(p_Data)
    m_ID = p_Data
End Property 

'Read the current ISBN value
Public Property Get ISBN()
    ISBN = m_ISBN
End Property
'store a new ISBN value
Public Property Let ISBN(p_Data)
    m_ISBN = p_Data
End Property 

'store a new Title value
Public Property Let Title(p_Data)
    m_Title = p_Data
End Property 
'Read the current Title value
Public Property Get Title()
    Title = m_Title
End Property


'Read the current SubTitle value
Public Property Get SubTitle()
    SubTitle = m_SubTitle
End Property
'store a new SubTitle value
Public Property Let SubTitle(p_Data)
    m_SubTitle = p_Data
End Property 


'Read the current PublishersName value
Public Property Get PublishersName()
    PublishersName = m_PublishersName
End Property
'store a new PublishersName value
Public Property Let PublishersName(p_Data)
    m_PublishersName=p_Data
End Property


'Read the current PublishedYear value
Public Property Get PublishedYear()
    PublishedYear = m_PublishedYear
End Property
'store a new PublishedYear value
Public Property Let PublishedYear(p_Data)
    m_PublishedYear=p_Data
End Property


'Read the current PageCount value
Public Property Get PageCount()
    PageCount = m_PageCount
End Property
'store a new PageCount value
Public Property Let PageCount(p_Data)
    m_PageCount=p_Data
End Property


'Read the current BindingType value
Public Property Get BindingType()
    if m_BindingType <> "" then 
        BindingType = m_BindingType
    else
        BindingType = "unknown binding type"
    end if    
End Property
'store a new BindingType value
Public Property Let BindingType(p_Data)
    m_BindingType=p_Data
End Property


Public Property Get Authors()
    'Load Authors Here
    bln_AuthorsLoaded = True
End Property


End Class