u_main.dfm

教学管理系统 数据库系列

        Height = 369
        DataSource = DS_course_select
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBGrid6: TDBGrid
        Left = 392
        Top = 32
        Width = 257
        Height = 369
        DataSource = DS_score
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button1: TButton
        Left = 280
        Top = 176
        Width = 105
        Height = 49
        Caption = '转移全部结果>>'
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = '成绩单'
      ImageIndex = 2
      object Label11: TLabel
        Left = 48
        Top = 24
        Width = 60
        Height = 13
        Caption = '课程编号：'
      end
      object Label12: TLabel
        Left = 344
        Top = 24
        Width = 48
        Height = 13
        Caption = '成绩单：'
      end
      object Label18: TLabel
        Left = 48
        Top = 64
        Width = 60
        Height = 13
        Caption = '课程名称：'
      end
      object i_course_id: TEdit
        Left = 120
        Top = 20
        Width = 89
        Height = 21
        TabOrder = 0
      end
      object DBGrid4: TDBGrid
        Left = 328
        Top = 48
        Width = 305
        Height = 345
        DataSource = DS_score_list
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object GroupBox2: TGroupBox
        Left = 40
        Top = 104
        Width = 249
        Height = 233
        Caption = '统计信息'
        TabOrder = 2
        object Label13: TLabel
          Left = 24
          Top = 32
          Width = 60
          Height = 13
          Caption = '课程人数：'
        end
        object Label14: TLabel
          Left = 24
          Top = 72
          Width = 60
          Height = 13
          Caption = '最高成绩：'
        end
        object Label15: TLabel
          Left = 24
          Top = 152
          Width = 60
          Height = 13
          Caption = '最低成绩：'
        end
        object Label16: TLabel
          Left = 24
          Top = 112
          Width = 60
          Height = 13
          Caption = '平均成绩：'
        end
        object Label17: TLabel
          Left = 24
          Top = 192
          Width = 72
          Height = 13
          Caption = '不及格人数：'
        end
        object o_num_total: TEdit
          Left = 104
          Top = 28
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 0
        end
        object o_score_max: TEdit
          Left = 104
          Top = 68
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 1
        end
        object o_score_avg: TEdit
          Left = 104
          Top = 108
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 2
        end
        object o_score_min: TEdit
          Left = 104
          Top = 148
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 3
        end
        object o_num_failed: TEdit
          Left = 104
          Top = 188
          Width = 121
          Height = 21
          ReadOnly = True
          TabOrder = 4
        end
      end
      object B_print_score: TButton
        Left = 120
        Top = 352
        Width = 75
        Height = 25
        Caption = '打印成绩单'
        TabOrder = 3
        OnClick = B_print_scoreClick
      end
      object B_query: TButton
        Left = 224
        Top = 18
        Width = 75
        Height = 25
        Caption = '查询'
        Default = True
        TabOrder = 4
        OnClick = B_queryClick
      end
      object o_course_name: TDBEdit
        Left = 120
        Top = 60
        Width = 161
        Height = 21
        DataField = 'NAME'
        DataSource = DS_course_info
        TabOrder = 5
      end
    end
  end
  object T_course_apply: TTable
    DatabaseName = 'MyDatabase'
    Filter = 'STATE='#39'0'#39' OR STATE='#39'1'#39' OR STATE='#39'2'#39
    Filtered = True
    TableName = 'COURSE'
    Top = 32
  end
  object DS_course_apply: TDataSource
    DataSet = T_course_apply
    Top = 64
  end
  object T_teacher: TTable
    DatabaseName = 'MyDatabase'
    IndexFieldNames = 'ID'
    MasterFields = 'TEACHER'
    MasterSource = DS_course_apply
    TableName = 'TEACHER'
    Top = 96
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Top = 128
  end
  object Q_score_list: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      'SELECT STUDENT.CLASS, STUDENT.ID, STUDENT.NAME, SCORE.SCORE'
      'FROM STUDENT, SCORE'
      'WHERE SCORE.COURSE=:COURSE'
      'AND SCORE.STUDENT=STUDENT.ID')
    Left = 660
    Top = 216
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object Q_info: TQuery
    DatabaseName = 'MyDatabase'
    Left = 660
    Top = 344
  end
  object T_course_info: TTable
    DatabaseName = 'MyDatabase'
    TableName = 'COURSE'
    Left = 660
    Top = 280
  end
  object DS_course_info: TDataSource
    DataSet = T_course_info
    Left = 660
    Top = 312
  end
  object Q_course_not_actived: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      
        'SELECT COURSE.ID, COURSE.NAME, TEACHER.NAME AS TEACHER, COURSE.P' +
        'ERIOD'
      'FROM COURSE, TEACHER'
      'WHERE COURSE.STATE='#39'4'#39
      'AND COURSE.TEACHER=TEACHER.ID')
    Top = 216
  end
  object DS_course_not_actived: TDataSource
    DataSet = Q_course_not_actived
    Top = 248
  end
  object Q_course_actived: TQuery
    DatabaseName = 'MyDatabase'
    SQL.Strings = (
      
        'SELECT COURSE.ID, COURSE.NAME, COURSE.CLASSROOM, COURSE.CLASSTIM' +
        'E, COURSE.PERIOD, TEACHER.NAME AS TEACHER'
      'FROM COURSE, TEACHER'
      'WHERE COURSE.STATE='#39'3'#39
      'AND COURSE.TEACHER=TEACHER.ID')
    Top = 280
  end
  object DS_course_actived: TDataSource
    DataSet = Q_course_actived
    Top = 312
  end
  object Q_submit: TQuery
    DatabaseName = 'MyDatabase'
    Top = 344
  end
  object DS_score_list: TDataSource
    DataSet = Q_score_list
    Left = 660
    Top = 248
  end
  object Q_update: TQuery
    DatabaseName = 'MyDatabase'
    Top = 160
  end
  object T_course_select: TTable
    DatabaseName = 'MyDatabase'
    TableName = 'COURSE_SELECT'
    Left = 660
    Top = 32
  end
  object DS_course_select: TDataSource
    DataSet = T_course_select
    Left = 660
    Top = 64
  end
  object T_score: TTable
    DatabaseName = 'MyDatabase'
    TableName = 'SCORE'
    Left = 660
    Top = 96
  end
  object DS_score: TDataSource
    DataSet = T_score
    Left = 660
    Top = 128
  end
  object T_counter_F: TTable
    DatabaseName = 'MyDatabase'
    Filter = 'ID='#39'F'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 660
    Top = 160
  end
end