formscoreclass.dfm

Delphi数据库编程

      AutoSize = False
      Caption = #23398#20998
    end
    object dbtCredit: TDBText
      Left = 64
      Top = 104
      Width = 113
      Height = 13
      Color = clBtnHighlight
      DataField = 'Credit'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label12: TLabel
      Left = 8
      Top = 128
      Width = 54
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #23398#26102#25968
    end
    object dbtPeriod: TDBText
      Left = 64
      Top = 128
      Width = 113
      Height = 13
      Color = clBtnHighlight
      DataField = 'Period'
      DataSource = dsCourseInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox3: TGroupBox
    Left = 200
    Top = 360
    Width = 185
    Height = 145
    Caption = #35838#31243#32771#35797#20998#26512
    TabOrder = 5
    object Label13: TLabel
      Left = 8
      Top = 24
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #26368#39640#20998
    end
    object dbtMaxScore: TDBText
      Left = 88
      Top = 24
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'MaxScore'
      DataSource = dsScoreStat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label14: TLabel
      Left = 8
      Top = 48
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #26368#20302#20998
    end
    object dbtMinScore: TDBText
      Left = 88
      Top = 48
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'MinScore'
      DataSource = dsScoreStat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label15: TLabel
      Left = 8
      Top = 72
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #24179#22343#20998
    end
    object dbtAvgScore: TDBText
      Left = 88
      Top = 72
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'AvgScore'
      DataSource = dsScoreStat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label16: TLabel
      Left = 8
      Top = 120
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #19981#21450#26684#20154#25968
    end
    object dbtFaults: TDBText
      Left = 88
      Top = 120
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Students'
      DataSource = dsScoreFault
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label17: TLabel
      Left = 8
      Top = 96
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #32771#35797#20154#25968
    end
    object dbtCourses: TDBText
      Left = 88
      Top = 96
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Students'
      DataSource = dsScoreStat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
  end
  object tblClass: TTable
    AfterOpen = tblClassAfterOpen
    AfterScroll = tblClassAfterScroll
    DatabaseName = 'DBCourse'
    TableName = 'Class'
    Left = 48
    Top = 64
  end
  object qryClassInfo: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      
        'SELECT Class.ClassID, Class.ClassName, Class.BeginDate, Class.Ma' +
        'ster, Department.DepartName, Department.DepartHead'
      'FROM Class Class, Department Department'
      'WHERE  Department.DepartID = Class.DepartID'
      '   AND Class.ClassID = :ClassID ')
    Left = 48
    Top = 264
    ParamData = <
      item
        DataType = ftString
        Name = 'ClassID'
        ParamType = ptUnknown
        Value = '010101'
      end>
  end
  object dsClassInfo: TDataSource
    DataSet = qryClassInfo
    Left = 112
    Top = 264
  end
  object dsClass: TDataSource
    DataSet = tblClass
    Left = 96
    Top = 64
  end
  object qryScore: TQuery
    Active = True
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT Student.StudentID, Student.Name, Score.Score'
      'FROM Score Score, Student Student'
      'WHERE  (Score.StudentID = Student.StudentID)  '
      '   AND  ( (Score.CourseID = :CourseID )  '
      '   AND  (Student.ClassID = :ClassID) ) '
      'ORDER BY Student.StudentID')
    Left = 416
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000002'
      end
      item
        DataType = ftString
        Name = 'ClassID'
        ParamType = ptUnknown
        Value = '010101'
      end>
  end
  object qryCourse: TQuery
    AfterOpen = qryCourseAfterOpen
    AfterScroll = qryCourseAfterScroll
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT Course.CourseID, Course.CourseName'
      'FROM CourseSelect Courseselect, Course Course'
      'WHERE  (Course.CourseID = Courseselect.CourseID)  '
      '   AND  (Courseselect.ClassID = :ClassID) ')
    Left = 240
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'ClassID'
        ParamType = ptUnknown
        Value = '010101'
      end>
  end
  object dsCourse: TDataSource
    DataSet = qryCourse
    Left = 296
    Top = 72
  end
  object qryCourseInfo: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT CourseID, CourseName, Credit, Period, Teacher'
      'FROM Course Course'
      'WHERE  CourseID = :CourseID  ')
    Left = 424
    Top = 216
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000001'
      end>
  end
  object dsCourseInfo: TDataSource
    DataSet = qryCourseInfo
    Left = 496
    Top = 216
  end
  object qryScoreStat: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      
        'SELECT COUNT( * ) AS Students, MAX( Score.Score ) AS MaxScore, M' +
        'IN( Score.Score ) AS MinScore, AVG( Score.Score ) AS AvgScore'
      'FROM Score Score, Student Student'
      'WHERE  (Score.StudentID = Student.StudentID)  '
      '   AND  ( (Score.CourseID = :CourseID)  '
      '   AND  (Student.ClassID = :ClassID) ) ')
    Left = 424
    Top = 368
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000002'
      end
      item
        DataType = ftString
        Name = 'ClassID'
        ParamType = ptUnknown
        Value = '010101'
      end>
  end
  object dsScoreStat: TDataSource
    DataSet = qryScoreStat
    Left = 496
    Top = 368
  end
  object qryScoreFault: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT COUNT( * ) AS Students'
      'FROM Score Score, Student Student'
      'WHERE  (Score.StudentID = Student.StudentID)  '
      '   AND (Score.Score < 60)'
      '   AND  ( Score.CourseID = :CourseID )  '
      '   AND  (Student.ClassID = :ClassID ) ')
    Left = 424
    Top = 448
    ParamData = <
      item
        DataType = ftString
        Name = 'CourseID'
        ParamType = ptUnknown
        Value = '2004000002'
      end
      item
        DataType = ftString
        Name = 'ClassID'
        ParamType = ptUnknown
        Value = '010101'
      end>
  end
  object dsScoreFault: TDataSource
    DataSet = qryScoreFault
    Left = 496
    Top = 448
  end
  object dsScore: TDataSource
    DataSet = qryScore
    Left = 472
    Top = 72
  end
end