treeview.~dfm

全面剖析人力资源管理的内容

object fmTreeView: TfmTreeView
  Left = 187
  Top = 127
  Width = 788
  Height = 537
  Caption = '组织机构'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 16
    Top = 8
    Width = 61
    Height = 13
    Caption = '编码位数：9'
  end
  object Splitter1: TSplitter
    Left = 321
    Top = 0
    Width = 4
    Height = 510
    Cursor = crHSplit
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 321
    Height = 510
    Align = alLeft
    Alignment = taLeftJustify
    Caption = 'Panel1'
    TabOrder = 0
    object TreeView1: TTreeView
      Left = 1
      Top = 1
      Width = 319
      Height = 508
      Align = alClient
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnDblClick = btOKClick
      OnGetSelectedIndex = TreeView1GetSelectedIndex
      OnKeyUp = TreeView1KeyUp
      OnMouseDown = TreeView1MouseDown
    end
  end
  object Panel2: TPanel
    Left = 325
    Top = 0
    Width = 455
    Height = 510
    Align = alClient
    TabOrder = 1
    object Label1: TLabel
      Left = 22
      Top = 8
      Width = 74
      Height = 13
      Caption = '机构名称          '
    end
    object Label2: TLabel
      Left = 25
      Top = 56
      Width = 73
      Height = 13
      Caption = '本级别编码      '
    end
    object Label3: TLabel
      Left = 156
      Top = 56
      Width = 78
      Height = 13
      Caption = '机构合成编码    '
    end
    object btAddEql: TButton
      Left = 66
      Top = 288
      Width = 95
      Height = 25
      Caption = '增加为本级别(&a)'
      TabOrder = 0
      OnClick = btAddEqlClick
    end
    object btAddSub: TButton
      Left = 66
      Top = 320
      Width = 95
      Height = 25
      Caption = '增加为子级别(&c)'
      TabOrder = 1
      OnClick = btAddSubClick
    end
    object Edit4: TEdit
      Left = 26
      Top = 72
      Width = 106
      Height = 21
      TabOrder = 2
      OnKeyPress = Edit4KeyPress
    end
    object btSave: TButton
      Left = 66
      Top = 352
      Width = 95
      Height = 25
      Caption = '保存修改(&s)'
      TabOrder = 3
      OnClick = btSaveClick
    end
    object btMod: TButton
      Left = 66
      Top = 224
      Width = 95
      Height = 25
      Caption = '修改(&m)'
      TabOrder = 4
      OnClick = btModClick
    end
    object Edit5: TEdit
      Left = 26
      Top = 24
      Width = 295
      Height = 21
      TabOrder = 5
      OnKeyPress = Edit5KeyPress
    end
    object btOK: TButton
      Left = 66
      Top = 472
      Width = 95
      Height = 23
      Caption = '确认'
      TabOrder = 6
      OnClick = btOKClick
    end
    object btAddBas: TButton
      Left = 66
      Top = 256
      Width = 95
      Height = 25
      Caption = '增加为第一级(&b)'
      TabOrder = 7
      OnClick = btAddBasClick
    end
    object Edit1: TEdit
      Left = 155
      Top = 72
      Width = 137
      Height = 21
      ReadOnly = True
      TabOrder = 8
    end
    object btDel: TButton
      Left = 66
      Top = 384
      Width = 95
      Height = 25
      Caption = '删除(&d)'
      TabOrder = 9
      OnClick = btDelClick
    end
    object btReCal: TButton
      Left = 66
      Top = 432
      Width = 96
      Height = 24
      Caption = '重算编码(&r)'
      TabOrder = 10
      OnClick = btReCalClick
    end
  end
  object Query1: TQuery
    DatabaseName = 'db'
    Left = 154
    Top = 16
  end
end