u_course.dfm

以多个信息系统为例

object F_course: TF_course
  Left = 228
  Top = 141
  Width = 596
  Height = 362
  Anchors = [akLeft, akTop, akRight]
  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 DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 161
    Height = 289
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DM_main.DS_course
    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 DBNavigator1: TDBNavigator
    Left = 8
    Top = 304
    Width = 570
    Height = 25
    DataSource = DM_main.DS_course
    Anchors = [akLeft, akBottom]
    TabOrder = 1
    OnClick = DBNavigator1Click
  end
  object GroupBox1: TGroupBox
    Left = 176
    Top = 8
    Width = 401
    Height = 289
    Anchors = [akRight]
    Caption = '课程信息'
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 70
      Height = 13
      Caption = '课程编号：'
    end
    object Label2: TLabel
      Left = 16
      Top = 72
      Width = 70
      Height = 13
      Caption = '课程名称：'
    end
    object Label3: TLabel
      Left = 16
      Top = 112
      Width = 70
      Height = 13
      Caption = '主讲教师：'
    end
    object Label4: TLabel
      Left = 232
      Top = 24
      Width = 70
      Height = 13
      Caption = '内容简介：'
    end
    object Label5: TLabel
      Left = 232
      Top = 144
      Width = 70
      Height = 13
      Caption = '所用教材：'
    end
    object Label6: TLabel
      Left = 232
      Top = 216
      Width = 70
      Height = 13
      Caption = '上课地点：'
    end
    object Label7: TLabel
      Left = 16
      Top = 176
      Width = 70
      Height = 13
      Caption = '上限人数：'
    end
    object Label8: TLabel
      Left = 112
      Top = 200
      Width = 70
      Height = 13
      Caption = '上课时间：'
    end
    object i_id: TDBEdit
      Left = 88
      Top = 28
      Width = 121
      Height = 21
      DataField = 'ID'
      DataSource = DM_main.DS_course
      Enabled = False
      TabOrder = 0
    end
    object i_name: TDBEdit
      Left = 88
      Top = 68
      Width = 121
      Height = 21
      DataField = 'NAME'
      DataSource = DM_main.DS_course
      TabOrder = 1
    end
    object i_teacher: TDBLookupComboBox
      Left = 88
      Top = 140
      Width = 121
      Height = 21
      DataField = 'TEACHER'
      DataSource = DM_main.DS_course
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = DM_main.DS_teacher
      TabOrder = 3
      TabStop = False
    end
    object i_intro: TDBMemo
      Left = 232
      Top = 40
      Width = 153
      Height = 97
      DataField = 'INTRO'
      DataSource = DM_main.DS_course
      TabOrder = 5
    end
    object i_book: TDBMemo
      Left = 232
      Top = 160
      Width = 153
      Height = 49
      DataField = 'BOOK'
      DataSource = DM_main.DS_course
      TabOrder = 6
    end
    object i_classroom: TDBMemo
      Left = 232
      Top = 232
      Width = 153
      Height = 49
      DataField = 'CLASSROOM'
      DataSource = DM_main.DS_course
      TabOrder = 7
    end
    object i_teacher_id: TDBEdit
      Left = 88
      Top = 108
      Width = 121
      Height = 21
      DataField = 'TEACHER'
      DataSource = DM_main.DS_course
      TabOrder = 2
    end
    object i_classtime: TDBMemo
      Left = 112
      Top = 216
      Width = 97
      Height = 65
      DataField = 'CLASSTIME'
      DataSource = DM_main.DS_course
      TabOrder = 8
    end
    object i_state: TDBRadioGroup
      Left = 16
      Top = 200
      Width = 89
      Height = 81
      Caption = '状态'
      DataField = 'STATE'
      DataSource = DM_main.DS_course
      Items.Strings = (
        '允许选课'
        '进行授课'
        '暂停教授')
      TabOrder = 9
      Values.Strings = (
        '0'
        '1'
        '2')
    end
    object i_number: TDBEdit
      Left = 88
      Top = 172
      Width = 121
      Height = 21
      DataField = 'NUMBER'
      DataSource = DM_main.DS_course
      TabOrder = 4
    end
  end
end