jiaowu.~dfm

DElphi教学排课管理系统全套 包括论文。希望对大家有帮助

        OnClick = B_submitClick
      end
      object B_disable: TButton
        Left = 392
        Top = 184
        Width = 75
        Height = 25
        Caption = #21462#28040#20998#37197
        TabOrder = 4
        OnClick = B_disableClick
      end
      object B_print_course: TButton
        Left = 488
        Top = 184
        Width = 89
        Height = 25
        Caption = #25171#21360#35838#31243#20449#24687
        TabOrder = 5
        OnClick = B_print_courseClick
      end
      object B_clear_all: TButton
        Left = 592
        Top = 184
        Width = 91
        Height = 25
        Caption = #28040#38500#25152#26377#20998#37197
        TabOrder = 6
        OnClick = B_clear_allClick
      end
      object DBGrid3: TDBGrid
        Left = 16
        Top = 248
        Width = 673
        Height = 161
        DataSource = DS_course_actived
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 7
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26597#35810#31649#29702#36873#35838#32467#26524
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Label10: TLabel
        Left = 8
        Top = 16
        Width = 137
        Height = 13
        AutoSize = False
        Caption = #36873#35838#32467#26524#21015#34920#22914#19979#65306
      end
      object Label11: TLabel
        Left = 432
        Top = 16
        Width = 48
        Height = 13
        Caption = #25104#32489#21333#65306
      end
      object DBGrid4: TDBGrid
        Left = 8
        Top = 40
        Width = 257
        Height = 377
        DataSource = DS_course_select
        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 = []
      end
      object DBGrid5: TDBGrid
        Left = 424
        Top = 40
        Width = 273
        Height = 377
        DataSource = DS_score
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Button1: TButton
        Left = 288
        Top = 192
        Width = 97
        Height = 33
        Caption = #36716#31227#20840#37096#32467#26524
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = #26399#26411#25104#32489#34920
      ImageIndex = 3
      object Label12: TLabel
        Left = 40
        Top = 32
        Width = 60
        Height = 13
        Caption = #35838#31243#32534#21495#65306
      end
      object Label13: TLabel
        Left = 40
        Top = 72
        Width = 60
        Height = 13
        Caption = #35838#31243#21517#31216#65306
      end
      object Label19: TLabel
        Left = 344
        Top = 24
        Width = 48
        Height = 13
        Caption = #25104#32489#34920#65306
      end
      object i_course_id: TEdit
        Left = 112
        Top = 24
        Width = 89
        Height = 21
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 0
        Text = 'i_course_id'
      end
      object O_course_name: TDBEdit
        Left = 112
        Top = 72
        Width = 161
        Height = 21
        DataField = 'NAME'
        DataSource = DS_course_info
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 1
      end
      object GroupBox2: TGroupBox
        Left = 32
        Top = 112
        Width = 257
        Height = 249
        Caption = #32479#35745#20449#24687
        TabOrder = 2
        object Label14: TLabel
          Left = 24
          Top = 32
          Width = 60
          Height = 13
          Caption = #35838#31243#20154#25968#65306
        end
        object Label15: TLabel
          Left = 24
          Top = 72
          Width = 60
          Height = 13
          Caption = #26368#39640#25104#32489#65306
        end
        object Label16: TLabel
          Left = 24
          Top = 120
          Width = 60
          Height = 13
          Caption = #24179#22343#25104#32489#65306
        end
        object Label17: TLabel
          Left = 24
          Top = 160
          Width = 60
          Height = 13
          Caption = #26368#20302#25104#32489#65306
        end
        object Label18: TLabel
          Left = 16
          Top = 208
          Width = 72
          Height = 13
          Caption = #19981#21450#26684#20154#25968#65306
        end
        object o_num_total: TEdit
          Left = 96
          Top = 24
          Width = 121
          Height = 21
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 0
          Text = 'o_num_total'
        end
        object o_score_max: TEdit
          Left = 96
          Top = 64
          Width = 121
          Height = 21
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 1
          Text = 'o_score_max'
        end
        object o_score_avg: TEdit
          Left = 96
          Top = 112
          Width = 121
          Height = 21
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 2
          Text = 'o_score_avg'
        end
        object o_score_min: TEdit
          Left = 96
          Top = 160
          Width = 121
          Height = 21
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 3
          Text = 'o_score_min'
        end
        object o_num_failed: TEdit
          Left = 96
          Top = 208
          Width = 121
          Height = 21
          ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
          TabOrder = 4
          Text = 'o_num_failed'
        end
      end
      object B_query: TButton
        Left = 224
        Top = 24
        Width = 75
        Height = 25
        Caption = #26597#12288#35810
        TabOrder = 3
        OnClick = B_queryClick
      end
      object DBGrid6: TDBGrid
        Left = 336
        Top = 56
        Width = 353
        Height = 353
        DataSource = DS_score_list
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object B_print_score: TButton
        Left = 112
        Top = 376
        Width = 75
        Height = 25
        Caption = #25171#21360#25104#32489#34920
        TabOrder = 5
        OnClick = B_print_scoreClick
      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'
    Left = 736
    Top = 56
  end
  object DS_course_apply: TDataSource
    DataSet = T_course_apply
    Left = 736
    Top = 80
  end
  object T_teacher: TTable
    DatabaseName = 'mydatabase'
    IndexFieldNames = 'ID'
    MasterFields = 'TEACHER'
    MasterSource = DS_course_apply
    TableName = 'TEACHER'
    Left = 736
    Top = 104
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Left = 736
    Top = 128
  end
  object Q_update: TQuery
    DatabaseName = 'mydatabase'
    Left = 736
    Top = 152
  end
  object Q_course_not_actived: TQuery
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      
        'SELECT COURSE.ID,COURSE.NAME,TEACHER.NAME AS TEACHER,COURSE.PERI' +
        'OD'
      'FROM COURSE,TEACHER'
      'WHERE COURSE.STATE='#39'4'#39
      'AND COURSE.TEACHER=TEACHER.ID')
    Left = 736
    Top = 208
  end
  object DS_course_not_actived: TDataSource
    DataSet = Q_course_not_actived
    Left = 736
    Top = 240
  end
  object Q_course_actived: TQuery
    DatabaseName = 'mydatabase'
    SQL.Strings = (
      
        'SELECT COURSE.ID,COURSE.NAME,COURSE.CLASSROOM,COURSE.CLASSTIME,C' +
        'OURSE.PERIOD,TEACHER.NAME AS TEACHER'
      'FROM COURSE,TEACHER'
      'WHERE COURSE.STATE='#39'3'#39
      'AND COURSE.TEACHER=TEACHER.ID')
    Left = 736
    Top = 264
  end
  object DS_course_actived: TDataSource
    DataSet = Q_course_actived
    Left = 736
    Top = 288
  end
  object Q_submit: TQuery
    DatabaseName = 'mydatabase'
    Left = 736
    Top = 320
  end
  object T_course_select: TTable
    Active = True
    DatabaseName = 'mydatabase'
    TableName = 'COURSE_SELECT'
    Left = 792
    Top = 56
  end
  object DS_course_select: TDataSource
    DataSet = T_course_select
    Left = 792
    Top = 80
  end
  object T_score: TTable
    Active = True
    DatabaseName = 'mydatabase'
    TableName = 'SCORE'
    Left = 792
    Top = 104
  end
  object DS_score: TDataSource
    DataSet = T_score
    Left = 792
    Top = 136
  end
  object T_counter_F: TTable
    DatabaseName = 'mydatabase'
    Filter = 'ID='#39'F'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 792
    Top = 168
  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 = 792
    Top = 216
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object DS_score_list: TDataSource
    DataSet = Q_score_list
    Left = 792
    Top = 248
  end
  object T_course_info: TTable
    DatabaseName = 'mydatabase'
    TableName = 'COURSE'
    Left = 792
    Top = 272
  end
  object DS_course_info: TDataSource
    DataSet = T_course_info
    Left = 792
    Top = 296
  end
  object Q_info: TQuery
    DatabaseName = 'mydatabase'
    Left = 792
    Top = 320
  end
end