' This is the base class
Public Class emp_data

  'member variables of the class
  Private emp_name As String
  Private emp_address As String
  Private emp_job As String
  Private emp_degree As String
  Private emp_sal As Double
  Private emp_midterm As String
  Private emp_final As String

  'property to get the name
  Public Property name() As String
    Get
      Return emp_name
    End Get
    Set(ByVal value As String)
      emp_name = value
    End Set
  End Property

  'property to get the emp address
  Public Property memp_address() As String
    Get
      Return emp_address
    End Get
    Set(ByVal value As String)
      emp_address = value
    End Set
  End Property

  Public Property memp_job() As String
    Get
      Return emp_job
    End Get
    Set(ByVal value As String)
      emp_job = value
    End Set
  End Property

  Public Property memp_degree() As String
    Get
      Return emp_degree
    End Get
    Set(ByVal value As String)
      emp_degree = value
    End Set
  End Property

  Public Property sal() As String
    Get
      Return emp_sal
    End Get
    Set(ByVal value As String)
      emp_sal = value
    End Set
  End Property

  Public WriteOnly Property midgrade() As String
    Set(ByVal value As String)
      emp_midterm = value
    End Set
  End Property

  Public WriteOnly Property final() As String
    Set(ByVal value As String)
      emp_final = value
    End Set
  End Property

End Class