u_main.dfm

教学管理系统 数据库系列

object F_main: TF_main
  Left = 204
  Top = 144
  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
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 673
    Height = 441
    ActivePage = TabSheet4
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '课程设置审批'
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 84
        Height = 13
        Caption = '待审批的课程：'
      end
      object DBGrid1: TDBGrid
        Left = 16
        Top = 48
        Width = 217
        Height = 345
        DataSource = DS_course_apply
        ReadOnly = True
        TabOrder = 0
        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 = '课程编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAME'
            Title.Caption = '课程名称'
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 256
        Top = 32
        Width = 377
        Height = 361
        Caption = '具体信息'
        TabOrder = 1
        object Label2: TLabel
          Left = 32
          Top = 32
          Width = 36
          Height = 13
          Caption = '名称：'
        end
        object Label3: TLabel
          Left = 32
          Top = 64
          Width = 36
          Height = 13
          Caption = '教师：'
        end
        object Label4: TLabel
          Left = 32
          Top = 96
          Width = 36
          Height = 13
          Caption = '学分：'
        end
        object Label5: TLabel
          Left = 32
          Top = 128
          Width = 36
          Height = 13
          Caption = '学时：'
        end
        object Label6: TLabel
          Left = 32
          Top = 160
          Width = 36
          Height = 13
          Caption = '简介：'
        end
        object DBEdit1: TDBEdit
          Left = 96
          Top = 28
          Width = 121
          Height = 21
          DataField = 'NAME'
          DataSource = DS_course_apply
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 96
          Top = 60
          Width = 121
          Height = 21
          DataField = 'NAME'
          DataSource = DS_teacher
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 96
          Top = 92
          Width = 121
          Height = 21
          DataField = 'CREDIT_HOUR'
          DataSource = DS_course_apply
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 96
          Top = 124
          Width = 121
          Height = 21
          DataField = 'PERIOD'
          DataSource = DS_course_apply
          TabOrder = 3
        end
        object DBMemo1: TDBMemo
          Left = 40
          Top = 184
          Width = 297
          Height = 105
          DataField = 'INTRO'
          DataSource = DS_course_apply
          TabOrder = 4
        end
        object DBRadioGroup1: TDBRadioGroup
          Left = 240
          Top = 24
          Width = 113
          Height = 129
          Caption = '申请项目'
          DataField = 'STATE'
          DataSource = DS_course_apply
          Items.Strings = (
            '申请增加新课'
            '申请删除旧课'
            '申请修改课程')
          TabOrder = 5
          Values.Strings = (
            '0'
            '1'
            '2')
        end
        object B_pass: TButton
          Left = 80
          Top = 312
          Width = 75
          Height = 25
          Caption = '通过审批'
          TabOrder = 6
          OnClick = B_passClick
        end
        object B_reject: TButton
          Left = 232
          Top = 312
          Width = 75
          Height = 25
          Caption = '拒绝请求'
          TabOrder = 7
          OnClick = B_rejectClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '课程资源分配'
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label7: TLabel
        Left = 32
        Top = 16
        Width = 89
        Height = 13
        AutoSize = False
        Caption = '待分配课程：'
      end
      object Label8: TLabel
        Left = 24
        Top = 240
        Width = 72
        Height = 13
        Caption = '已分配课程：'
      end
      object Label9: TLabel
        Left = 32
        Top = 184
        Width = 60
        Height = 13
        Caption = '上课教室：'
      end
      object Label10: TLabel
        Left = 176
        Top = 184
        Width = 60
        Height = 13
        Caption = '上课时间：'
      end
      object DBGrid2: TDBGrid
        Left = 16
        Top = 32
        Width = 633
        Height = 137
        DataSource = DS_course_not_actived
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBGrid3: TDBGrid
        Left = 16
        Top = 256
        Width = 633
        Height = 145
        DataSource = DS_course_actived
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object i_classroom: TEdit
        Left = 24
        Top = 208
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object i_time: TEdit
        Left = 168
        Top = 208
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object B_submit: TButton
        Left = 304
        Top = 206
        Width = 75
        Height = 25
        Caption = '提交分配'
        Default = True
        TabOrder = 2
        OnClick = B_submitClick
      end
      object B_clear_all: TButton
        Left = 544
        Top = 206
        Width = 97
        Height = 25
        Caption = '清除所有分配'
        TabOrder = 5
        OnClick = B_clear_allClick
      end
      object B_print_course: TButton
        Left = 464
        Top = 206
        Width = 75
        Height = 25
        Caption = '打印课程信息'
        TabOrder = 6
        OnClick = B_print_courseClick
      end
      object B_disable: TButton
        Left = 384
        Top = 206
        Width = 75
        Height = 25
        Caption = '取消分配'
        TabOrder = 7
        OnClick = B_disableClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = '选课结果查询管理'
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Label19: TLabel
        Left = 24
        Top = 8
        Width = 73
        Height = 13
        AutoSize = False
        Caption = '选课结果'
      end
      object Label20: TLabel
        Left = 392
        Top = 8
        Width = 65
        Height = 13
        AutoSize = False
        Caption = '成绩单'
      end
      object DBGrid5: TDBGrid
        Left = 16
        Top = 32
        Width = 257