deleteteacherunit.dfm

教学管理系统源代码

object deleteteacherForm: TdeleteteacherForm
  Left = 199
  Top = 93
  Width = 537
  Height = 403
  Caption = #21024#38500#25945#24072#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel4: TPanel
    Left = 0
    Top = 182
    Width = 529
    Height = 194
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 525
      Height = 190
      Align = alClient
      DataSource = DataModule1.DSteacher
      FixedColor = clSkyBlue
      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 = 'tname'
          Title.Caption = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ssex'
          Title.Caption = #24615#21035
          Width = 27
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'age'
          Title.Caption = #24180#40836
          Width = 27
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'zhicheng'
          Title.Caption = #32844#31216
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jiaoyanshi'
          Title.Caption = #25945#30740#23460
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tel'
          Title.Caption = #30005#35805
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'email'
          Title.Caption = #30005#23376#37038#20214
          Width = 129
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 153
    Width = 529
    Height = 29
    Align = alTop
    AutoSize = True
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 2
      Top = 2
      Width = 525
      Height = 25
      DataSource = DataModule1.DSteacher
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbDelete, nbRefresh]
      Align = alTop
      Flat = True
      Hints.Strings = (
        #31532#19968#26465#35760#24405
        #21069#19968#26465#35760#24405
        #19979#19968#26465#35760#24405
        #26368#21518#19968#26465#35760#24405
        'Insert record'
        #21024#38500#35760#24405
        'Edit record'
        'Post edit'
        'Cancel edit'
        #21047#26032#25968#25454)
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 529
    Height = 153
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 80
      Width = 49
      Height = 16
      AutoSize = False
      Caption = #24615#21035
      FocusControl = DBEdit2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 202
      Top = 81
      Width = 57
      Height = 16
      AutoSize = False
      Caption = #30005'      '#35805
      FocusControl = DBEdit3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 202
      Top = 107
      Width = 79
      Height = 16
      AutoSize = False
      Caption = #30005#23376#37038#20214
      FocusControl = DBEdit4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 104
      Width = 41
      Height = 16
      AutoSize = False
      Caption = #24180#40836
      FocusControl = DBEdit5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 202
      Top = 56
      Width = 97
      Height = 16
      AutoSize = False
      Caption = #25945#30740#23460
      FocusControl = DBEdit6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 16
      Top = 129
      Width = 49
      Height = 16
      AutoSize = False
      Caption = #32844#31216
      FocusControl = DBEdit7
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 16
      Top = 56
      Width = 49
      Height = 16
      AutoSize = False
      Caption = #22995#21517
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBEdit2: TDBEdit
      Left = 64
      Top = 80
      Width = 105
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'tsex'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 274
      Top = 78
      Width = 153
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'tel'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 274
      Top = 104
      Width = 153
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'email'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 64
      Top = 104
      Width = 105
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'age'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 274
      Top = 53
      Width = 153
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'jiaoyanshi'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 4
    end
    object DBEdit7: TDBEdit
      Left = 64
      Top = 129
      Width = 105
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'zhicheng'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 5
    end
    object DBImage1: TDBImage
      Left = 431
      Top = 3
      Width = 90
      Height = 120
      Hint = #26174#31034#25945#24072#22270#29255
      DataField = 'photo'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ShowHint = True
      Stretch = True
      TabOrder = 6
    end
    object DBEdit1: TDBEdit
      Left = 64
      Top = 56
      Width = 105
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'tname'
      DataSource = DataModule1.DSteacher
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 7
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 424
      Height = 47
      Align = alCustom
      Anchors = [akLeft, akTop, akRight]
      Caption = #35831#36755#20837#22995#21517#28982#21518#25353#22238#36710#38190#23450#20301
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
      object Edit1: TEdit
        Left = 24
        Top = 16
        Width = 121
        Height = 21
        TabOrder = 0
        OnKeyPress = Edit1KeyPress
      end
    end
  end
end