mainfu.dfm

用Delphi7实现了ID3算法

object MainF: TMainF
  Left = 522
  Top = 4
  Width = 720
  Height = 482
  Caption = 'ID3'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 384
    Width = 712
    Height = 71
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 104
      Top = 19
      Width = 108
      Height = 12
      Caption = 'Seperate Attribure'
    end
    object btnLoadDB: TButton
      Left = 16
      Top = 11
      Width = 75
      Height = 25
      Caption = 'LoadDB'
      TabOrder = 0
      OnClick = btnLoadDBClick
    end
    object Button2: TButton
      Left = 376
      Top = 11
      Width = 75
      Height = 25
      Caption = 'AuotSplit'
      TabOrder = 1
      OnClick = Button2Click
    end
    object ledtNodeInfo: TLabeledEdit
      Left = 112
      Top = 48
      Width = 593
      Height = 16
      AutoSize = False
      Color = clBtnFace
      Ctl3D = False
      EditLabel.Width = 90
      EditLabel.Height = 12
      EditLabel.Caption = 'Node Infomation'
      LabelPosition = lpLeft
      ParentCtl3D = False
      TabOrder = 2
    end
    object cbbSA: TComboBox
      Left = 232
      Top = 14
      Width = 124
      Height = 20
      ItemHeight = 12
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 712
    Height = 384
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 385
      Top = 0
      Height = 384
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 385
      Height = 384
      Align = alLeft
      BevelOuter = bvNone
      BorderWidth = 2
      Caption = 'Panel3'
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 2
        Width = 381
        Height = 380
        Align = alClient
        DataSource = DataSource
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
    end
    object Panel4: TPanel
      Left = 388
      Top = 0
      Width = 324
      Height = 384
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel4'
      TabOrder = 1
      object PageControl1: TPageControl
        Left = 0
        Top = 0
        Width = 324
        Height = 384
        ActivePage = TabSheet1
        Align = alClient
        TabOrder = 0
        object TabSheet1: TTabSheet
          Caption = 'Decision Tree'
          object TV: TTreeView
            Left = 0
            Top = 0
            Width = 316
            Height = 357
            Align = alClient
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -19
            Font.Name = #23435#20307
            Font.Style = []
            Indent = 19
            ParentFont = False
            ParentShowHint = False
            ReadOnly = True
            ShowHint = True
            TabOrder = 0
            OnChange = TVChange
          end
        end
        object TabSheet2: TTabSheet
          Caption = 'Calculated process and result'
          ImageIndex = 1
          object Memo: TMemo
            Left = 0
            Top = 0
            Width = 316
            Height = 357
            Align = alClient
            Color = clBtnFace
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -19
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
    end
  end
  object ClientDataSet: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 152
  end
  object DataSource: TDataSource
    DataSet = ClientDataSet
    Left = 184
    Top = 104
  end
end