Question about Inheritance in classes
I have a question about inherited classes. I have a class Days which has properties of days worked. I also have a class Hours which has properties of hours worked. (This might become more clear in the below code).
What I want is to create a Class called "ExemptEmployee", which inherits the Days class, and then set the properties contained in Days from within a method in the ExemptEmployee class. But when I type the "Me" keyword it doesn't work out. Can someone tell me if I'm on the right track with this? TIA!
================================================== =
Public Class ExemptEmployee
Inherits Days
Public Shared Sub FetchExemptEmployeeDays()
'sql fetch which gets the employee days from the Days table in
'the Timesheet database
Dim strSQL as String = "SELECT Regular_Days, Vacation_Days, Sick_Days, " & _
"Jury_Days, Funeral_Days, Holiday_Days, Unpaid_Days FROM " & _
"Days WHERE SSN = '" & s_SSN & "' AND Pay_Period_Number = " & s_PayPeriodNumber
Dim oConn as New SqlConnection(DSN.FetchDSN(DSN.DataBaseName.Timesh eet))
Dim oCmd as New SqlCommand
Dim oReader as SqlDataReader
With oCmd
.Connection.Open()
.CommandText=strSQL
.CommandType=CommandType.Text
.Connection=oConn
oReader = oCmd.ExecuteReader
While oReader.Read
'IN THIS LOOP I WANT TO SET PROPERTIES WHICH WOULD BE INHERITED FROM THE DAYS CLASS.
End While
End With
End Sub
End Class
================================================== ===========
Public Class Days
'regular days
Private dRegularDays as Integer
'vacation days
Private dVacationDays as Integer
'sick days
Private dSickDays as Integer
'holiday days
Private dHolidayDays as Integer
'jury
Private dJuryDays as Integer
'funeral
Private dFuneralDays as Integer
'Duty days
Private dDutyDays as Integer
'Duty weekends
Private dDutyWeekends as Integer
#Region " Property declarations "
Public Property RegularDays as Integer
Get
RegularDays = dRegularDays
End Get
Set
dRegularDays = Value
End Set
End Property
Public Property VacationDays as Integer
Get
VacationDays = dVacationDays
End Get
Set
dVacationDays = Value
End Set
End Property
Public Property SickDays as Integer
Get
SickDays = dSickDays
End Get
Set
dSickDays = Value
End Set
End Property
Public Property HolidayDays as Double
Get
HolidayDays = dHolidayDays
End Get
Set
dHolidayDays = Value
End Set
End Property
Public Property JuryDays as Double
Get
JuryDays = dJuryDays
End Get
Set
dJuryDays = Value
End Set
End Property
Public Property FuneralDays as Double
Get
FuneralDays = dFuneralDays
End Get
Set
dFuneralDays = Value
End Set
End Property
Public Property DutyDays as Integer
Get
DutyDays = dDutyDays
End Get
Set
dDutyDays = Value
End Set
End Property
Public Property DutyWeekends as Integer
Get
DutyWeekends = dDutyWeekends
End Get
Set
dDutyWeekends = Value
End Set
End Property
#End Region
End Class
"A spirit with a vision is a dream with a mission"
__________________
\"A spirit with a vision is a dream with a mission\"
|
