studentsys.~dfm

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

          item
            Expanded = False
            FieldName = 'STATE'
            Title.Alignment = taCenter
            Title.Caption = #29366#24577
            Visible = True
          end>
      end
      object B_submit: TButton
        Left = 144
        Top = 368
        Width = 129
        Height = 25
        Caption = #25552#20132#32467#26524
        TabOrder = 5
        OnClick = B_submitClick
      end
      object B_reset: TButton
        Left = 360
        Top = 368
        Width = 121
        Height = 25
        Caption = #24674#22797#34920#21333
        TabOrder = 6
        OnClick = B_resetClick
      end
      object i_state_1: TDBRadioGroup
        Left = 32
        Top = 16
        Width = 593
        Height = 73
        Caption = #30003#35831
        Columns = 3
        DataField = 'STATE'
        DataSource = DS_course_1
        Items.Strings = (
          #22686#24320#26032#30340#35838#31243
          #21024#38500#26087#30340#35838#31243
          #20462#25913#24050#26377#35838#31243)
        TabOrder = 7
        Values.Strings = (
          '0'
          '1'
          '2')
      end
      object i_teacher: TDBEdit
        Left = 136
        Top = 192
        Width = 121
        Height = 21
        DataField = 'TEACHER'
        DataSource = DS_course_1
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 8
      end
    end
    object TabSheet2: TTabSheet
      Caption = #31649#29702#24050#25945#30340#35838#31243
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label6: TLabel
        Left = 16
        Top = 24
        Width = 121
        Height = 13
        AutoSize = False
        Caption = #24320#35774#30340#35838#31243#21015#34920#65306
      end
      object Label7: TLabel
        Left = 208
        Top = 24
        Width = 60
        Height = 13
        Caption = #23398#29983#21517#21333#65306
      end
      object Label8: TLabel
        Left = 440
        Top = 24
        Width = 129
        Height = 13
        AutoSize = False
        Caption = #36755#20837#25104#32489#21517#21333#65306
      end
      object B_print_list: TButton
        Left = 288
        Top = 16
        Width = 113
        Height = 25
        Caption = #25171#21360#23398#29983#21517#21333
        TabOrder = 0
        OnClick = B_print_listClick
      end
      object o_course_2: TDBGrid
        Left = 8
        Top = 48
        Width = 185
        Height = 329
        DataSource = DS_course_1
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = o_course_2CellClick
        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 = 82
            Visible = True
          end>
      end
      object o_student_list: TDBGrid
        Left = 208
        Top = 48
        Width = 209
        Height = 329
        DataSource = DS_student_info
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CLASS'
            Title.Alignment = taCenter
            Title.Caption = #29677#32423
            Width = 47
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ID'
            Title.Alignment = taCenter
            Title.Caption = #23398#21495
            Width = 48
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Width = 74
            Visible = True
          end>
      end
      object i_score: TDBGrid
        Left = 432
        Top = 48
        Width = 193
        Height = 329
        DataSource = DS_students
        FixedColor = clSkyBlue
        ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'STUDENT'
            Title.Alignment = taCenter
            Title.Caption = #23398#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SCORE'
            Title.Alignment = taCenter
            Title.Caption = #25104#32489
            Visible = True
          end>
      end
    end
  end
  object T_course_1: TTable
    Active = True
    DatabaseName = 'mydatabase'
    TableName = 'COURSE'
    Left = 672
    Top = 48
  end
  object DS_course_1: TDataSource
    DataSet = T_course_1
    Left = 704
    Top = 48
  end
  object T_counter_K: TTable
    Active = True
    DatabaseName = 'mydatabase'
    Filter = 'ID='#39'K'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 672
    Top = 80
  end
  object T_teacher_info: TTable
    Active = True
    DatabaseName = 'mydatabase'
    TableName = 'TEACHER'
    Left = 672
    Top = 224
  end
  object Q_students: TQuery
    DatabaseName = 'mydatabase'
    DataSource = DS_students
    SQL.Strings = (
      'SELECT STUDENT.CLASS, STUDENT.ID, STUDENT.NAME'
      'FROM STUDENT,SCORE'
      'WHERE  SCORE.COURSE=:COURSE AND'
      'SCORE.STUDENT=STUDENT.ID'
      'ORDER BY STUDENT.ID')
    Left = 672
    Top = 112
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'COURSE'
        ParamType = ptInput
        Size = 11
      end>
  end
  object DS_student_info: TDataSource
    DataSet = Q_students
    Left = 672
    Top = 144
  end
  object T_students: TTable
    Active = True
    DatabaseName = 'mydatabase'
    IndexFieldNames = 'COURSE'
    MasterFields = 'ID'
    MasterSource = DS_course_1
    TableName = 'SCORE'
    Left = 672
    Top = 264
  end
  object DS_students: TDataSource
    DataSet = T_students
    Left = 672
    Top = 304
  end
  object T_course_2: TTable
    Active = True
    DatabaseName = 'mydatabase'
    TableName = 'COURSE'
    Left = 672
    Top = 336
  end
end