resultsbyassignment.dsr

数据库

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptResultsByAssignment 
   Caption         =   "Results By Assignment"
   ClientHeight    =   14955
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   19080
   StartUpPosition =   3  'Windows Default
   _ExtentX        =   33655
   _ExtentY        =   26379
   SectionData     =   "ResultsByAssignment.dsx":0000
End
Attribute VB_Name = "rptResultsByAssignment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ActiveReport_Initialize()
    dcRptData.DatabaseName = App.Path & "\Students And Classes.mdb"
End Sub

Private Sub Detail_AfterPrint()
    TOC.Add txtClassName.Text & "\" & txtAssignment.Text & "\" & txtStudentName.Text
End Sub

Private Sub Detail_Format()
    shpScore.Width = (lblChart.Width * dcRptData.Recordset.Fields("Score").Value) / dcRptData.Recordset.Fields("MaximumPoints").Value
End Sub

Private Sub ghAssignment_AfterPrint()
    TOC.Add txtClassName.Text & "\" & txtAssignment.Text
End Sub

Private Sub ghClassID_AfterPrint()
    TOC.Add txtClassName.Text
End Sub

Private Sub PageFooter_Format()
    lblDate = Format$(Now, "Long Date")
    lblPage = "Page " & Str(Me.pageNumber)
End Sub