teacherset_unit.dfm

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

inherited frmTeacherSet: TfrmTeacherSet
  Left = 246
  Top = 149
  Caption = #32769#24072#20449#24687#32500#25252
  ClientHeight = 438
  ClientWidth = 592
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 574
    inherited DBGrid: TDBGrid
      Width = 570
      DataSource = DataTeacher
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TeacherID'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TchName'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TchSex'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TchAge'
          Title.Alignment = taCenter
          Title.Caption = #24180#40836
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Duty'
          Title.Alignment = taCenter
          Title.Caption = #32844#21153
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TchContact'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#26041#24335
          Width = 150
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Remark'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 200
          Visible = True
        end>
    end
  end
  inherited Panel2: TPanel
    Left = 7
    Top = 252
    Width = 575
    Height = 169
    inherited Label1: TLabel
      Top = 16
    end
    inherited Label2: TLabel
      Left = 152
      Top = 16
    end
    inherited Label3: TLabel
      Top = 69
    end
    object Label4: TLabel [3]
      Left = 312
      Top = 16
      Width = 48
      Height = 12
      Caption = #24615'  '#21035#65306
    end
    object Label5: TLabel [4]
      Left = 432
      Top = 16
      Width = 48
      Height = 12
      Caption = #24180'  '#40836#65306
    end
    object Label6: TLabel [5]
      Left = 16
      Top = 42
      Width = 48
      Height = 12
      Caption = #32844'  '#21153#65306
    end
    object Label7: TLabel [6]
      Left = 242
      Top = 42
      Width = 60
      Height = 12
      Caption = #32852#31995#26041#24335#65306
    end
    inherited txtID: TDBText
      Left = 62
      Top = 14
      Width = 74
      DataField = 'TeacherID'
      DataSource = DataTeacher
    end
    inherited edtName: TDBEdit
      Left = 200
      Top = 12
      Width = 105
      DataField = 'TchName'
      DataSource = DataTeacher
    end
    inherited edtRemark: TDBMemo
      Left = 62
      Top = 64
      Width = 491
      DataField = 'Remark'
      DataSource = DataTeacher
    end
    inherited btnAdd: TBitBtn
      Left = 35
      Top = 136
      Caption = #28155#21152'(&A)'
      OnClick = btnAddClick
    end
    inherited btnModify: TBitBtn
      Left = 139
      Top = 136
      Caption = #20462#25913'(&M)'
    end
    inherited btnDel: TBitBtn
      Left = 251
      Top = 136
      Caption = #21024#38500'(&D)'
      OnClick = btnDelClick
    end
    inherited btnSave: TBitBtn
      Left = 347
      Top = 136
      Caption = #20445#23384'(&S)'
      OnClick = btnSaveClick
    end
    inherited btnCancel: TBitBtn
      Left = 451
      Top = 136
      Caption = #21462#28040'(&C)'
      OnClick = btnCancelClick
    end
    object cmbxSex: TDBComboBox
      Left = 360
      Top = 12
      Width = 65
      Height = 20
      DataField = 'TchSex'
      DataSource = DataTeacher
      ItemHeight = 12
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 7
    end
    object edtAge: TDBEdit
      Left = 480
      Top = 12
      Width = 73
      Height = 20
      DataField = 'TchAge'
      DataSource = DataTeacher
      TabOrder = 8
    end
    object cmbxDuty: TDBComboBox
      Left = 62
      Top = 38
      Width = 129
      Height = 20
      DataField = 'Duty'
      DataSource = DataTeacher
      ItemHeight = 12
      Items.Strings = (
        #25945#24072
        #35762#24072
        #21103#25945#25480
        #25945#25480)
      TabOrder = 9
    end
    object edtAddress: TDBEdit
      Left = 304
      Top = 38
      Width = 249
      Height = 20
      DataField = 'TchContact'
      DataSource = DataTeacher
      TabOrder = 10
    end
  end
  object DataTeacher: TDataSource
    Left = 80
    Top = 152
  end
end