VBA Property Chaining?

Question

Если вы можете использовать метод формирования цепочки, чтобы получить до результатов, таких как линия ниже

cReportcard.student("doe").Metric("math").score 

Как вы принять имущество обратно вниз по цепочке?

У меня есть коллекция пользовательских классов для предметов (например, математика, языковые искусства, pe ...). У пользовательского класса есть ученик, оценка, учитель, класс, период.

Как

cReportcard.student("doe").Metric("math").score=0.96 

и иметь цепочку назад к коллекции класса происходящего?

Я предполагаю, что это что-то похожее на «родительское» свойство класса Worksheet. Я просто не могу понять, как это сделать.

До сих пор я разработал схему таблицы с 4-мя столами (Student, метрические, уклонов периоды)

Student(ID [pk], NAME, DOB) 
Metric (ID [pk], NAME) 
Period (ID [pk], METRIC_ID [fk], GRADE_LEVEL, START_TIME, LENGTH, CLASS_RM, TEACHER_ID [fk]) 
Grade (ID [pk], PERIOD_END_DATE, PERIOD_ID [fk], STUDENT_ID [fk], METRIC_SCORE 

)

Answer 1

Я думаю, что вы можете положить немного больше времени в определении ваши конкретные варианты использования, чтобы убедиться, что эти таблицы быстро позволят вам выполнять любые операции, которые вам понадобятся. Но если предположить, что это окончательная структура, я бы дизайн классов, как это:

clsGrade:

'It would be better to have them all private and provide get/set properties 
Private ID As Long 
Public Student As clsStudent 
Public Period As clsPeriod 
Public Period_End_Date As Date 
Public Metric_Score As Long 

'This assumes that, per your example, the only fields necessary to find a "grade" are student name and metric 
Public Sub Load(studentName As String, Metric As String) 
    Dim rs As Recordset 
    'SQL query to get the grade for a particular student/metric 

    Set Student = New clsStudent 
    Student.Load rs!STUDENT_ID 

    Set Period = New clsPeriod 
    Period.Load rs!PERIOD_ID 

End Sub 

Public Sub Save() 
    'SQL query to save the grade 

    'You would have to decide whether or not this cascades and saves the Student/Period/Metric info as well. 
    Student.Save 
    Period.Save 
End Sub 

clsMetric:

'It would be better to have them all private and provide get/set properties 
Private ID As Long 
Public Name As String 

Public Sub Load(ID As Long) 
    'SQL to load a metric by ID 
End Sub 

Public Sub Save() 
    'SQL to save the metric 
End Sub 

clsPeriod:

'It would be better to have them all private and provide get/set properties 
Private ID As Long 
Public Metric As clsMetric 
Public Grade_Level As Long 
Public Start_Time As Date 
Public Length As Date 
Public Class_Rm As String 
Public Teacher_ID As Long 

Public Sub Load(ID As Long) 
    Dim rs As Recordset 
    'SQL to load a period by ID 

    'Also load the child metric 
    Set Metric = New clsMetric 
    Metric.Load rs!METRIC_ID 

End Sub 

Public Sub Save() 
    'SQL to save the period 

    'Also save the child metric 
    Metric.Save 
End Sub 

clsStudent:

'It would be better to have them all private and provide get/set properties 
Private ID As Long 
Public Name As String 
Public DOB As Date 

Public Sub Load(ID As Long) 
    'SQL to load a student by ID 
End Sub 

Public Sub Save() 
    'SQL to save the student 
End Sub 

И тогда вы могли бы использовать их так:

Public Sub Main() 
    Dim grade As clsGrade 
    Set grade = New clsGrade 
    grade.Load "doe", "math" 
    grade.Metric_Score = 0.96 
    grade.Save 
End Sub 

Если вы хотите, чтобы оптимизировать его и получить фантазии, вы можете сделать Get/Пусть Свойства и добавить «грязный» бит для каждого класса, чтобы сохранить отслеживать, изменилось ли что-либо с момента его загрузки или нет. Таким образом, вы не сохраняете информацию, которая не изменилась.