personform.dfm

该源代码是一个关于电力设备和电力行业操作管理的管理系统

object PersonFrm: TPersonFrm
  Left = 7
  Top = 38
  Width = 789
  Height = 528
  Caption = #35856#27874#20154#21592#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 137
    Top = 0
    Width = 4
    Height = 501
    Cursor = crHSplit
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 137
    Height = 501
    Align = alLeft
    Caption = #37096#38376#21015#34920
    TabOrder = 0
    object ListBox1: TListBox
      Left = 2
      Top = 15
      Width = 133
      Height = 484
      Align = alClient
      ItemHeight = 13
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnClick = ListBox1Click
    end
  end
  object Panel1: TPanel
    Left = 141
    Top = 0
    Width = 640
    Height = 501
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 638
      Height = 284
      Align = alTop
      Caption = 'Panel2'
      TabOrder = 0
      object GroupBox2: TGroupBox
        Left = 1
        Top = 1
        Width = 424
        Height = 282
        Align = alLeft
        Caption = #35856#27874#20154#21592#22522#26412#36164#26009
        TabOrder = 0
        object Label2: TLabel
          Left = 16
          Top = 32
          Width = 23
          Height = 13
          Caption = 'ID'#65306
        end
        object Label3: TLabel
          Left = 16
          Top = 72
          Width = 42
          Height = 13
          Caption = #22995'  '#21517#65306
        end
        object Label4: TLabel
          Left = 192
          Top = 72
          Width = 63
          Height = 13
          Caption = #32844'         '#21153#65306
        end
        object Label5: TLabel
          Left = 192
          Top = 112
          Width = 60
          Height = 13
          Caption = #20986#29983#24180#26376#65306
        end
        object Label6: TLabel
          Left = 192
          Top = 152
          Width = 60
          Height = 13
          Caption = #25991#21270#31243#24230#65306
        end
        object Label7: TLabel
          Left = 192
          Top = 192
          Width = 60
          Height = 13
          Caption = #24037#20316#26102#38388#65306
        end
        object Label8: TLabel
          Left = 192
          Top = 232
          Width = 60
          Height = 13
          Caption = #25152#23646#23616#21150#65306
        end
        object Label9: TLabel
          Left = 192
          Top = 32
          Width = 60
          Height = 13
          Caption = #24615'        '#21035#65306
        end
        object Edit1: TEdit
          Left = 64
          Top = 24
          Width = 113
          Height = 21
          TabOrder = 0
          OnKeyDown = Edit1KeyDown
          OnKeyPress = Edit1KeyPress
        end
        object Edit2: TEdit
          Left = 64
          Top = 64
          Width = 113
          Height = 21
          TabOrder = 1
          OnKeyPress = Edit2KeyPress
        end
        object Edit3: TEdit
          Left = 272
          Top = 64
          Width = 137
          Height = 21
          TabOrder = 3
          OnKeyPress = Edit3KeyPress
        end
        object ComboBox4: TComboBox
          Left = 272
          Top = 224
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 7
          Items.Strings = (
            '----'#35831#36873#25321'----')
        end
        object ComboBox1: TComboBox
          Left = 272
          Top = 144
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 5
          OnKeyPress = ComboBox1KeyPress
          Items.Strings = (
            #21338#22763
            #30805#22763
            #26412#31185
            #22823#19987
            #20013#19987#65288#39640#20013#65289
            #21021#20013)
        end
        object DateTimePicker1: TDateTimePicker
          Left = 272
          Top = 104
          Width = 138
          Height = 21
          CalAlignment = dtaLeft
          Date = 25569
          Time = 25569
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
          OnKeyPress = DateTimePicker1KeyPress
        end
        object ComboBox2: TComboBox
          Left = 272
          Top = 24
          Width = 137
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          OnKeyPress = ComboBox2KeyPress
          Items.Strings = (
            #30007
            #22899)
        end
        object Button1: TButton
          Left = 56
          Top = 248
          Width = 75
          Height = 25
          Caption = #28155#21152#29031#29255
          TabOrder = 8
          OnClick = Button1Click
        end
        object Panel4: TPanel
          Left = 32
          Top = 96
          Width = 129
          Height = 145
          Caption = #29031#29255
          TabOrder = 9
          object Image1: TImage
            Left = 1
            Top = 1
            Width = 127
            Height = 143
            Align = alClient
            Center = True
            Proportional = True
            Transparent = True
          end
        end
        object DateTimePicker2: TDateTimePicker
          Left = 272
          Top = 184
          Width = 138
          Height = 21
          CalAlignment = dtaLeft
          Date = 36526
          Time = 36526
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 6
          OnKeyPress = DateTimePicker2KeyPress
        end
      end
      object GroupBox3: TGroupBox
        Left = 432
        Top = 1
        Width = 224
        Height = 282
        Caption = #25511#21046#21306
        TabOrder = 1
        object BBt_Add: TBitBtn
          Left = 16
          Top = 56
          Width = 57
          Height = 25
          Caption = #28155#21152
          TabOrder = 0
          OnClick = BBt_AddClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100