u_main.~dfm

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

object Form_main: TForm_main
  Left = 237
  Top = 156
  Width = 681
  Height = 491
  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 = 16
    Top = 8
    Width = 641
    Height = 441
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #36873#35838
      OnShow = TabSheet1Show
      object Label9: TLabel
        Left = 368
        Top = 24
        Width = 89
        Height = 13
        Caption = #24050#36873#35838#31243':'
      end
      object Label10: TLabel
        Left = 272
        Top = 280
        Width = 48
        Height = 13
        Caption = #24635#23398#20998#65306
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 56
        Width = 225
        Height = 345
        Caption = #35838#31243#20449#24687
        TabOrder = 0
        object Label2: TLabel
          Left = 16
          Top = 24
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #35838#31243#21517#31216':'
        end
        object Label3: TLabel
          Left = 16
          Top = 56
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #20219#35838#25945#24072':'
        end
        object Label4: TLabel
          Left = 32
          Top = 152
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #23398#20998':'
        end
        object Label5: TLabel
          Left = 32
          Top = 184
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #23398#26102':'
        end
        object Label6: TLabel
          Left = 16
          Top = 88
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #19978#35838#22320#28857':'
        end
        object Label7: TLabel
          Left = 16
          Top = 120
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #19978#35838#26102#38388':'
        end
        object Label8: TLabel
          Left = 16
          Top = 208
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #35838#31243#31616#20171':'
        end
        object DBEdit1: TDBEdit
          Left = 80
          Top = 16
          Width = 121
          Height = 21
          DataField = 'NAME'
          DataSource = DS_course
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 80
          Top = 48
          Width = 121
          Height = 21
          DataField = 'NAME'
          DataSource = DS_teacher
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 80
          Top = 80
          Width = 121
          Height = 21
          DataField = 'CLASSROOM'
          DataSource = DS_course
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 80
          Top = 112
          Width = 121
          Height = 21
          DataField = 'CLASSTIME'
          DataSource = DS_course
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 80
          Top = 144
          Width = 121
          Height = 21
          DataField = 'CREDIT_HOUR'
          DataSource = DS_course
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 80
          Top = 176
          Width = 121
          Height = 21
          DataField = 'PERIOD'
          DataSource = DS_course
          TabOrder = 5
        end
        object DBMemo1: TDBMemo
          Left = 16
          Top = 232
          Width = 193
          Height = 97
          DataField = 'INTRO'
          DataSource = DS_course
          TabOrder = 6
        end
      end
      object Btn_print: TButton
        Left = 488
        Top = 16
        Width = 75
        Height = 25
        Caption = #35838#34920#25171#21360
        TabOrder = 1
        OnClick = Btn_printClick
      end
      object Panel1: TPanel
        Left = 8
        Top = 8
        Width = 321
        Height = 41
        BevelInner = bvLowered
        TabOrder = 2
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #35838#31243#32534#21495':'
        end
        object Btn_show: TButton
          Left = 208
          Top = 8
          Width = 105
          Height = 25
          Caption = #35838#31243#20449#24687#26174#31034'  '
          Default = True
          TabOrder = 0
          OnClick = Btn_showClick
        end
        object Edit_course: TEdit
          Left = 72
          Top = 8
          Width = 121
          Height = 21
          TabOrder = 1
          Text = 'Edit_course'
        end
      end
      object DBGrid1: TDBGrid
        Left = 368
        Top = 56
        Width = 249
        Height = 345
        DataSource = DS_qcourse
        TabOrder = 3
        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 = #35838#31243#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #35838#31243#21517#31216
            Visible = True
          end>
      end
      object BBtn_add: TBitBtn
        Left = 264
        Top = 128
        Width = 81
        Height = 25
        Caption = #36873#35838
        TabOrder = 4
        OnClick = BBtn_addClick
        Kind = bkOK
      end
      object BBtn_del: TBitBtn
        Left = 264
        Top = 200
        Width = 81
        Height = 25
        Caption = #21024#38500
        TabOrder = 5
        OnClick = BBtn_delClick
        Kind = bkAbort
      end
      object DBEdit7: TDBEdit
        Left = 264
        Top = 312
        Width = 73
        Height = 21
        DataField = 'SUM'
        DataSource = DS_credit
        TabOrder = 6
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25104#32489#26597#35810
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label11: TLabel
        Left = 56
        Top = 24
        Width = 97
        Height = 13
        AutoSize = False
        Caption = #24050#23398#35838#31243#21015#34920
      end
      object DBGrid2: TDBGrid
        Left = 24
        Top = 48
        Width = 257
        Height = 353
        DataSource = DS_ldcourse
        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 = #35838#31243#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = #35838#31243#21517#31216
            Visible = True
          end>
      end
      object GroupBox2: TGroupBox
        Left = 312
        Top = 24
        Width = 281
        Height = 377
        Caption = #25104#32489#32479#35745
        TabOrder = 1
        object Label12: TLabel
          Left = 40
          Top = 40
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #20320#30340#25104#32489':'
        end
        object Label13: TLabel
          Left = 24
          Top = 128
          Width = 105
          Height = 13
          AutoSize = False
          Caption = #26412#35838#31243#26368#39640#20998':'
        end
        object Label14: TLabel
          Left = 16
          Top = 216
          Width = 113
          Height = 13
          AutoSize = False
          Caption = #26412#35838#31243#24179#22343#25104#32489':'
        end
        object Label15: TLabel
          Left = 24
          Top = 304
          Width = 97
          Height = 13
          AutoSize = False
          Caption = #26412#35838#31243#26368#20302#20998':'
        end
        object DBEdit8: TDBEdit
          Left = 128
          Top = 32
          Width = 121
          Height = 21
          DataField = 'SCORE'
          DataSource = DS_ldcourse
          TabOrder = 0
        end
        object DBEdit9: TDBEdit
          Left = 128
          Top = 120
          Width = 121
          Height = 21
          DataField = 'MAX'
          DataSource = DS_maxscore
          TabOrder = 1
        end
        object DBEdit10: TDBEdit
          Left = 128
          Top = 208
          Width = 121
          Height = 21
          DataField = 'AVG'
          DataSource = DS_avgscore
          TabOrder = 2
        end
        object DBEdit11: TDBEdit
          Left = 128
          Top = 296
          Width = 121
          Height = 21
          DataField = 'MIN'
          DataSource = DS_minscore
          TabOrder = 3
        end
      end
    end
  end
  object T_student: TTable
    DatabaseName = 'TEACH'
    TableName = 'STUDENT'
    Left = 8
    Top = 48
  end
  object T_course: TTable
    DatabaseName = 'TEACH'
    TableName = 'COURSE'
    Left = 12
    Top = 88
  end
  object T_teacher: TTable
    DatabaseName = 'TEACH'
    TableName = 'TEACHER'
    Left = 12
    Top = 160
  end
  object Q_credit: TQuery
    DatabaseName = 'TEACH'
    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 = 240
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptInput
      end>
  end
  object DS_course: TDataSource
    DataSet = T_course
    Left = 8
    Top = 128
  end
  object DS_teacher: TDataSource
    DataSet = T_teacher
    Left = 8
    Top = 200
  end
  object Q_course: TQuery
    DatabaseName = 'TEACH'
    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 = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptInput
      end>
  end
  object DS_credit: TDataSource
    DataSet = Q_credit
    Left = 4
    Top = 280
  end
  object DS_qcourse: TDataSource
    DataSet = Q_course
    Left = 8
    Top = 344
  end
  object Q_select: TQuery
    DatabaseName = 'TEACH'
    Left = 8
    Top = 384
  end
  object T_counterX: TTable
    DatabaseName = 'TEACH'
    Filter = 'ID='#39'X'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 12
    Top = 416
  end
  object Q_ldcourse: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT SCORE.SCORE,COURSE.ID,COURSE.NAME'
      'FROM SCORE,COURSE'
      'WHERE SCORE.STUDENT=:STUDENT'
      'AND SCORE.COURSE_ID=COURSE.ID')
    Left = 612
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT'
        ParamType = ptUnknown
      end>
  end
  object Q_maxscore: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT MAX(SCORE)'
      'FROM SCORE'
      'WHERE COURSE_ID=:COURSE')
    Left = 612
    Top = 144
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object Q_avgscore: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT AVG(SCORE)'
      'FROM SCORE'
      'WHERE COURSE_ID=:COURSE')
    Left = 612
    Top = 216
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object Q_minscore: TQuery
    DatabaseName = 'TEACH'
    SQL.Strings = (
      'SELECT Min(SCORE)'
      'FROM SCORE'
      'WHERE COURSE_ID=:COURSE')
    Left = 612
    Top = 296
    ParamData = <
      item
        DataType = ftString
        Name = 'COURSE'
        ParamType = ptInput
      end>
  end
  object DS_ldcourse: TDataSource
    DataSet = Q_ldcourse
    Left = 612
    Top = 104
  end
  object DS_maxscore: TDataSource
    DataSet = Q_maxscore
    Left = 612
    Top = 176
  end
  object DS_avgscore: TDataSource
    DataSet = Q_avgscore
    Left = 612
    Top = 256
  end
  object DS_minscore: TDataSource
    DataSet = Q_minscore
    Left = 612
    Top = 344
  end
end