u_main.dfm

适合新手 绝对精品 教务管理系统 本人花钱购买来的源代 共受

object Form_main: TForm_main
  Left = 282
  Top = 267
  Width = 610
  Height = 441
  Caption = 'Form_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 = 585
    Height = 393
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35838#31243#35774#32622#30003#35831
      OnShow = TabSheet1Show
      object Label5: TLabel
        Left = 16
        Top = 152
        Width = 98
        Height = 13
        AutoSize = False
        Caption = #24050#24320#35838#31243#21015#34920#65306
      end
      object RdG_state: TRadioGroup
        Left = 48
        Top = 16
        Width = 193
        Height = 121
        Caption = #30003#35831
        Items.Strings = (
          #22686#24320#26032#35838#31243
          #21024#38500#26087#35838#31243
          #20462#25913#24050#26377#35838#31243)
        TabOrder = 0
        OnClick = RdG_stateClick
      end
      object Panel1: TPanel
        Left = 336
        Top = 16
        Width = 225
        Height = 289
        TabOrder = 1
        object Label1: TLabel
          Left = 16
          Top = 20
          Width = 48
          Height = 13
          Caption = #35838#31243#21517#31216
        end
        object Label2: TLabel
          Left = 32
          Top = 52
          Width = 24
          Height = 13
          Caption = #23398#20998
        end
        object Label3: TLabel
          Left = 32
          Top = 92
          Width = 24
          Height = 13
          Caption = #23398#26102
        end
        object Label4: TLabel
          Left = 88
          Top = 128
          Width = 48
          Height = 13
          Caption = #35838#31243#31616#20171
        end
        object Comb_time: TComboBox
          Left = 80
          Top = 92
          Width = 113
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Text = 'Comb_time'
          Items.Strings = (
            '8'
            '16'
            '32'
            '48')
        end
        object Comb_credit: TComboBox
          Left = 80
          Top = 52
          Width = 113
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Text = 'Comb_credit'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '15')
        end
        object Edit_cname: TEdit
          Left = 80
          Top = 12
          Width = 113
          Height = 21
          TabOrder = 2
          Text = 'Edit_cname'
        end
        object Memo_intro: TMemo
          Left = 16
          Top = 152
          Width = 193
          Height = 121
          Lines.Strings = (
            'Memo_intro')
          TabOrder = 3
        end
      end
      object DBGrid_course: TDBGrid
        Left = 8
        Top = 176
        Width = 305
        Height = 177
        DataSource = DS_course
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid_courseCellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = #32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #35838#31243#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STATE'
            Title.Caption = #29366#24577
            Visible = True
          end>
      end
      object Btn_submit: TButton
        Left = 352
        Top = 328
        Width = 75
        Height = 25
        Caption = #25552#20132#30003#35831
        TabOrder = 3
        OnClick = Btn_submitClick
      end
      object Btn_reset: TButton
        Left = 464
        Top = 328
        Width = 75
        Height = 25
        Caption = #24674#22797#34920#21333
        TabOrder = 4
        OnClick = Btn_resetClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35838#31243#31649#29702
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label6: TLabel
        Left = 40
        Top = 16
        Width = 84
        Height = 13
        Caption = #24320#35774#30340#35838#31243#21015#34920
      end
      object Label7: TLabel
        Left = 208
        Top = 16
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #23398#29983#21517#21333
      end
      object Label8: TLabel
        Left = 448
        Top = 16
        Width = 89
        Height = 13
        AutoSize = False
        Caption = #36755#20837#25104#32489#21333
      end
      object DBG_course2: TDBGrid
        Left = 8
        Top = 40
        Width = 177
        Height = 305
        DataSource = DS_course
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBG_course2CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = #35838#31243#32534#21495
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #35838#31243#21517#31216
            Width = 73
            Visible = True
          end>
      end
      object DBG_student: TDBGrid
        Left = 200
        Top = 40
        Width = 185
        Height = 305
        DataSource = DS_studentinfo
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CLASS'
            Title.Caption = #29677#32423
            Width = 54
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = #23398#21495
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #22995#21517
            Width = 56
            Visible = True
          end>
      end
      object DBG_score: TDBGrid
        Left = 400
        Top = 40
        Width = 161
        Height = 305
        DataSource = DS_student
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'STUDENT'
            Title.Caption = #23398#21495
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SCORE'
            Title.Caption = #25104#32489
            Width = 72
            Visible = True
          end>
      end
      object Btn_print: TButton
        Left = 280
        Top = 8
        Width = 97
        Height = 25
        Caption = #25171#21360#23398#29983#21517#21333
        TabOrder = 3
        OnClick = Btn_printClick
      end
    end
  end
  object Q_teacher: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'select name from teacher where id=:id;')
    Left = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptUnknown
      end>
  end
  object T_course: TTable
    AutoRefresh = True
    DatabaseName = 'TEACH'
    TableName = 'COURSE'
    Left = 252
  end
  object T_counterK: TTable
    DatabaseName = 'TEACH'
    Filter = 'ID='#39'K'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 348
  end
  object DS_course: TDataSource
    DataSet = T_course
    Left = 292
  end
  object DS_studentinfo: TDataSource
    DataSet = Q_student
    Left = 388
  end
  object Q_student: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'select student.class,student.id,student.name'
      'from student,score'
      'where score.course_id=:course_id'
      'and score.student=student.id'
      'order by student.id')
    Left = 432
    ParamData = <
      item
        DataType = ftString
        Name = 'course_id'
        ParamType = ptUnknown
      end>
  end
  object T_student: TTable
    DatabaseName = 'TEACH'
    IndexFieldNames = 'COURSE_ID'
    MasterFields = 'ID'
    MasterSource = DS_course
    TableName = 'SCORE'
    Left = 480
  end
  object DS_student: TDataSource
    DataSet = T_student
    Left = 528
  end
end