formscorestudent.dfm

Delphi数据库编程

object frmScoreStudent: TfrmScoreStudent
  Left = 360
  Top = 107
  Width = 540
  Height = 450
  Caption = #23398#29983#25104#32489#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #23398#21495
  end
  object edtStudentID: TEdit
    Left = 48
    Top = 8
    Width = 137
    Height = 21
    MaxLength = 8
    TabOrder = 0
    OnChange = edtStudentIDChange
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 72
    Width = 177
    Height = 185
    Caption = #23398#29983#22522#26412#20449#24687
    TabOrder = 1
    object dbtStudentID: TDBText
      Left = 72
      Top = 24
      Width = 97
      Height = 13
      Color = clBtnHighlight
      DataField = 'StudentID'
      DataSource = dsStudentInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtName: TDBText
      Left = 72
      Top = 48
      Width = 97
      Height = 13
      Color = clBtnHighlight
      DataField = 'Name'
      DataSource = dsStudentInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtSex: TDBText
      Left = 72
      Top = 72
      Width = 97
      Height = 13
      Color = clBtnHighlight
      DataField = 'Sex'
      DataSource = dsStudentInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtBirthday: TDBText
      Left = 72
      Top = 96
      Width = 97
      Height = 13
      Color = clBtnHighlight
      DataField = 'Birthday'
      DataSource = dsStudentInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtClassName: TDBText
      Left = 24
      Top = 136
      Width = 145
      Height = 13
      Color = clBtnHighlight
      DataField = 'ClassName'
      DataSource = dsStudentInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtDepartName: TDBText
      Left = 72
      Top = 160
      Width = 97
      Height = 13
      Color = clBtnHighlight
      DataField = 'DepartName'
      DataSource = dsStudentInfo
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #23398#21495
    end
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #22995#21517
    end
    object Label4: TLabel
      Left = 8
      Top = 72
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #24615#21035
    end
    object Label5: TLabel
      Left = 8
      Top = 96
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #20986#29983#26085#26399
    end
    object Label6: TLabel
      Left = 8
      Top = 120
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #25152#22312#29677#32423
    end
    object Label7: TLabel
      Left = 8
      Top = 160
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #25152#23646#38498#31995
    end
  end
  object dbgScore: TDBGrid
    Left = 192
    Top = 0
    Width = 336
    Height = 417
    DataSource = dsScore
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CourseName'
        Title.Alignment = taCenter
        Title.Caption = #35838#31243#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Score'
        Title.Alignment = taCenter
        Title.Caption = #25104#32489
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Teacher'
        Title.Alignment = taCenter
        Title.Caption = #20219#35838#32769#24072
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Credit'
        Title.Alignment = taCenter
        Title.Caption = #23398#20998
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Period'
        Title.Alignment = taCenter
        Title.Caption = #23398#26102#25968
        Width = 44
        Visible = True
      end>
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 264
    Width = 177
    Height = 153
    Caption = #23398#29983#25104#32489#32479#35745
    TabOrder = 3
    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 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 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 Label8: TLabel
      Left = 8
      Top = 24
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #26368#39640#20998
    end
    object Label9: TLabel
      Left = 8
      Top = 48
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #26368#20302#20998
    end
    object Label10: TLabel
      Left = 8
      Top = 72
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #24179#22343#20998
    end
    object dbtCourses: TDBText
      Left = 88
      Top = 96
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Courses'
      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 Label11: TLabel
      Left = 8
      Top = 96
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #32771#35797#38376#25968
    end
    object dbtFaults: TDBText
      Left = 88
      Top = 120
      Width = 81
      Height = 13
      Color = clBtnHighlight
      DataField = 'Courses'
      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 Label12: TLabel
      Left = 8
      Top = 120
      Width = 73
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #19981#21450#26684#38376#25968
    end
  end
  object btnQuit: TButton
    Left = 112
    Top = 40
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = btnQuitClick
  end
  object qryScore: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      
        'SELECT Course.CourseName, Score.Score, Course.Teacher, Course.Pe' +
        'riod, Course.Credit'
      'FROM Score Score, Course Course'
      'WHERE  (Course.CourseID = Score.CourseID)  '
      '   AND  (Score.StudentID = :StudentID ) ')
    Left = 440
    Top = 152
    ParamData = <
      item
        DataType = ftString
        Name = 'StudentID'
        ParamType = ptUnknown
        Value = '01010101'
      end>
  end
  object qryStudentInfo: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      
        'SELECT Student.Name, Student.Sex, Student.Birthday, Class.ClassN' +
        'ame, Department.DepartName, Student.StudentID'
      'FROM Student Student, Class Class, Department Department'
      'WHERE  (Class.ClassID = Student.ClassID)  '
      '   AND  (Department.DepartID = Class.DepartID)  '
      '   AND  (Student.StudentID = :StudentID ) ')
    Left = 440
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'StudentID'
        ParamType = ptUnknown
        Value = '01010101'
      end>
  end
  object qryScoreStat: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      
        'SELECT Count(*) AS Courses, MAX( Score ) AS MAXScore, MIN( Score' +
        ' ) AS MinScore, AVG( Score ) AS AvgScore'
      'FROM Score Score'
      'WHERE  StudentID = :StudentID ')
    Left = 440
    Top = 232
    ParamData = <
      item
        DataType = ftString
        Name = 'StudentID'
        ParamType = ptUnknown
        Value = '01010101'
      end>
  end
  object dsStudentInfo: TDataSource
    DataSet = qryStudentInfo
    Left = 440
    Top = 104
  end
  object dsScoreStat: TDataSource
    DataSet = qryScoreStat
    Left = 440
    Top = 264
  end
  object dsScore: TDataSource
    DataSet = qryScore
    Left = 440
    Top = 184
  end
  object qryScoreFault: TQuery
    DatabaseName = 'DBCourse'
    SQL.Strings = (
      'SELECT Count(*) AS Courses '
      'FROM Score Score'
      'WHERE  Score < 60'
      ' AND StudentID = :StudentID ')
    Left = 440
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'StudentID'
        ParamType = ptUnknown
        Value = '01010101'
      end>
  end
  object dsScoreFault: TDataSource
    DataSet = qryScoreFault
    Left = 440
    Top = 344
  end
end