plansubject_unit.dfm

学校班级教学管理系统 DELPHI7下的

inherited frmPlanSubject: TfrmPlanSubject
  Left = 273
  Top = 160
  Caption = #36873#20462#25490#35838
  ClientHeight = 413
  ClientWidth = 426
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel [0]
    Left = 8
    Top = 8
    Width = 409
    Height = 137
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 15
      Top = 40
      Width = 60
      Height = 12
      Caption = #36873#20462#31185#30446#65306
    end
    object Label2: TLabel
      Left = 15
      Top = 14
      Width = 60
      Height = 12
      Caption = #23398#26399#36873#25321#65306
    end
    object Label3: TLabel
      Left = 208
      Top = 40
      Width = 60
      Height = 12
      Caption = #32769#24072#36873#25321#65306
    end
    object Label4: TLabel
      Left = 15
      Top = 97
      Width = 60
      Height = 12
      Caption = #22791'    '#27880#65306
    end
    object Label5: TLabel
      Left = 208
      Top = 14
      Width = 60
      Height = 12
      Caption = #23398#29983#32534#21495#65306
    end
    object Label6: TLabel
      Left = 15
      Top = 66
      Width = 60
      Height = 12
      Caption = #19978#35838#26102#38388#65306
    end
    object Label7: TLabel
      Left = 208
      Top = 66
      Width = 60
      Height = 12
      Caption = #32467#26463#26102#38388#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 179
      Top = 61
      Width = 23
      Height = 22
      Caption = #8230
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 371
      Top = 60
      Width = 23
      Height = 22
      Caption = #8230
      OnClick = SpeedButton2Click
    end
    object cmbxSubject: TDBLookupComboBox
      Left = 79
      Top = 36
      Width = 120
      Height = 20
      DataField = 'SubjectID'
      DataSource = DataPlanSubject
      DropDownWidth = 200
      KeyField = 'SubjectID'
      ListField = 'SubjectID;SubName'
      ListSource = DataSubjectID
      TabOrder = 0
    end
    object cmbxTeacher: TDBLookupComboBox
      Left = 270
      Top = 37
      Width = 123
      Height = 20
      DataField = 'TeacherID'
      DataSource = DataPlanSubject
      DropDownWidth = 200
      KeyField = 'TeacherID'
      ListField = 'TeacherID;TchName'
      ListSource = DataTeacherID
      TabOrder = 1
    end
    object cmbxStudentID: TDBLookupComboBox
      Left = 271
      Top = 12
      Width = 122
      Height = 20
      DataField = 'StudentID'
      DataSource = DataPlanSubject
      DropDownWidth = 200
      KeyField = 'StudentID'
      ListField = 'StudentID;StuName'
      ListSource = DataStudentID
      TabOrder = 2
    end
    object edtRemark: TDBMemo
      Left = 78
      Top = 89
      Width = 315
      Height = 39
      DataField = 'Remark'
      DataSource = DataPlanSubject
      ScrollBars = ssVertical
      TabOrder = 3
    end
    object cmbxTerm: TDBComboBox
      Left = 79
      Top = 10
      Width = 120
      Height = 20
      Style = csDropDownList
      DataField = 'Term'
      DataSource = DataPlanSubject
      ItemHeight = 12
      Items.Strings = (
        #31532#19968#23398#26399
        #31532#20108#23398#26399
        #31532#19977#23398#26399
        #31532#22235#23398#26399)
      TabOrder = 4
    end
    object edtBegin: TDBEdit
      Left = 78
      Top = 63
      Width = 99
      Height = 20
      DataField = 'BeginTime'
      DataSource = DataPlanSubject
      TabOrder = 5
    end
    object edtEnd: TDBEdit
      Left = 270
      Top = 63
      Width = 99
      Height = 20
      DataField = 'EndTime'
      DataSource = DataPlanSubject
      TabOrder = 6
    end
  end
  object Panel2: TPanel [1]
    Left = 8
    Top = 152
    Width = 409
    Height = 209
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 405
      Height = 205
      Align = alClient
      DataSource = DataPlanSubject
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StudentID'
          Title.Alignment = taCenter
          Title.Caption = #23398#29983#32534#21495
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'SubjectID'
          Title.Alignment = taCenter
          Title.Caption = #31185#30446#32534#21495
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TeacherID'
          Title.Alignment = taCenter
          Title.Caption = #25945#24072#32534#21495
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Term'
          Title.Alignment = taCenter
          Title.Caption = #23398#26399
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BeginTime'
          Title.Caption = #35838#31243#36215#22987#26102#38388
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EndTime'
          Title.Caption = #35838#31243#32467#26463#26085#26399
          Width = 80
          Visible = True
        end>
    end
  end
  object Panel3: TPanel [2]
    Left = 8
    Top = 368
    Width = 409
    Height = 41
    BevelInner = bvLowered
    TabOrder = 2
    object btnAdd: TBitBtn
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = #28155#21152'(&A)'
      TabOrder = 0
      OnClick = btnAddClick
    end
    object btnModify: TBitBtn
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #20462#25913'(&M)'
      TabOrder = 1
      OnClick = btnModifyClick
    end
    object btnDel: TBitBtn
      Left = 168
      Top = 8
      Width = 75
      Height = 25
      Caption = #21024#38500'(&D)'
      TabOrder = 2
      OnClick = btnDelClick
    end
    object btnCancel: TBitBtn
      Left = 248
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040'(&C)'
      TabOrder = 3
      OnClick = btnCancelClick
    end
    object btnSave: TBitBtn
      Left = 328
      Top = 8
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      TabOrder = 4
      OnClick = btnSaveClick
    end
  end
  inherited ActionList1: TActionList
    Left = 64
    Top = 240
  end
  inherited PopupMenu1: TPopupMenu
    Left = 64
    Top = 272
  end
  object DataPlanSubject: TDataSource
    Left = 32
    Top = 272
  end
  object DataStudentID: TDataSource
    Left = 32
    Top = 240
  end
  object DataSubjectID: TDataSource
    Left = 32
    Top = 208
  end
  object DataTeacherID: TDataSource
    Left = 64
    Top = 208
  end
end