main.dfm

利用递归算法一次建立完整的部门的目录树。

object MainForm: TMainForm
  Left = 335
  Top = 123
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #37096#38376#32467#26500
  ClientHeight = 456
  ClientWidth = 360
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 432
    Width = 360
    Height = 24
    Panels = <
      item
        Width = 120
      end
      item
        Width = 120
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 240
    Height = 432
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 240
      Height = 32
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
    end
    object DepTree: TTreeView
      Left = 0
      Top = 32
      Width = 240
      Height = 400
      Align = alClient
      HideSelection = False
      Indent = 19
      ReadOnly = True
      ShowRoot = False
      TabOrder = 1
      OnClick = DepTreeClick
    end
  end
  object Panel3: TPanel
    Left = 240
    Top = 0
    Width = 120
    Height = 432
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 2
    object ExitBtn: TButton
      Left = 24
      Top = 328
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = ExitBtnClick
    end
    object DelDepBtn: TButton
      Left = 24
      Top = 216
      Width = 75
      Height = 25
      Caption = #21024#38500#37096#38376
      TabOrder = 1
    end
    object AddChildDepBtn: TButton
      Left = 24
      Top = 176
      Width = 75
      Height = 25
      Caption = #22686#21152#23376#37096#38376
      TabOrder = 2
    end
    object AddDepBtn: TButton
      Left = 24
      Top = 136
      Width = 75
      Height = 25
      Caption = #22686#21152#37096#38376
      TabOrder = 3
    end
    object FindDepBtn: TButton
      Left = 24
      Top = 96
      Width = 75
      Height = 25
      Caption = #26597#25214#37096#38376
      TabOrder = 4
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Secu' +
      'rity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 264
    Top = 40
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from DepTab')
    Left = 304
    Top = 40
  end
end