u_main.~dfm

教学管理系统 数据库系列

object F_main: TF_main
  Left = 221
  Top = 154
  Width = 631
  Height = 439
  Caption = 'F_main'
  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 PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 609
    Height = 393
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '选课'
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 32
        Top = 16
        Width = 70
        Height = 13
        Caption = '课程编号：'
      end
      object Label9: TLabel
        Left = 352
        Top = 16
        Width = 70
        Height = 13
        Caption = '已选课程：'
      end
      object Label10: TLabel
        Left = 240
        Top = 224
        Width = 56
        Height = 13
        Caption = '总学分：'
      end
      object i_course_id: TEdit
        Left = 96
        Top = 12
        Width = 81
        Height = 21
        TabOrder = 0
        OnChange = i_course_idChange
      end
      object GroupBox1: TGroupBox
        Left = 24
        Top = 40
        Width = 185
        Height = 313
        Caption = '课程信息'
        TabOrder = 3
        object Label2: TLabel
          Left = 16
          Top = 32
          Width = 42
          Height = 13
          Caption = '名称：'
        end
        object Label3: TLabel
          Left = 16
          Top = 56
          Width = 42
          Height = 13
          Caption = '教师：'
        end
        object Label4: TLabel
          Left = 16
          Top = 80
          Width = 42
          Height = 13
          Caption = '学分：'
        end
        object Label5: TLabel
          Left = 16
          Top = 104
          Width = 42
          Height = 13
          Caption = '学时：'
        end
        object Label6: TLabel
          Left = 16
          Top = 128
          Width = 70
          Height = 13
          Caption = '上课地点：'
        end
        object Label7: TLabel
          Left = 16
          Top = 168
          Width = 70
          Height = 13
          Caption = '上课时间：'
        end
        object Label8: TLabel
          Left = 16
          Top = 208
          Width = 42
          Height = 13
          Caption = '简介：'
        end
        object DBEdit2: TDBEdit
          Left = 56
          Top = 28
          Width = 105
          Height = 21
          DataField = 'NAME'
          DataSource = DS_course_info
          TabOrder = 0
        end
        object DBEdit3: TDBEdit
          Left = 56
          Top = 52
          Width = 105
          Height = 21
          DataField = 'NAME'
          DataSource = DS_teacher
          TabOrder = 1
        end
        object DBEdit4: TDBEdit
          Left = 56
          Top = 76
          Width = 105
          Height = 21
          DataField = 'CREDIT_HOUR'
          DataSource = DS_course_info
          TabOrder = 2
        end
        object DBEdit5: TDBEdit
          Left = 56
          Top = 100
          Width = 105
          Height = 21
          DataField = 'PERIOD'
          DataSource = DS_course_info
          TabOrder = 3
        end
        object DBEdit6: TDBEdit
          Left = 16
          Top = 144
          Width = 153
          Height = 21
          DataField = 'CLASSROOM'
          DataSource = DS_course_info
          TabOrder = 4
        end
        object DBEdit7: TDBEdit
          Left = 16
          Top = 184
          Width = 153
          Height = 21
          DataField = 'CLASSTIME'
          DataSource = DS_course_info
          TabOrder = 5
        end
        object DBMemo1: TDBMemo
          Left = 16
          Top = 224
          Width = 153
          Height = 73
          DataField = 'INTRO'
          DataSource = DS_course_info
          TabOrder = 6
        end
      end
      object DBGrid1: TDBGrid
        Left = 336
        Top = 40
        Width = 249
        Height = 313
        DataSource = DS_course_selected
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = '课程编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '课程名称'
            Visible = True
          end>
      end
      object B_add: TButton
        Left = 232
        Top = 88
        Width = 75
        Height = 25
        Caption = '加入>>'
        TabOrder = 1
        OnClick = B_addClick
      end
      object B_del: TButton
        Left = 232
        Top = 152
        Width = 75
        Height = 25
        Caption = '<<删除'
        TabOrder = 2
        OnClick = B_delClick
      end
      object DBEdit1: TDBEdit
        Left = 224
        Top = 256
        Width = 97
        Height = 21
        DataField = 'SUM'
        DataSource = DS_total_credit_hour
        TabOrder = 5
      end
      object B_show: TButton
        Left = 184
        Top = 10
        Width = 81
        Height = 25
        Caption = '显示课程信息'
        Default = True
        TabOrder = 6
        OnClick = B_showClick
      end
      object B_print: TButton
        Left = 464
        Top = 8
        Width = 75
        Height = 25
        Caption = '打印课表'
        TabOrder = 7
        OnClick = B_printClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = '查询成绩'
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label11: TLabel
        Left = 56
        Top = 24
        Width = 98
        Height = 13
        Caption = '已学课程列表：'
      end
      object DBGrid2: TDBGrid
        Left = 40
        Top = 48
        Width = 273
        Height = 297
        DataSource = DS_course_learned
        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.Caption = '课程编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '课程名称'
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 336
        Top = 24
        Width = 225
        Height = 321
        Caption = '成绩统计'
        TabOrder = 1
        object Label12: TLabel
          Left = 32
          Top = 48
          Width = 70
          Height = 13
          Caption = '你的成绩：'
        end
        object Label13: TLabel
          Left = 32
          Top = 104
          Width = 98
          Height = 13
          Caption = '本课最高成绩：'
        end
        object Label14: TLabel
          Left = 32
          Top = 168
          Width = 98
          Height = 13
          Caption = '本课平均成绩：'
        end
        object Label15: TLabel
          Left = 32
          Top = 232
          Width = 98
          Height = 13
          Caption = '本课最低成绩：'
        end
        object DBEdit8: TDBEdit
          Left = 48
          Top = 72
          Width = 121
          Height = 21
          DataField = 'SCORE'
          DataSource = DS_course_learned
          TabOrder = 0
        end
        object DBEdit9: TDBEdit
          Left = 48
          Top = 128
          Width = 121
          Height = 21
          DataField = 'MAX'
          DataSource = DS_score_max
          TabOrder = 1
        end
        object DBEdit10: TDBEdit
          Left = 48
          Top = 192
          Width = 121
          Height = 21
          DataField = 'AVG'
          DataSource = DS_score_avg
          TabOrder = 2
        end
        object DBEdit11: TDBEdit
          Left = 48
          Top = 264
          Width = 121
          Height = 21
          DataField = 'MIN'
          DataSource = DS_score_min
          TabOrder = 3
        end
      end
    end
  end
  object DS_course_info: TDataSource
    DataSet = T_course_info
    Left = 4
    Top = 96
  end
  object T_course_info: TTable
    DatabaseName = 'MyDatabase'
    ReadOnly = True
    TableName = 'COURSE'
    Left = 4
    Top = 64
  end
  object T_teacher: TTable
    DatabaseName = 'MyDatabase'
    IndexFieldNames = 'ID'
    MasterFields = 'TEACHER'
    MasterSource = DS_course_info
    ReadOnly = True
    TableName = 'TEACHER'
    Left = 4
    Top = 192
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Left = 4
    Top = 224
  end
  object DS_course_selected: TDataSource
    DataSet = Q_course_selected
    Left = 4
    Top = 160
  end
  object Q_course_selected: TQuery
    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 = 4
    Top = 128
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptInput
      end>
  end
  object T_counter_X: TTable
    DatabaseName = 'MyDatabase'
    Filter = 'ID='#39'X'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 4
    Top = 288
  end
  object Q_total_credit_hour: TQuery
    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 = 4
    Top = 320
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptInput
      end>
  end
  object DS_total_credit_hour: TDataSource
    DataSet = Q_total_credit_hour
    Left = 4
    Top = 352
  end
  object Q_select: TQuery
    DatabaseName = 'MyDatabase'
    Left = 4
    Top = 256
  end
  object T_student: TTable
    DatabaseName = 'MyDatabase'
    TableName = 'STUDENT'
    Left = 4
    Top = 32
  end
  object Q_course_learned: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      'SELECT SCORE.SCORE, COURSE.ID, COURSE.NAME'
      'FROM SCORE, COURSE'
      'WHERE SCORE.STUDENT=:STUDENT'
      'AND SCORE.COURSE=COURSE.ID')
    Left = 580
    Top = 40
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptUnknown
      end>
  end
  object DS_course_learned: TDataSource
    DataSet = Q_course_learned
    Left = 580
    Top = 72
  end
  object Q_score_max: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      'SELECT MAX(SCORE)'
      'FROM SCORE'
      'WHERE COURSE=:COURSE')
    Left = 580
    Top = 112
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object DS_score_max: TDataSource
    DataSet = Q_score_max
    Left = 580
    Top = 144
  end
  object Q_score_avg: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      'SELECT AVG(SCORE)'
      'FROM SCORE'
      'WHERE COURSE=:COURSE')
    Left = 580
    Top = 184
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object DS_score_avg: TDataSource
    DataSet = Q_score_avg
    Left = 580
    Top = 216
  end
  object DS_score_min: TDataSource
    DataSet = Q_score_min
    Left = 580
    Top = 296
  end
  object Q_score_min: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      'SELECT MIN(SCORE)'
      'FROM SCORE'
      'WHERE COURSE=:COURSE')
    Left = 580
    Top = 264
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
end