studentsystem.dfm

学校管理系统,本管理系统与一般管理系统的区别就是：一般管理系统的后台数据库是用Access或sql server进行前台界面设计软件与后台数据库中的数据表的数据相连接。而此管理系统是用Delphi 6

      end
      object B_del: TButton
        Left = 256
        Top = 192
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 5
        OnClick = B_delClick
      end
      object DBGrid1: TDBGrid
        Left = 352
        Top = 48
        Width = 353
        Height = 337
        DataSource = DS_course_selected
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 6
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Alignment = taCenter
            Title.Caption = #35838#31243#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Alignment = taCenter
            Title.Caption = #35838#31243#21517#31216
            Width = 61
            Visible = True
          end>
      end
      object B_print: TButton
        Left = 488
        Top = 16
        Width = 75
        Height = 25
        Caption = #25171#21360#35838#34920
        TabOrder = 7
        OnClick = B_printClick
      end
      object Button1: TButton
        Left = 256
        Top = 80
        Width = 75
        Height = 25
        Caption = #21152#20837'>>'
        TabOrder = 8
        OnClick = Button1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810#25104#32489
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label11: TLabel
        Left = 24
        Top = 24
        Width = 265
        Height = 13
        AutoSize = False
        Caption = #24050#20462#23436#35838#31243#21015#34920#22914#19979#65306
      end
      object DBGrid2: TDBGrid
        Left = 16
        Top = 48
        Width = 321
        Height = 329
        DataSource = DS_course_learned
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Alignment = taCenter
            Title.Caption = #35838#31243#32534#21495
            Width = 83
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Alignment = taCenter
            Title.Caption = #35838#31243#21517#31216
            Width = 170
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 360
        Top = 16
        Width = 337
        Height = 361
        Caption = #26399#26411#25104#32489#32479#35745#65288#26399#26411#25945#24072#36755#20837#25104#32489#21333#21518#65292#20415#21487#26597#30475#65289#65306
        TabOrder = 1
        object Label12: TLabel
          Left = 56
          Top = 64
          Width = 60
          Height = 13
          Caption = #20320#30340#25104#32489#65306
        end
        object Label13: TLabel
          Left = 32
          Top = 144
          Width = 84
          Height = 13
          Caption = #26412#35838#26368#39640#25104#32489#65306
        end
        object Label14: TLabel
          Left = 32
          Top = 224
          Width = 84
          Height = 13
          Caption = #26412#35838#24179#22343#25104#32489#65306
        end
        object Label15: TLabel
          Left = 32
          Top = 312
          Width = 84
          Height = 13
          Caption = #26412#35838#26368#20302#25104#32489#65306
        end
        object DBEdit8: TDBEdit
          Left = 144
          Top = 56
          Width = 121
          Height = 21
          DataField = 'SCORE'
          DataSource = DS_course_learned
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 0
        end
        object DBEdit9: TDBEdit
          Left = 144
          Top = 136
          Width = 121
          Height = 21
          DataField = 'MAX'
          DataSource = DS_score_max
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 1
        end
        object DBEdit10: TDBEdit
          Left = 144
          Top = 216
          Width = 121
          Height = 21
          DataField = 'AVG'
          DataSource = DS_score_avg
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 2
        end
        object DBEdit11: TDBEdit
          Left = 144
          Top = 304
          Width = 121
          Height = 21
          DataField = 'MIN'
          DataSource = DS_score_min
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 3
        end
      end
    end
  end
  object T_course_info: TTable
    DatabaseName = 'mydatabase'
    TableName = 'COURSE'
    Left = 768
    Top = 48
  end
  object DS_course_info: TDataSource
    DataSet = T_course_info
    Left = 768
    Top = 72
  end
  object T_teacher: TTable
    DatabaseName = 'mydatabase'
    IndexFieldNames = 'ID'
    MasterFields = 'TEACHER'
    MasterSource = DS_course_info
    TableName = 'TEACHER'
    Left = 768
    Top = 96
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Left = 768
    Top = 120
  end
  object Q_total_credit_hour: TQuery
    Active = True
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT SUM(COURSE.CREDIT_HOUR) FROM COURSE_SELECT,COURSE'
      'WHERE COURSE_SELECT.STUDENT=:STUDENT AND'
      'COURSE_SELECT.COURSE=COURSE.ID')
    Left = 768
    Top = 144
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptInput
      end>
  end
  object T_student: TTable
    DatabaseName = 'mydatabase'
    TableName = 'STUDENT'
    Left = 768
    Top = 176
  end
  object DS_total_credit_hour: TDataSource
    DataSet = Q_total_credit_hour
    Left = 768
    Top = 200
  end
  object Q_course_selected: TQuery
    Active = True
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT COURSE_SELECT.ID AS SEL_ID,COURSE.ID,COURSE.NAME'
      'FROM COURSE,COURSE_SELECT'
      'WHERE COURSE_SELECT.STUDENT=:STUDENT'
      'AND COURSE_SELECT.COURSE=COURSE.ID'
      'ORDER BY COURSE.ID')
    Left = 768
    Top = 224
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptInput
      end>
  end
  object DS_course_selected: TDataSource
    DataSet = Q_course_selected
    Left = 768
    Top = 248
  end
  object Q_select: TQuery
    DatabaseName = 'mydatabase'
    Left = 768
    Top = 280
  end
  object T_counter_X: TTable
    Active = True
    DatabaseName = 'mydatabase'
    Filter = 'ID='#39'X'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 768
    Top = 304
  end
  object Q_course_learned: TQuery
    Active = True
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT SCORE.SCORE,COURSE.ID,COURSE.NAME'
      'FROM SCORE,COURSE'
      'WHERE SCORE.STUDENT=:STUDENT'
      'AND SCORE.COURSE=COURSE.ID')
    Left = 808
    Top = 48
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptUnknown
      end>
  end
  object DS_course_learned: TDataSource
    DataSet = Q_course_learned
    Left = 808
    Top = 80
  end
  object Q_score_max: TQuery
    Active = True
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT MAX(SCORE)'
      'FROM SCORE'
      'WHERE COURSE=:COURSE')
    Left = 808
    Top = 104
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object DS_score_max: TDataSource
    DataSet = Q_score_max
    Left = 808
    Top = 128
  end
  object Q_score_avg: TQuery
    Active = True
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT AVG(SCORE)'
      'FROM SCORE'
      'WHERE COURSE=:COURSE')
    Left = 808
    Top = 152
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object DS_score_avg: TDataSource
    DataSet = Q_score_avg
    Left = 808
    Top = 184
  end
  object Q_score_min: TQuery
    Active = True
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      'SELECT MIN(SCORE)'
      'FROM SCORE'
      'WHERE COURSE=:COURSE')
    Left = 808
    Top = 224
    ParamData = <
      item
        DataType = ftString
        Name = 'course'
        ParamType = ptInput
      end>
  end
  object DS_score_min: TDataSource
    DataSet = Q_score_min
    Left = 808
    Top = 256
  end
end