u_main.~dfm

教学管理系统 数据库系列

object F_main: TF_main
  Left = 228
  Top = 145
  Width = 696
  Height = 480
  Caption = '课程管理'
  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 = 673
    Height = 441
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '课程设置申请'
      OnShow = B_resetClick
      object Label1: TLabel
        Left = 56
        Top = 104
        Width = 92
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '课程名称：'
      end
      object Label2: TLabel
        Left = 80
        Top = 136
        Width = 68
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '学分：'
      end
      object Label3: TLabel
        Left = 80
        Top = 168
        Width = 68
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '学时：'
      end
      object Label4: TLabel
        Left = 64
        Top = 200
        Width = 84
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '课程简介：'
      end
      object Label5: TLabel
        Left = 400
        Top = 88
        Width = 105
        Height = 13
        AutoSize = False
        Caption = '已开课程列表：'
      end
      object i_state_1: TRadioGroup
        Left = 32
        Top = 32
        Width = 601
        Height = 41
        Caption = '申请'
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          '增开新的课程'
          '删除旧的课程'
          '修改已有课程')
        TabOrder = 0
        OnClick = i_state_1Click
      end
      object B_submit: TButton
        Left = 200
        Top = 368
        Width = 75
        Height = 25
        Caption = '提交申请'
        Default = True
        TabOrder = 5
        OnClick = B_submitClick
      end
      object B_reset: TButton
        Left = 416
        Top = 368
        Width = 75
        Height = 25
        Cancel = True
        Caption = '恢复表单'
        TabOrder = 6
        OnClick = B_resetClick
      end
      object i_intro_1: TMemo
        Left = 32
        Top = 240
        Width = 337
        Height = 97
        TabOrder = 4
      end
      object o_course_1: TDBGrid
        Left = 384
        Top = 112
        Width = 249
        Height = 225
        DataSource = DS_course_1
        Enabled = False
        ReadOnly = True
        TabOrder = 7
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = o_course_1CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = '编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '课程名'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'STATE'
            Title.Caption = '状态'
            Visible = True
          end>
      end
      object i_name_1: TEdit
        Left = 168
        Top = 100
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object i_credit_hour_1: TSpinEdit
        Left = 168
        Top = 131
        Width = 121
        Height = 22
        MaxValue = 10
        MinValue = 0
        TabOrder = 2
        Value = 0
      end
      object i_period_1: TSpinEdit
        Left = 168
        Top = 163
        Width = 121
        Height = 22
        MaxValue = 100
        MinValue = 0
        TabOrder = 3
        Value = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = '课程管理'
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label6: TLabel
        Left = 32
        Top = 16
        Width = 121
        Height = 13
        AutoSize = False
        Caption = '开设的课程列表：'
      end
      object Label7: TLabel
        Left = 224
        Top = 16
        Width = 92
        Height = 13
        AutoSize = False
        Caption = '学生名单：'
      end
      object Label8: TLabel
        Left = 512
        Top = 16
        Width = 72
        Height = 13
        Caption = '输入成绩单：'
      end
      object o_course_2: TDBGrid
        Left = 16
        Top = 40
        Width = 169
        Height = 353
        DataSource = DS_course_1
        ReadOnly = True
        TabOrder = 0
        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.Caption = '课程编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '课程名称'
            Visible = True
          end>
      end
      object o_student_list: TDBGrid
        Left = 208
        Top = 40
        Width = 281
        Height = 353
        DataSource = DS_student_info
        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 = '班级'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = '学号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '姓名'
            Visible = True
          end>
      end
      object B_print_list: TButton
        Left = 352
        Top = 8
        Width = 89
        Height = 25
        Caption = '打印学生名单'
        TabOrder = 2
        OnClick = B_print_listClick
      end
      object i_score: TDBGrid
        Left = 504
        Top = 40
        Width = 145
        Height = 353
        DataSource = DS_students
        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'
            ReadOnly = True
            Title.Caption = '学号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SCORE'
            Title.Caption = '成绩'
            Visible = True
          end>
      end
    end
  end
  object T_teacher_info: TTable
    DatabaseName = 'MyDatabase'
    TableName = 'TEACHER'
    Left = 168
  end
  object T_course_1: TTable
    DatabaseName = 'MyDatabase'
    TableName = 'COURSE'
    Left = 4
    Top = 40
  end
  object DS_course_1: TDataSource
    DataSet = T_course_1
    Left = 4
    Top = 72
  end
  object T_counter_K: TTable
    DatabaseName = 'MyDatabase'
    Filter = 'ID='#39'K'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 4
    Top = 104
  end
  object DS_students: TDataSource
    DataSet = T_students
    Left = 660
    Top = 144
  end
  object T_students: TTable
    DatabaseName = 'MyDatabase'
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'STUDENT'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 6
      end
      item
        Name = 'COURSE'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'SCORE'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY69'
        Fields = 'ID'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN79'
        Fields = 'COURSE'
      end
      item
        Name = 'RDB$FOREIGN71'
        Fields = 'STUDENT'
      end>
    IndexFieldNames = 'COURSE'
    MasterFields = 'ID'
    MasterSource = DS_course_1
    StoreDefs = True
    TableName = 'SCORE'
    Left = 660
    Top = 112
  end
  object DS_student_info: TDataSource
    DataSet = Q_students
    Left = 4
    Top = 176
  end
  object Q_students: TQuery
    DatabaseName = 'MyDatabase'
    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 = 4
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'COURSE'
        ParamType = ptUnknown
      end>
  end
end