unit1.dfm

用数据库实现的树形结构

object Form1: TForm1
  Left = 190
  Top = 133
  AutoScroll = False
  Caption = #29992#36882#24402#35835#21462#25968#25454#24211#25968#25454#21019#24314#26641#30340#31034#20363#31243#24207'----Copyright by '#39128#25671#23458' 2002'
  ClientHeight = 361
  ClientWidth = 521
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 400
    Top = 20
    Width = 93
    Height = 33
    Caption = #26174#31034
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 400
    Top = 64
    Width = 93
    Height = 33
    Caption = #20851#38381#31243#24207
    TabOrder = 1
    OnClick = Button2Click
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 373
    Height = 361
    ActivePage = TabSheet1
    Align = alLeft
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #26641#22411#26174#31034
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 369
        Height = 333
        Align = alLeft
        Indent = 19
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25968#25454#24211#26174#31034
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 365
        Height = 333
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
    end
  end
  object Memo1: TMemo
    Left = 380
    Top = 204
    Width = 133
    Height = 153
    Color = clBtnFace
    Ctl3D = False
    Lines.Strings = (
      #35831#21442#32771#25968#25454#24211#26174#31034#65292
      #30475#25968#25454#24211#20869#20869#23481'.'#36825#37324
      #20165#20165#32473#20986#20102#20351#29992#25968#25454
      #24211#20013#30340#25968#25454#21019#24314#26641#30340
      #31034#20363#65292#33267#20110#21521#25968#25454#24211
      #20013#22686#21152#25968#25454#22823#23478#21487#20197
      #25720#32034#23581#35797#65292#36825#37324#23601#19981
      #20877#32473#20986#12290)
    ParentCtl3D = False
    TabOrder = 3
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CreateTree.mdb;Pers' +
      'ist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 416
    Top = 128
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'Select * From Type')
    Left = 448
    Top = 128
    object ADOQuery1ID: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuery1ParentID: TIntegerField
      DisplayLabel = #29238'ID'#21495
      FieldName = 'ParentID'
    end
    object ADOQuery1Name: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'Name'
      Size = 32
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 416
    Top = 168
  end
end